Activer un graphics a partir d'un Bouton.click

Signaler
Messages postés
4
Date d'inscription
jeudi 10 avril 2008
Statut
Membre
Dernière intervention
2 mai 2008
-
Messages postés
4
Date d'inscription
jeudi 10 avril 2008
Statut
Membre
Dernière intervention
2 mai 2008
-
Bonjour,

Je débute en VB2005 et en programmation en générale, mon soucis est le suivant :



Je souhaite générer un ensemble de carré, mais cela peut être un autre type de graphics par le simple click sur un bouton.
Mais impossible d'y arriver. Je cherche depuis 2 jours la solution qui doit être évidente pour un expert.

Voici la partie de code en cause :

Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

   Dim Zone As System.Drawing.Graphics
   Dim myPen2 As Pen = New Pen(Color.Red, 1.0F)
   Dim x1 AsInteger, y1 AsInteger

   myPen2.DashStyle = Drawing2D.DashStyle.Solid
       For x1 = 20 To 80






         For y1 = 10 To 79
         Zone.DrawRectangle(myPen2, 10 * x1, 5 + 10 * y1, 1, 1)


         Next
       Next
EndSub







   D'avance merci à vous tous et bravo pour ce site








Patrice               



               

               


        

1 réponse

Messages postés
4
Date d'inscription
jeudi 10 avril 2008
Statut
Membre
Dernière intervention
2 mai 2008

Rebonjour,

 Je suis toujours à la recherche d'une solution à mon problème.
J'ai réalisé ce petit programme en VB2005 mais il n'affiche rien
POURQUOI ????????

Merci de votre aide
Patrice

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
Trace_Zone(Me.CreateGraphics)
End
Sub

Sub Trace_Zone(ByVal e As System.Drawing.Graphics)
   Dim rec
As Rectangle =
New System.Drawing.Rectangle

   Dim myPen2 As Pen = New Pen(Color.Red, 2.0F)
   myPen2.DashStyle = Drawing2D.DashStyle.Solid
   Dim x1
As
Integer, y1
As
Integer
      rec.Width = 10
      rec.X = 10
      rec.Y = 10
      rec.Height = 10
      e.DrawRectangle(myPen2, rec)
End
Sub