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

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

[ATTACH=CONFIG]1812[/ATTACH]

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


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

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

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


الملفات المرفقة
.rar   ImageList_ListView.rar (الحجم : 86.79 ك ب / التحميلات : 70)
الرد }}}}
تم الشكر بواسطة:
#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
جزاك الله خيرا وزادك علما وفضلا وقدرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 47 12-02-17, 08:06 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 1 39 12-02-17, 06:19 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 4 83 12-02-17, 06:17 PM
آخر رد: مساعدة
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 135 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 28 06-02-17, 05:03 PM
آخر رد: المتألق9
  حل مشكلة في التيكست بوكس عبدالرحمن المكاوي 8 120 06-02-17, 01:52 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] كيف اربط بين 3 كومبو بوكس لو سمحتم farhat 8 198 06-02-17, 02:00 AM
آخر رد: farhat
  [سؤال] اظهار حقلين في كومبو بوكس ابو يوسف النواوي 2 4 120 02-02-17, 07:51 PM
آخر رد: ابو يوسف النواوي 2
  [VB.NET] ♠ قـراءة صفـوف اللست بوكس ♠ 3asfa~mdmra 2 67 02-02-17, 12:50 AM
آخر رد: 3asfa~mdmra
  ممكن احد يساعدني في التكست بوكس محمد بوقزاحة 4 86 01-02-17, 07:04 PM
آخر رد: محمد بوقزاحة

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


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