activer un graphics a partir d'un Bouton.click

Question

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

fpatrice2005 · Answer

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

Activer un graphics a partir d'un Bouton.click

1 réponse

Votre réponse

Discussions similaires