Transpic

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 337 fois - Téléchargée 68 fois

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. :-)

A voir également

Ajouter un commentaire Commentaire
cs_Besh
Messages postés
7
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
18 février 2005

11 oct. 2004 à 20:30
Votre code ne rend pas la couleur transparente. Il fait juste une substutution de couleur

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.