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

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

[ATTACH=CONFIG]1812[/ATTACH]

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


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

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

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


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

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

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

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

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

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




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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 33 19-09-17, 03:33 PM
آخر رد: أبو نوره
  [سؤال] عند اضافة حالة جديدة naden 1 53 16-09-17, 09:20 PM
آخر رد: أبو نوره
  اضافة عدد الايام + التاريخ الاول = التاريخ الثانى nabil.1710 3 96 15-09-17, 05:10 AM
آخر رد: طـلال
  نص أرقام في تكست بوكس visualist2015 3 77 14-09-17, 05:48 PM
آخر رد: visualist2015
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 131 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة
  [كود] استفسار داخل اليست بوكس عبدالرحمن المكاوي 3 84 11-09-17, 05:29 PM
آخر رد: سعود الشامان
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 1 55 10-09-17, 12:29 PM
آخر رد: سعود الشامان
  [VB.NET] مساعدة التكست بوكس محمد بوقزاحة 3 71 10-09-17, 03:31 AM
آخر رد: Rabeea Qbaha
  [سؤال] كود حفظ البيانات من التكست بوكس الي الحقل shingray 1 63 08-09-17, 04:53 PM
آخر رد: Amjad
  [سؤال] لو سمحتم عاوز كود لأظهار كود العميل في التيكست بوكس عند اختيار العميل من الكومبوبوكس ahmedgamal 4 153 05-09-17, 06:01 AM
آخر رد: ahmedgamal

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


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