06-23-2012، 08:42 PM
با کد زیر می توانید خط های جالبی را رسم کنید
جالب بود! نه؟
کد:
Option Explicit
'TheWolf
'Www.Parsicoders.com
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load()
Me.BackColor = vbWhite
Me.AutoRedraw = True
ShowCursor 0
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Me.Line (0, 0)-(X, Y)
Me.Line (Width, 0)-(X, Y)
Me.Line (Width / 2, 0)-(X, Y)
Me.Line (0, Height)-(X, Y)
Me.Line (0, Height / 2)-(X, Y)
Me.Line (Width, Height / 2)-(X, Y)
Me.Line (Width, Height)-(X, Y)
Me.Line (Width / 2, Height)-(X, Y)
Me.Circle (Int(X), Int(Y)), 500
End Sub
Private Sub Form_Unload(Cancel As Integer)
ShowCursor 1
End Subجالب بود! نه؟