الوقت/التاريخ الآن هو الثلاثاء مارس 19, 2024 2:04 am

1 نتيجة بحث عن createdragimage

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

في هذا المثال ،شرح بسيط لكيفية استخدام الأسلوب [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] لعملية السحب والإفلات من [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] إلى عنصر تحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الوسم createdragimage على المنتدى منتدى مصر التقني 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
في السبت نوفمبر 24, 2018 7:14 pm
 
ابحث في: دروس و مقالات
موضوع: استخدام الأسلوب CreatedragImage لعملية السحب والإفلات من ListView إلى عنصر تحكم Picturebox
المساهمات: 0
مشاهدة: 441

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

انتقل الى: