Linje ne PictureBox

[germojsi]

Linje ne PictureBox

Si mund të krijoj një linjë me ngjyra të ndryshme në një Picture Box(apo formë) me VB6
Faleminderit

 

[germojsi]

Re: Linje ne PictureBox

Provojeni kete kod si mund ta modifikoj qe te funksionoj me mire


Dim i As Integer

Private Sub Timer1_Timer()
DrawWidth = 5
Interval =11
For i = 22 To ScaleWidth
PSet (i, ScaleHeight / 2), ff
Next i
End Sub

Private Function ff()
Static ngjyra As Long
ngjyra = (ngjyra + i)
ff = ngjyra
End Function