Discussion :

[pci130]

Bonjour,

Après avoir explorer pas mal de pistes, je m'en remets à vous car je bloque totalement.

Dans une picturebox de 1000*1000, j'insère deux autres picturebox avec un fond transparent et des évènements (drag, drop, ...)
Je précise bien que max2.png a un fond transparent. il est en pièce jointe.

Malheureusement quand je superpose les deux images mon fond est pas transparent mais de la couleur mon panel (blanc).

une petite capture écran : le jaune c'est le problème


Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
 
    Dim PictureBoxMapToken As New PictureBox
    PictureBoxMapToken.AllowDrop = True
    PictureBoxMapToken.SizeMode = PictureBoxSizeMode.AutoSize
    PictureBoxMapToken.BackColor = System.Drawing.Color.Transparent
    PictureBoxMapToken.Height = 1000
    PictureBoxMapToken.Width = 1000
 
    Panel1.BackColor = System.Drawing.Color.Transparent
    Panel1.Controls.Add(PictureBoxMapToken)
 
 
    Dim objBitMap1 As Bitmap = Image.FromFile(Application.StartupPath & "\Assets\IsosCheck\max2.png")
    Dim objPictureBoxToken As New PictureBox
    objPictureBoxToken.Name = "PictureBox33"
    objPictureBoxToken.AllowDrop = True
    objPictureBoxToken.Height = objBitMap1.Height
    objPictureBoxToken.Width = objBitMap1.Width
    objPictureBoxToken.BackColor = System.Drawing.Color.Transparent
    objPictureBoxToken.SizeMode = PictureBoxSizeMode.StretchImage
    objPictureBoxToken.Margin = New Padding(0, 0, 0, 0)
    objPictureBoxToken.Padding = New Padding(0, 0, 0, 0)
 
 
    objPictureBoxToken.Image = objBitMap1
    objPictureBoxToken.TabIndex = 0
    objPictureBoxToken.TabStop = False
    AddHandler objPictureBoxToken.MouseMove, AddressOf objPictureBoxToken_MouseMove
    AddHandler objPictureBoxToken.MouseClick, AddressOf ObjPictureBoxToken_MouseClick
    AddHandler objPictureBoxToken.MouseHover, AddressOf ObjPictureBoxToken_MouseHover
    AddHandler objPictureBoxToken.MouseLeave, AddressOf ObjPictureBoxToken_MouseLeave
    AddHandler objPictureBoxToken.MouseWheel, AddressOf ObjPictureBoxToken_MouseWheel
 
    PictureBoxMapToken.Controls.Add(objPictureBoxToken)
 
 
    Dim objPictureBoxToken2 As New PictureBox
    objPictureBoxToken2.Name = "PictureBox34"
    objPictureBoxToken2.AllowDrop = True
    objPictureBoxToken2.Height = objBitMap1.Height
    objPictureBoxToken2.Width = objBitMap1.Width
    objPictureBoxToken2.BackColor = System.Drawing.Color.Transparent
    objPictureBoxToken2.SizeMode = PictureBoxSizeMode.StretchImage
    objPictureBoxToken2.Margin = New Padding(0, 0, 0, 0)
    objPictureBoxToken2.Padding = New Padding(0, 0, 0, 0)
 
 
    objPictureBoxToken2.Image = objBitMap1
    objPictureBoxToken2.TabIndex = 0
    objPictureBoxToken2.TabStop = False
    AddHandler objPictureBoxToken2.MouseMove, AddressOf objPictureBoxToken_MouseMove
    AddHandler objPictureBoxToken2.MouseClick, AddressOf ObjPictureBoxToken_MouseClick
    AddHandler objPictureBoxToken2.MouseHover, AddressOf ObjPictureBoxToken_MouseHover
    AddHandler objPictureBoxToken2.MouseLeave, AddressOf ObjPictureBoxToken_MouseLeave
    AddHandler objPictureBoxToken2.MouseWheel, AddressOf ObjPictureBoxToken_MouseWheel
 
    PictureBoxMapToken.Controls.Add(objPictureBoxToken2)
 
End Sub

Merci par avance de votre aide.