Salve,
sono agli inizi in VB2010 express e in un mio semplice programma ho un form con WindowState=Maximized e una PictureBox1 in cui con il codice:
Private Sub PICTUREBOX1_Paint(ByVal sender As Object, ByVal e As
For Me.y = 20 To 1200 Step 10
e.Graphics.DrawLine(Pens.Red, 0, Me.y, 1050, Me.y)
Pausa(500)
Next Me.y
End Sub
la riempio di linee orizzontali.
Ho però la necessità di disegnare le linee una per volta con un intervallo di 1/2 secondo tra l'una e l'altra linea.
Ho inserito allora la sub:
Private Sub Pausa(ByVal DurataPausa As Integer)
Dim OrarioFinePausa As Date = Date.Now.AddMilliseconds(DurataPausa)
Do Until Date.Now > OrarioFinePausa
Application.DoEvents()
Loop
End Sub
e l'istruzione
Pausa(500)
Ma le linee vengono disegnate sempre tutte contemporaneamente e dopo un tempo che penso sia legato al Pausa(500).
Dove sbaglio? Potreste aiutarmi ?
Grazie e auguri di Buon Natale a tutto il Forum.
|