اكواد فيجوال بيسك

[الوقت]

عل الفارة لا تتحرك الا في نطاق الform
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
'Get the screens Twips per pixel (form's scalemode must be Twips)
lngX = Screen.TwipsPerPixelX
lngY = Screen.TwipsPerPixelY
'Set cursor region to that of form
With NewRect
.Left = Me.Left / lngX
.Top = Me.Top / lngY
.Right = .Left + Me.Width / lngX
.Bottom = .Top + Me.Height / lngY
End With
lngReturn = ClipCursor(NewRect)

[الوقت]

برنامج مسطرة المتوازيات يستخدم بكثره في برامج الجرفيك
Private Sub Form_Load()
Me.AutoRedraw = True
'يساعد علي زيادة التذكر
End Sub

[الوقت]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'يمثل حركة الخط الرأسي
Line1.X1 = X
Line1.X2 = X
'يمثل حركة الخط الافقي
Line2.Y1 = Y
Line2.Y2 = Y
End Sub
'الحدث resize يساعد في أبقاء الخط مع تغيير حجم النافذه
Private Sub Form_Resize()
'طول الخط الرأسي يساوي طول النموذج
Line1.Y1 = 0
Line1.Y2 = Me.Height
'طول الخط الافقي يساوي عرض النافذه
Line2.X1 = 0
Line2.X2 = Me.Width
End Sub

[أمـ جود ـ]

تسلم ابو هاني


واحب اوضح ان الاكواد


اكواد فيجوال 6 وتسلم لنا ابو هاني


وعن قريب سوف اضيف اكواد

فيجوال بيسك دوت نت


وسلامي لك صاحب مجهود

[عبد الله الساهر]

يسلموا ابو هاني مجهودك جبار


وتسلم لي


يارائع

[عبد الله الساهر]

كمل باقي الابداع ابو هاني

[صمت الجمال]

تسلم ابو هاني


والله شي جميل نجد التفاعل من الكل


ربي يوفقك