VB.Net effacer un picture box ???

Question

Salut à tous...

J'ai un petit problème...
Je fais dessiner des coordonnées dans un picturebox. Chaques coordonnées est représenté par deux lignes (représenté par une croix).

J'utilise un TrackBar pour fair un Zoom.

Mon problème...

Lorsque je fais un zoom, les croix grossisses, jusqu'à devenir un paquest de pixel noir.
Comment faire pour que je puisse laisser des croix comment celles qui sont lorsque mon TrackBar est à 0 (je n'ai pas touché encore au trackbar)

Voici mon code 

Merci d'avance

Private
Sub TrackBar1_ValueChanged(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles TrackBar1.ValueChanged

If Count = 0 
Then
Trackbar = 0
Count = Count + 1

End
If

If Trackbar < TrackBar1.Value 
Then
PictureBox1.Height = Y_initial + (50 * TrackBar1.Value)
PictureBox1.Width = X_initial + (50 * TrackBar1.Value)
Trackbar = TrackBar1.Value

ElseIf Trackbar > TrackBar1.Value 
Then
If TrackBar1.Value = 0 
Then
PictureBox1.Height = 220
PictureBox1.Width = 220

Else
PictureBox1.Height = PictureBox1.Height - (50 * TrackBar1.Value)
PictureBox1.Width = PictureBox1.Width - (50 * TrackBar1.Value)
Trackbar = TrackBar1.Value

End
If
End
If

Dim i 
As
IntegerX_initial = PictureBox1.Width
Y_initial = PictureBox1.Height
objGraphics = Graphics.FromImage(objBitMap)
objGraphics.Clear(Color.White)

For i = 0 
To UBound(Tableau)
LigneSplit = Tableau(i).Split(Separateur)
CoordXPicturebox = (Convert.ToDouble(LigneSplit(2)) / 30000) + 20
CoordYPicturebox = (Convert.ToDouble(LigneSplit(1)) / 30000) + 20
objGraphics.DrawLine(MyPen, CoordXPicturebox, CoordYPicturebox - 2, CoordXPicturebox, CoordYPicturebox + 2)
objGraphics.DrawLine(MyPen, CoordXPicturebox - 2, CoordYPicturebox, CoordXPicturebox + 2, CoordYPicturebox)

Next i

Me.PictureBox1.Image = objBitMap
objGraphics.Dispose()
objGraphics = 
Nothing

End
Sub

allthew3 · Answer

T'as pensé à juste faire un PictureBox1.Image = ' image de 1 pixel transparente
ou à faire Visible = false ?

VB.Net effacer un picture box ???

1 réponse

Votre réponse

Discussions similaires