المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة :
21
الشكر: 280
تم شكره 267 مرات في 103 مشاركات
02-11-21, 02:12 PM
السلام عليكم و رحمة الله و بركاته
عند سؤال شباب كيفيةاعمل شكل ListView مثل الصورة اونلاين و اوفلاين و البيانات تحت بعض يعنى اظهر اسم المستخدام مع صور لون احمر اوفلاين و لون اخضر اونلاين
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة :
21
الشكر: 280
تم شكره 267 مرات في 103 مشاركات
02-11-21, 02:49 PM
(آخر تعديل لهذه المشاركة : 02-11-21, 02:50 PM {2} بواسطة alims.)
شكرا لك اخى العزيز ولكن حاولت تحويل من c# الى vb ولكن فشلت برجاء مساعدتى بمثال و اسف على الازعاج اخى الريم
(02-11-21, 02:35 PM)asemshahen5 كتب :
هي امثلة بالسي شارب لا كنها لا تحتاج لحويلها سوى أمور بسيطة مثل حذف الفاصلة المنقوطة و تغير الاقواس المربعة بالأقواس العادية و ما الى ذلك .
شكرا لك اخى العزيز ولكن حاولت تحويل من c# الى vb ولكن فشلت برجاء مساعدتى بمثال و اسف على الازعاج اخى الكريم
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة :
21
الشكر: 280
تم شكره 267 مرات في 103 مشاركات
السلام عليكم قومت بعمل هذا الكود و هو شغل بدون مشكلة ولكن اريد ان يظهر جانب كلمة online و offline صورة صورة لون احمر offlineو صورة تانية لون اخضر online
و اريد ان يظهر سهم لغلق و افتح القايمة لكن من online و offline
ودى صورة اخر حاجة وصلتها و اشكر الاستاذ
asemshahen5
كود :
Imports System
Imports System.Drawing
Public Class Form2
Dim myImageList1 As System.Windows.Forms.ImageList = New ImageList()
Public Sub New()
InitializeComponent()
Dim myImageList1 As System.Windows.Forms.ImageList = New ImageList()
myImageList1.ImageSize = New Size(64, 64)
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\01.jpg"))
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\02.jpg"))
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\03.jpg"))
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\04.jpg"))
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\05.jpg"))
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\06.jpg"))
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\07.jpg"))
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\08.jpg"))
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\09.jpg"))
myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\10.jpg"))
Dim myImageList2 As System.Windows.Forms.ImageList = New ImageList()
myImageList2.ImageSize = New Size(32, 32)
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\01.jpg"))
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\02.jpg"))
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\03.jpg"))
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\04.jpg"))
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\05.jpg"))
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\06.jpg"))
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\07.jpg"))
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\08.jpg"))
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\09.jpg"))
myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\10.jpg"))
myListView.LargeImageList = myImageList1
myListView.SmallImageList = myImageList2
myListView.Items.Add("Item 1", 0)
myListView.Items.Add("Item 2", 1)
myListView.Items.Add("Item 3", 2)
myListView.Items.Add("Item 4", 3)
myListView.Items.Add("Item 5", 4)
myListView.Items.Add("Item 6", 5)
myListView.Items.Add("Item 7", 6)
myListView.Items.Add("Item 8", 7)
myListView.Items.Add("Item 9", 8)
myListView.Items.Add("Item 10", 9)
Dim myLVGroup1 As ListViewGroup = New ListViewGroup("Online", HorizontalAlignment.Left)
Dim myLVGroup2 As ListViewGroup = New ListViewGroup("Offline", HorizontalAlignment.Left)
myListView.Groups.AddRange(New ListViewGroup() {myLVGroup1, myLVGroup2})
myListView.Items(0).Group = myListView.Groups(0)
myListView.Items(1).Group = myListView.Groups(0)
myListView.Items(2).Group = myListView.Groups(0)
myListView.Items(3).Group = myListView.Groups(0)
myListView.Items(4).Group = myListView.Groups(0)
myListView.Items(5).Group = myListView.Groups(1)
myListView.Items(6).Group = myListView.Groups(1)
myListView.Items(7).Group = myListView.Groups(1)
myListView.Items(8).Group = myListView.Groups(1)
myListView.Items(9).Group = myListView.Groups(1)
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myListView.View = View.Tile
End Sub
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ