Draw a simple circle using VB
Draw a simple circle using VB
API Declarations
Private Sub Form_Click()
Line (a, b)-(c, d)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X
b = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
c = X
d = Y
End Sub
Rate Draw a simple circle using VB
(1(1 Vote))
Private Sub Form_Click()
Circle (a, b), 1000
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X
b = Y
End Sub
Draw a simple circle using VB Comments
No comments yet — be the first to post one!
Post a Comment