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 |
Partager