FORM AVEC BORDS IRREGULIERS A PARTIR D'UNE IMAGE

'----- DANS UNE FORM -----
Private Sub Form_Load()
    Dim WindowRegion As Long
    'Propriétés de la picture box
    Picture1.AutoRedraw = True
    Picture1.BorderStyle = 0
    Picture1.ScaleMode = 3
    
    'Position de la picture box
     Picture1.Top = 0: Picture1.Left = 0
    
    '"Découpe" la form suivant Picture1
    WindowRegion = MakeRegion(Picture1)
    SetWindowRgn Me.hWnd, WindowRegion, True
End Sub

'----- DANS UN MODULE -----

Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
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
Public Const RGN_OR = 2

Public Function MakeRegion(picSkin As PictureBox) As Long
    
    ' faites une fenêtre "région" basée sur une picture de picture box
    ' Ceci ce fait en passant l'image pixel par pixel et en créant une
    ' région pour chaque pixel non transparent
    ' Le code est optimisé, il est donc assez rapide
    
    Dim X As Long, Y As Long, StartLineX As Long
    Dim FullRegion As Long, LineRegion As Long
    Dim TransparentColor As Long
    Dim InFirstRegion As Boolean
    Dim InLine As Boolean
    Dim hDC As Long
    Dim PicWidth As Long
    Dim PicHeight As Long
    
    hDC = picSkin.hDC
    PicWidth = picSkin.ScaleWidth
    PicHeight = picSkin.ScaleHeight
    
    InFirstRegion = True: InLine = False
    X = Y = StartLineX = 0
    
    ' Ici, la couleur de transparence est basé sur le pixel en haut a gauche
    ' Mais vous pouvez mettre la couleur ke vous voulez
    TransparentColor = GetPixel(hDC, 0, 0)
    
    For Y = 0 To PicHeight - 1
        For X = 0 To PicWidth - 1
            
            If GetPixel(hDC, X, Y) = TransparentColor Or X = PicWidth Then

                If InLine Then
                    InLine = False
                    LineRegion = CreateRectRgn(StartLineX, Y, X, Y + 1)
                    
                    If InFirstRegion Then
                        FullRegion = LineRegion
                        InFirstRegion = False
                    Else
                        CombineRgn FullRegion, FullRegion, LineRegion, RGN_OR

                        DeleteObject LineRegion
                    End If
                End If
            Else
                If Not InLine Then
                    InLine = True
                    StartLineX = X
                End If
            End If
        Next
    Next
    
    MakeRegion = FullRegion
End Function
   

Télécharger le zip

• LINKODOTRON : PETITE BARRE DE RACCOURCIS
• TUER UNE APPLICATION WINDOWS
• NEIGE VB
• OPERA POPUP KILLER
• DESSINER SUR LA BARRE DU TITRE (SUR LA FENÊTRE ENTIÈRE)

• TRANSPARENCE GÉNÉRALISÉE DES PICTUREBOX
• DESSINER AVEC LA METHODE "DRAWIMAGE"
• LOUPE PICTURE BOX
• SPECTRE DE FICHIER WAVE
• TRANSPARENCE DES PICTUREBOX

• DESSINER AVEC LA METHODE "DRAWIMAGE"
• THEROCKRADIO - CHANSON EN COURS DE DIFFUSION SUR LE NET
• UTILISER LES SKINS WINAMP EN VISUAL BASIC (VB6)
• FORM XP
• FORME IRREGULIÈRE TUTORIAL