27-02-13, 06:31 PM
اخوانى السلام عليكم ورحمة الله وبركاته
اريد جعل اليست بوكس مثل الصور بالضبك
[ATTACH=CONFIG]1812[/ATTACH]
سطرين وايقونه والنظام ده
اريد جعل اليست بوكس مثل الصور بالضبك
[ATTACH=CONFIG]1812[/ATTACH]
سطرين وايقونه والنظام ده
27-02-13, 06:31 PM
27-02-13, 10:51 PM
[COLOR="#800000"]السلام عليكم
تفضل المثال في المرفقات باستعمال ListView
بالتوفيق ان شاءالله[/COLOR]
تفضل المثال في المرفقات باستعمال ListView
بالتوفيق ان شاءالله[/COLOR]
28-02-13, 08:46 AM
sajad كتب :[COLOR="#800000"]السلام عليكم
تفضل المثال في المرفقات باستعمال ListView
بالتوفيق ان شاءالله[/COLOR]
جزاك الله خيرا
هشوفه وارد عليك
28-02-13, 01:15 PM
السلام عليكم ورحمة الله وبركاته
يمكنك البحث عن أداة Listbox مطورة تحتوي عناصرها علي صور
أو يمكنك استخدام أداة UserControl كما عملته لك في هذا المثال
[ATTACH=CONFIG]1818[/ATTACH]
تم استخدام أداة Panel كحاوية ولكي يظهر شريط التمرير بها
اجعل خاصيتها AutoSize تساوي True
يمكنك البحث عن أداة Listbox مطورة تحتوي عناصرها علي صور
أو يمكنك استخدام أداة UserControl كما عملته لك في هذا المثال
[ATTACH=CONFIG]1818[/ATTACH]
تم استخدام أداة Panel كحاوية ولكي يظهر شريط التمرير بها
اجعل خاصيتها AutoSize تساوي True
28-02-13, 01:35 PM
بارك الله فيك وذادك من علمه
28-02-13, 02:12 PM
جزاك الله خير
ممتاز ممتاز ممتاز فكره فعلا رائعه
طيب لو انا عايز عندما يتم النقر على عنصر يتم تحديده مثل اليست بوكس
ممتاز ممتاز ممتاز فكره فعلا رائعه
طيب لو انا عايز عندما يتم النقر على عنصر يتم تحديده مثل اليست بوكس
28-02-13, 02:13 PM
اسف على التكرار
28-02-13, 03:55 PM
استبدل كل الكود الخاص بالأداة 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****
***
**
*
28-02-13, 04:45 PM
جزاك الله خيرا وجعله فى موازين حسناتك
كل يوم بتعلم منك حاجه جديده
كل يوم بتعلم منك حاجه جديده
28-02-13, 07:04 PM
جزاك الله خيرا وزادك علما وفضلا وقدرا