تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب ممكن مثال عن السحب والافلات
#1
السلام عليمكم
ممكن يا شباب
مثال عن السحب والافلات بالفيجوال بيسك 6

وجدت مثال ولكنه دوت نت

انتظركم

ملاحظه الى الاخ 3amo ممكن تشوف التنبيهات رسائل الزورار عندك
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

تفضل مثال جاهز في المرفقات

كود :
Option Explicit

'' 2 ListBox

Private Sub Form_Load()

    List1.AddItem "عبدالله"
    List1.AddItem "محمد"
    List1.AddItem "جمال"
    List1.AddItem "مصطفى"
    
    List1.OLEDropMode = vbOLEDropManual
    List2.OLEDropMode = vbOLEDropManual
    
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    List1.OLEDrag
End Sub

Private Sub List1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    AllowedEffects = vbDropEffectMove
    Data.SetData List1
End Sub

Private Sub List2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim strList As String
    If Not Data.GetFormat(vbCFText) Then Exit Sub
    strList = Data.GetData(vbCFText)
    If Not strList = List2.Text Then
        List2.AddItem strList
        List1.RemoveItem List1.ListIndex
    End If
End Sub



Private Sub List2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    List2.OLEDrag
End Sub

Private Sub List2_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    AllowedEffects = vbDropEffectMove
    Data.SetData List2
End Sub


Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim strList As String
    If Not Data.GetFormat(vbCFText) Then Exit Sub
    strList = Data.GetData(vbCFText)
    If Not strList = List1.Text Then
        List1.AddItem strList
        List2.RemoveItem List2.ListIndex
    End If
End Sub

السلام عليكم ورحمة الله وبركاته


الملفات المرفقة
.rar   Drag and Drop ListBox items - 01.rar (الحجم : 4.91 ك ب / التحميلات : 82)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن المساعدة بعمل برنامج ريان3 20 1,587 18-08-15, 02:53 PM
آخر رد: ريان3
  ممكن حل مشكلة : البحث في قاعدة بيانات mysql في vb6 مكيد0 3 904 16-11-14, 02:04 PM
آخر رد: administrator
  ممكن المساعده في vb كود alhadie87 1 306 26-10-14, 12:08 AM
آخر رد: تركي الحلواني
  ممكن مساعدة في TabStrip1 algroob 9 1,047 19-07-13, 08:37 PM
آخر رد: algroob
  ممكن مساعدة في WebBrowser algroob 1 381 17-07-13, 08:54 PM
آخر رد: algroob
  ممكن تشغيلvlc على فيجوال بسيك ؟؟ imatawen 2 550 03-07-13, 03:42 PM
آخر رد: asto
  أريد مثالاً حول السحب والالقاء (DragDrop و DragOver ) AEDC 0 407 30-06-13, 12:56 PM
آخر رد: AEDC
  ممكن طبط خاصية البرنامج عند اول ظهور له wolf1120 3 483 29-05-13, 09:05 PM
آخر رد: ALBRNS
  ممكن مساعدة في تصميم بروز algroob 5 662 28-05-13, 09:14 AM
آخر رد: algroob
  طلب مثال على استقبال البيانات منrs232 DIGTAL 2 515 26-05-13, 10:17 PM
آخر رد: الطموح للبرمجة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم