طلب بسيط جدااا

[العربي المحترف]

السلام عليكم

يا اخوان

لدي طلب صغير جدا..الا وهو


كيف اعمل على الفيجوال بيسك6

اداة القلم(الرسم)

وكيف اعمل اداه ترسم مربع ودائره ارجووووكم

[adam_22]

السلام عليكم

للرسم داخل الفورم (نفس طريقة الرسم في الرسام تقريبا)
اضف PictureBox للفورم وفي صفحة الكود اضف الكود التالي:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.CurrentX = X
Picture1.CurrentY = Y
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Line (Picture1.CurrentX, Picture1.CurrentY)-(X, Y), vbBlack
End If
End Sub

بدل vbBlack تستطيع اختيار اللوم الذي تريد

ملاحظة (الرسم سيكون داخل ال PictureBox فقط)

وبالتوفيق