Tracer une ligne

cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 - 10 mars 2010 à 12:33
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 - 13 mars 2010 à 21:53
Salut
j'utilise vb2008
j'ai écrit une sub qui trace une line à l'intérieur d'un
picture box de haut à gauche jusqu'en bas à droite
Private Sub drawline()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Green)
Dim formGraphics As System.Drawing.Graphics

formGraphics = Me.mybox.CreateGraphics()
myPen.Width = 3
formGraphics.DrawLine(myPen, 0, 0, mybox.Size.Width, mybox.Size.Height)
myPen.Dispose()
formGraphics.Dispose()

End Sub

la question où je dois appeler "drawline" pour que la ligne tracée apparait quand le programme est exécuté
merci

2 réponses

mdevaux62 Messages postés 111 Date d'inscription dimanche 24 décembre 2000 Statut Membre Dernière intervention 17 novembre 2012 7
12 mars 2010 à 14:32
Bonjour

[i]Où dois-je appeler "drawline" pour que la ligne tracée apparait quand le programme est exécuté.
D/ians l'évènement Paint de la pictureBox :

 Private Sub myBox_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles myBox.Paint
        Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Green)
        myPen.Width = 3
        e.Graphics.DrawLine(myPen, 0, 0, myBox.Size.Width, myBox.Size.Height)
        myPen.Dispose()
    End Sub
0
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 55
13 mars 2010 à 21:53
Merci...
0
Rejoignez-nous