السلام عليكم ورحمة الله وبركاته
اعزائي اعضاء المنتدى الكرام
ارجو الا تبخلوا علي بطريقة عمل السحب والافلات للصور داخل البرنامج لاني محتاج هذه الطريقة
مع الكود وبرنامجي متوقف عليها .
شاكرا لكم تعاونكم .
طريقة السحب والافلات
مغلق
السلام عليكم ورحمة الله وبركاته
أنا كنت أحتاج السحب والإفلات كثير وعلشان كذا أنا عملت كلاس لهذا الأمر
أول حاجة إضف هذا الكلاس كمرجع للمسروح من add erference
بعد كذا ترصح عن Dim a As New NJB_Class.MoveObject
وبعدين نستخدم هذا الامر في المكان المناسب مثل
تتم عملة السحب والافلات (a.Move(TextBox, True
وهذا لإيقاف عملية السحب والإفلات (a.Move(TextBox, False
____________________________________________________________
Imports System.Drawing
Public Class MoveObject
Private IsMouseDown As Boolean
Private MouseOffset As System.Drawing.Point
Private WithEvents O As System.Windows.Forms.Control
Private bloo1 As Boolean
Public Sub Move(ByVal objectX As System.Windows.Forms.Control, Optional ByVal Bool As Boolean = True)
O = objectX
bloo1 = Bool
End Sub
Public Sub down(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles O.MouseDown
If bloo1 = True Then
If e.Button = Windows.Forms.MouseButtons.Left Then
IsMouseDown = True
MouseOffset.X = e.X
MouseOffset.Y = e.Y
End If
End If
End Sub
Public Sub up(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles O.MouseUp
IsMouseDown = False
End Sub
Public Sub move1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles O.MouseMove
If IsMouseDown Then
O.Location = New Point( _
O.Location.X + e.X - MouseOffset.X, _
O.Location.Y + e.Y - MouseOffset.Y)
End If
End Sub
End Class
هذا كود الكلاس كاملاً
هذا مثال لكيفية عمل السحب والإفلات، قم بسحب صورة من الكمبيوتر (مثلاً من سطح المكتب) عن طريق الماوس وقم بإفلاتها على البرنامج للتضح لك الصورة.
ملاحظة: المثال قديم في جهازي ولا أذكر إن كنت كتبته بنفسي أم كتبه غيري.
Learn Japanese :>>> http://www.nouben.com/
السلام عليكم ورحمة الله وبركاته
يا أخي صالح vb هل عمل عندك الكلاس ؟
هذا هو الكلاس وأنا أسف
هذا الموضوع مغلق.