Créer une PictureBox transparente [Résolu]

Messages postés
21
Date d'inscription
jeudi 1 mai 2003
Statut
Membre
Dernière intervention
25 septembre 2008
- - Dernière réponse : Creatiel
Messages postés
21
Date d'inscription
jeudi 1 mai 2003
Statut
Membre
Dernière intervention
25 septembre 2008
- 29 janv. 2008 à 13:54
Bonjour à tous,

Je n'ai pas de problème pour gérer un gif transparent dans le contrôle PictureBox (sur un Panel) dès lors que j'utilise la boite à outils.

En revanche, lorsque je crée le PictureBox avec du code, je n'ai plus la transparence du gif !!!

Qui peut m'aider ?
Merci d'avance ...

Creatiel Sharewares
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
14599
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
8 décembre 2019
137
3
Merci
Bonjour

à la place de :
Me.Controls.Add(MonImage(1,1))

met :
Me.Panel1.Controls.Add(MonImage(1,1))

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 200 internautes nous ont dit merci ce mois-ci

Commenter la réponse de NHenry
Messages postés
14599
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
8 décembre 2019
137
0
Merci
Bonjour

Comment ça plus la transparence ?
La couleur de transparence est de la couleur du fond de la PictureBox, si c'est le cas, met le BackgroundColor à Transparent.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site
Commenter la réponse de NHenry
Messages postés
21
Date d'inscription
jeudi 1 mai 2003
Statut
Membre
Dernière intervention
25 septembre 2008
0
Merci
re,

BackgroundColor ? Plutôt BackColor, si c'est ça... c'est bien ce que j'ai fait !

Dans VB 2005, je n'ai pas réussi à indexer des controls en mode création. Je génère donc un PictureBox indexé lors de l'exécution, ce qui donne un code de ce genre :

(après création de Panel1 dans la Form)

    Dim CheminImages As String = "C:\Documents and Settings\All Users\Documents"
    Dim MonImage(1, 16) As PictureBox

    Me.Panel1.BackColor = Color.Transparent

    MonImage(1,1) = New PictureBox
    Me.Controls.Add(MonImage(1,1))

    Dim PositionPanel1 As New System.Drawing.Point(Panel1.Location)
    Dim PositionImage As New System.Drawing.Point(100, 100))

    With MonImage(1,1)
        .Location = PositionImage + PositionPanel1
        .Image = Image.FromFile(CheminImages & "image1.gif")
        .SizeMode = PictureBoxSizeMode.AutoSize
        .BackColor = Color.Transparent
        .BackgroundImage = Nothing
        .BringToFront()
        .Visible = True
    End With

Mais l'affichage de image1.gif sur le Panel n'est transparent !!!!
Commenter la réponse de Creatiel
Messages postés
21
Date d'inscription
jeudi 1 mai 2003
Statut
Membre
Dernière intervention
25 septembre 2008
0
Merci
Bon sang, mais c'est bien sûr ! Où avais-je la tête ????

Merci NHenri 
Commenter la réponse de Creatiel