كيفيه عمل ليزر في مؤشر الماوس في الفيجوال بيسك ((

كيفيه عمل ليزر في مؤشر الماوس في الفيجوال بيسك (( حركه حلوه مره))

--------------------------------------------------------------------------------

بسم الله الرحمن الرحيم

قد يلاحظ من حمل برنامج الخادم المزيف انه عندما يظغط على زر (( عن المبرمج )) يظهر له فورم

وعندما يحرك الماوس يظهر كأن على الماوس ليزر افقي وعامودي .

وهي تزيد من جمال البرنامج يعني اضافه جماليه في البرنامج .

طريقة عملها :

اول شي ادرج فورم عادي

ثم دبل كليك على الفورم وامسح جميع اللي في المربع الابيض اللي تكتب فيه الاكواد

الآن اضف هذا الكود :

كود:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

Me.Cls

Line (X, 0)-(X, Me.ScaleHeight), vbRed

Line (0, Y)-(Me.ScaleWidth, Y), vbGreen

End Sub

حيث سيعمل احداثي سيني صادي على مؤشر الماوس

انتهى الدرس

اتمنى اني افدكم بشي

اخوكم

الملك المدمر