Picture Draw Visual Basic 6.0

[emik]

Salve a tutti ho un problema con questo programmino.. praticamente sto creando come base iniziale del programma una picture box sulla quale posso disegnare ciò che voglio con il mouse.. il codice che ho usato fin ora è questo

Dim Drawing As Boolean 
 Private Sub Form_Load() 
Drawing = False 
End Sub   
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Drawing = True 
End Sub   
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Drawing = True Then Picture1.DrawWidth = 9 Picture1.ForeColor = RGB(VScrollRed, VScrollGreen, VScrollBlue)
 Picture1.PSet (X, Y) 
End If 
End Sub  
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Drawing = False 
End Sub

ma quando faccio una prova quando vado troppo veloce col mouse succede questo..

si creano dei puntini invece che una linea continua.. come posso risolvere il problema? grazie in anticipo.. uso visual basic 6 su windows xp =)
emik

[gibra]

Sposta questo codice :

Picture1.DrawWidth = 9 
Picture1.ForeColor = RGB(VScrollRed, VScrollGreen, VScrollBlue)

nell'evento MouseDown

E' assurdo impostare queste proprietà OGNI volte che muovi il mouse, è inutile perchè mentre lo muovi esse non possono variare, con lo svantaggio di appesantire l'esecuzione dell'evento.


Inoltre, prova ad inserire un
DoEvents

dopo la riga:
Picture1.PSet (X, Y)

[emik]

grazie della risposta, ma il problema non si risolve..
ora il codice è questo

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Drawing = True 
 Picture1.DrawWidth = 9 
Picture1.ForeColor = RGB(VScrollRed, VScrollGreen, VScrollBlue) 
 End Sub  
 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Drawing = True Then 
DoEvents 
Picture1.PSet (X, Y) 
End If
 End Sub 
 Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Drawing = False 
End Sub

ma non cambia niente.. c'è qualcuno che sa aiutarmi?

[oregon]

Originariamente inviato da emik

ma non cambia niente.. c'è qualcuno che sa aiutarmi?

Prova così

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Drawing = True
    Picture1.DrawWidth = 9
    Picture1.ForeColor = RGB(VScrollRed, VScrollGreen, VScrollBlue)
    Picture1.PSet (X, Y)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Drawing = True Then Picture1.Line -(X, Y)
End Sub

[emik]

perfetto oregon!! grazie di essere stato cosi preciso.. davvero grazie.. il codice giusto è quello di oregon =)