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

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

[ATTACH=CONFIG]1812[/ATTACH]

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


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

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

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


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

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

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

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

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

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




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

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

الرد }}}}
تم الشكر بواسطة:
#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
جزاك الله خيرا وزادك علما وفضلا وقدرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة صور فى subitem Mohamed20 6 133 21-01-17, 03:01 PM
آخر رد: Mohamed20
  [VB.NET] مشكلة في اضافة ايميلات لـlistbox 3asfa~mdmra 4 68 19-01-17, 12:14 AM
آخر رد: 3asfa~mdmra
  ترتيب 2 ليست بوكس حسب احدهما samira20 6 138 06-01-17, 06:40 PM
آخر رد: samira20
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 417 04-01-17, 01:12 AM
آخر رد: Namer
  [VB.NET] كيفية رفع صوره مع السؤال في المنتدي engmedomed@gmail.com 3 108 02-01-17, 08:24 PM
آخر رد: Basil Abdallah
  [كود] استقسار عن الكومبوبكس والتيكست بوكس عبدالرحمن المكاوي 6 140 31-12-16, 07:35 PM
آخر رد: مساعدة
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 72 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  [كود] كود وضع رابط WebBrowser في التكيست بوكس hassan 2 514 21-12-16, 02:00 PM
آخر رد: Basil Abdallah
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 245 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
  [VB.NET] استفسار عن اضافة عبدالرحمن المكاوي 8 217 20-12-16, 06:48 PM
آخر رد: zinom

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


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