Transpic

Commenter

Contenu du snippet

Ce module permet de rendre une couleur transparente dans une PictureBox.

Source / Exemple : 


'Nom: TransPic
'Création: Samuel Hanoteau, Gradué (6/09/2000)
'Modification: Samuel Hanoteau, Gradué (11/09/2000)
'Arguments: Image (PictureBox à éditer)
'           Couleur (couleur à rendre transparente)
'Description: rend une des couleurs de la PictureBox transparente. La couleur par défaut est vbWhite mais le développeur peut choisir de définir cette culeur.

Option Explicit

Public Sub TransPic(Image As PictureBox, Optional Couleur As ColorConstants = vbWhite)
    Dim TInt1 As Integer
    Dim TInt2 As Integer
    Dim SaveScale As Integer
    SaveScale = Image.ScaleMode
    Image.ScaleMode = 3
    For TInt1 = 0 To (Image.ScaleWidth - 1)
        For TInt2 = 0 To (Image.ScaleHeight - 1)
            If (Image.Point(TInt1, TInt2) = Couleur) Then
                Image.PSet (TInt1, TInt2), Image.ForeColor
            End If
        Next
    Next
    Image.ScaleMode = SaveScale
End Sub

Conclusion :


Voila, c'est pas un SUPER-MEGA-CODE-DE-LA-MORT-QUI-TUE mais il peut rendre service. :-)
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Vonotar)