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

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

[ATTACH=CONFIG]1812[/ATTACH]

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


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

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

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


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

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

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

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

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

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




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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 144 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  اضافة ادوات لفيجوال بيسك خالد20 10 1,977 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  [سؤال] كيفية اضافة في اكثر من جدول ahmed_king2023 0 364 29-07-23, 12:03 PM
آخر رد: ahmed_king2023
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,621 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم

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


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