استخدام الأسلوب CreatedragImage لعملية السحب والإفلات من ListView إلى عنصر تحكم Picturebox

اذهب الى الأسفل

استخدام الأسلوب CreatedragImage لعملية السحب والإفلات من ListView إلى عنصر تحكم Picturebox Empty استخدام الأسلوب CreatedragImage لعملية السحب والإفلات من ListView إلى عنصر تحكم Picturebox

مُساهمة من طرف 1zaza في السبت نوفمبر 24, 2018 7:14 pm

في هذا المثال ،شرح بسيط لكيفية استخدام الأسلوب [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] لعملية السحب والإفلات من [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] إلى عنصر تحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
استخدام الأسلوب CreatedragImage لعملية السحب والإفلات من ListView إلى عنصر تحكم Picturebox 975686230

فى حدث التحميل للنافذة نستخدم الشفرة التالية و التى تقوم بانشاء العنصرListView وتحديد مصدر الصور له باستخدام ImageList1 
الكود:

  Private Sub Form_Load()  
   Dim oItem As ListItem  
    
   Dim i As Integer  
          
        With ListView1  
              
            .Icons = ImageList1  
            .SmallIcons = ImageList1  
            .View = lvwIcon  
              
             
            For i = 1 To ImageList1.ListImages.Count  
                Set oItem = .ListItems.Add(i, , "Item número " & i, i, i)  
            Next  
        End With  
End Sub  

فى حدث MouseMove لعنصر التحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] نكتب الشفرة التالية :

الكود:
Private Sub listView1_MouseMove( _  
    Button As Integer, _  
    Shift As Integer, _  
    x As Single, y As Single)  
      
    With ListView1  
        'اذا كان السحب عن طريق النقر على زر الماوس الايسر  
        If Button = vbLeftButton Then  
            '  بدء عملية السحب باستخدام CreateDragImage  
            .DragIcon = .SelectedItem.CreateDragImage  
            ' بدء عملية السحب  
            .Drag vbBeginDrag  
        End If  
    End With  
  End Sub  

فى حدث _DragDrop لعنصر التحكم Picture1
الكود:
Private Sub Picture1_DragDrop(Source As Control, _  
                              x As Single, y As Single)  
      
    Dim StepmPic As StdPicture  
    ' تحميل الصورة في المتغير  
    Set StepmPic = Source.DragIcon  
      
    Dim sAncho As Single, sAlto As Single, sTextoItem As String  
      
    ' نص العنصر المحدد  
    sTextoItem = Source.SelectedItem.Text  
      
    ' تحديد العرض والارتفاع  
    sAncho = ScaleX(StepmPic.Width, vbHimetric, Me.ScaleMode)  
    sAlto = ScaleY(StepmPic.Height, vbHimetric, Me.ScaleMode)  
      
    ' تنظيف عنصر التحكم صورة  
    Picture1.Cls  
      
    With Picture1  
        ' ارسم الرمز مركزًا في الصورة  
        .PaintPicture Source.DragIcon, (.ScaleWidth - sAncho) / 2, 0  
        ' اطبع النص  
        .CurrentY = sAlto + 50  
        .CurrentX = (.ScaleWidth - TextWidth(sTextoItem)) / 2  
        Picture1.Print sTextoItem  
    End With  
End Sub  
1zaza
1zaza
..
..

تاريخ التسجيل : 18/11/2018
المساهمات : 29
النقاط : 45
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى