تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة صوره او ايقونه للعنصر فى اليست بوكس
#1
اخوانى السلام عليكم ورحمة الله وبركاته

اريد جعل اليست بوكس مثل الصور بالضبك

[ATTACH=CONFIG]1812[/ATTACH]

سطرين وايقونه والنظام ده


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
[COLOR="#800000"]السلام عليكم

تفضل المثال في المرفقات باستعمال ListView

بالتوفيق ان شاءالله[/COLOR]


الملفات المرفقة
.rar   ImageList_ListView.rar (الحجم : 86.79 ك ب / التحميلات : 67)
الرد }}}}
تم الشكر بواسطة:
#3
sajad كتب :[COLOR="#800000"]السلام عليكم

تفضل المثال في المرفقات باستعمال ListView

بالتوفيق ان شاءالله[/COLOR]

جزاك الله خيرا
هشوفه وارد عليك
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

يمكنك البحث عن أداة Listbox مطورة تحتوي عناصرها علي صور
أو يمكنك استخدام أداة UserControl كما عملته لك في هذا المثال

[ATTACH=CONFIG]1818[/ATTACH]
تم استخدام أداة Panel كحاوية ولكي يظهر شريط التمرير بها
اجعل خاصيتها AutoSize تساوي True




الملفات المرفقة صورة/صور
   

.rar   List With Image.rar (الحجم : 42.23 ك ب / التحميلات : 25)
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#5
بارك الله فيك وذادك من علمه
الرد }}}}
تم الشكر بواسطة:
#6
جزاك الله خير
ممتاز ممتاز ممتاز فكره فعلا رائعه
طيب لو انا عايز عندما يتم النقر على عنصر يتم تحديده مثل اليست بوكس
الرد }}}}
تم الشكر بواسطة:
#7
اسف على التكرار
الرد }}}}
تم الشكر بواسطة:
#8
استبدل كل الكود الخاص بالأداة UserControl1 بهذا الكود :

كود :
Public Class UserControl1




    Private Sub UserControl1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
        MessageBox.Show("Hi you click me!", "Helow", MessageBoxButtons.OK)
    End Sub


    Private Sub UserControl1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseHover, Label1.MouseHover, Label2.MouseHover
        If Me.BackColor = Color.Silver Then
            Exit Sub
        End If


        Me.BackColor = Color.GhostWhite


    End Sub


    Private Sub UserControl1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave


        If Me.BackColor = Color.Silver Then
            Exit Sub
        End If


        Me.BackColor = Color.White


    End Sub


    Private Sub UserControl1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        For Each uc As UserControl In Me.Parent.Controls
            uc.BackColor = Color.White
        Next
        Me.BackColor = Color.Silver
    End Sub






End Class

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#9
جزاك الله خيرا وجعله فى موازين حسناتك
كل يوم بتعلم منك حاجه جديده
Smile
الرد }}}}
تم الشكر بواسطة:
#10
جزاك الله خيرا وزادك علما وفضلا وقدرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 1 47 أمس, 06:31 PM
آخر رد: ابراهيم النعيمي
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 1 60 أمس, 03:36 AM
آخر رد: elhon.tec
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 77 08-12-16, 09:07 PM
آخر رد: محمد كريّم
  [VB.NET] اضافة التاريخ في الطباعة في الريبورت فيور hglogtd 8 96 08-12-16, 08:35 PM
آخر رد: ابراهيم النعيمي
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 2 86 08-12-16, 11:16 AM
آخر رد: superwoofer
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 225 07-12-16, 09:50 PM
آخر رد: ابراهيم النعيمي
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 60 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,397 30-11-16, 10:16 PM
آخر رد: omferas
  كيف اقوم بتعبئت كمبو بوكس من جدول في اسكيول سيرفر معتز الجازوي 2 73 19-11-16, 03:10 AM
آخر رد: معتز الجازوي
  مسار قاعدة البيانات في التكست بوكس hglogtd 2 77 19-11-16, 02:19 AM
آخر رد: hglogtd

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


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