Creare una interfaccia non rettangolare

Spesso, specialmente player audio/video, si vedono interfacce di forma particolare, ma come realizzarle in tal modo?

Sono sicuro che ci sono vari metodi e tutti hanno i dei pro e dei contro quindi non sto qui a spiegarvi il perche' ed il percome di questa soluzione, vi diro' solo che voglio prenderla da un file, renderla trasparente in alcune zone e renderla statica.

Il colore di trasparenza non voglio renderlo fisso ma voglio prenderlo direttamente dall'immagine, quindi decidiamo che il primo pixel in alto a sinistra rappresenta questo colore.

Per ottenere questa informazione abbiamo bisogno dell'API GetPixel:

Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

come si puo' notare l'API necessita di un hdc ovvero l'handle dell'oggetto che contiene l'immagine

TransparentColor = GetPixel(hdc, 0, 0)

Nota: il punto di origine delle coordinate di un'immagine e' il primo pixel in alto a sinistra.

A questo punto dobbiamo scorrere tutta l'immagine per creare i pieni ed i vuoti che rappresenteranno la nostra interfaccia.

Per semplificarci la vita andremo a creare i "pieni" a blocchi scorrendo l'immagine riga per riga dall'alto verso il basso.

Public Function MakeRegion(picSkin As Object) As Long
    For Y = 0 To PicHeight - 1
        For X = 0 To PicWidth - 1
            If GetPixel(hdc, X, Y) = TransparentColor Or X = PicWidth - 1 Then
                If InLine Then
                    InLine = False
                    lineRegion = CreateRectRgn(StartLineX, Y, X, Y + 1)
                    If InFirstRegion Then
                        regionBlock = lineRegion
                        InFirstRegion = False
                    Else
                        CombineRgn regionBlock, regionBlock, lineRegion, RGN_OR
                        DeleteObject lineRegion
                    End If
                End If
            Else
                If Not InLine Then
                    InLine = True
                    StartLineX = X
                End If
            End If
        Next
        InLine = False
    Next
 
    MakeRegion = regionBlock
End Function

Come vedete ho utilizzato alcune API, che naturalmente vanno definite:

Public Const RGN_OR = 2
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

A questo punto non ci resta altro che richiamare la funzione assegnando la regione alla form:

Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
    Set picMainSkin.Picture = LoadPicture(filename)
    form.Width = picMainSkin.Width * Screen.TwipsPerPixelY
    form.Height = picMainSkin.Height * Screen.TwipsPerPixelX
    WindowRegion = MakeRegion(picMainSkin)
    SetWindowRgn form.hwnd, WindowRegion, True
End Function