الوقت/التاريخ الآن هو الثلاثاء مارس 19, 2024 5:07 am
2 نتيجة بحث عن picturebox
عرض الصورة من خلية DataGridView فى عنصر التحكم PictureBox
كود بسيط لعرض الصورة المخزنة فى خلايا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] فى عنصر التحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]- الكود:
Dim bytes As Byte() = CType(DataGridView2.CurrentRow.Cells(4).Value, Byte())
Dim ms As New MemoryStream(bytes)
PictureBox1.Image = Image.FromStream(ms)
- في السبت يناير 19, 2019 8:15 pm
- ابحث في: دروس و مقالات
- موضوع: عرض الصورة من خلية DataGridView فى عنصر التحكم PictureBox
- المساهمات: 2
- مشاهدة: 1234
استخدام الأسلوب CreatedragImage لعملية السحب والإفلات من ListView إلى عنصر تحكم Picturebox
في هذا المثال ،شرح بسيط لكيفية استخدام الأسلوب [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] لعملية السحب والإفلات من [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] إلى عنصر تحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]فى حدث التحميل للنافذة نستخدم الشفرة التالية و التى تقوم بانشاء العنصر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
- في السبت نوفمبر 24, 2018 7:14 pm
- ابحث في: دروس و مقالات
- موضوع: استخدام الأسلوب CreatedragImage لعملية السحب والإفلات من ListView إلى عنصر تحكم Picturebox
- المساهمات: 0
- مشاهدة: 441
أمس في 12:41 am من طرف marketing118
» شركة تنظيف ستائر بالرياض
الأحد مارس 17, 2024 10:46 pm من طرف moslema_r
» خيام ملكيه من الداخل
الأحد مارس 17, 2024 8:13 pm من طرف marketing118
» شركة نقل عفش بالطائف
الأحد مارس 17, 2024 6:34 pm من طرف marketing118
» كهربائي منازل بالرياض
الأحد مارس 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 من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد