استخدام الأسلوب CreatedragImage لعملية السحب والإفلات من ListView إلى عنصر تحكم Picturebox
صفحة 1 من اصل 1 • شاطر
استخدام الأسلوب CreatedragImage لعملية السحب والإفلات من ListView إلى عنصر تحكم Picturebox
في هذا المثال ،شرح بسيط لكيفية استخدام الأسلوب [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] لعملية السحب والإفلات من [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] إلى عنصر تحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
فى حدث التحميل للنافذة نستخدم الشفرة التالية و التى تقوم بانشاء العنصرListView وتحديد مصدر الصور له باستخدام ImageList1
فى حدث MouseMove لعنصر التحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] نكتب الشفرة التالية :
فى حدث _DragDrop لعنصر التحكم Picture1
فى حدث التحميل للنافذة نستخدم الشفرة التالية و التى تقوم بانشاء العنصر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- ...
- تاريخ التسجيل : 18/11/2018
المساهمات : 39
النقاط : 66
التقيم : 3
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد