[احمد خطاب]

هل فى كود لملأ    image list  بزر بوتون  اثناء تشغيل البرنامج 
واشكركم

[حريف برمجة]

راجع هذا الموضوع :

http://vb4arb.com/vb/showthread.php?tid=26842

[احمد خطاب]

اشكرك جدااااااااااااااااااااااااااااا صديقى العزيز 
لكن لم استطع فهم الامر 
وتحياتى ايها الشخصية المحترمة

[حريف برمجة]

اعمل مشروع جديد وضع على الفورم :

أداة اميج ليست (ImageList)
أداة (OpenFileDialog)

إدارة عرض الصورة .
بوتن لأختيار الصورة .
ليست فيو لعرض الصور بداخلها .

   

دبل كلك على البوتن والصق الكود التالي :

كود :

With OpenFileDialog1
           OpenFileDialog1.Title = "(Select Image) (تحديد صورة)"
           OpenFileDialog1.Filter = "JPEG,BMP,PNG  (تحديد صورة) (Select Image) |*.jpg;*.jpeg;*.bmp;*.png"
       End With

       If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

           Dim fs As System.IO.FileStream = New System.IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open, IO.FileAccess.Read)
           Dim rawdata As Byte()
           rawdata = New Byte(Convert.ToInt32(fs.Length)) {}

           fs.Read(rawdata, 0, Convert.ToInt32(fs.Length))

           PictureBox1.Image = Image.FromStream(New System.IO.MemoryStream(rawdata))
           fs.Close()
           fs = Nothing

'بداية اكواد ادراج صورة في أداة ايميج ليست وعرضها على الليست فيو
           Dim Lvi As New ListViewItem
           Lvi.Text = "سيارة رقم " & ImageList1.Images.Count + 1
           Lvi.ImageIndex = ImageList1.Images.Count

           Dim img As New Bitmap(PictureBox1.Image)
           ImageList1.ImageSize = New Size(140, 140)
           ImageList1.Images.Add(img)
           ListView1.LargeImageList = ImageList1

           ListView1.Items.Add(Lvi)
'نهاية اكواد ادراج صورة في أداة ايميج ليست وعرضها على الليست فيو

       Else
           MsgBox("عفواً ألغي الأمر بناء على طلبك", 64, "Program Name")
           Me.Focus()

       End If

دبل كلك على الليست فيو والصق الكود التالي :

كود :

PictureBox1.Image = ImageList1.Images(ListView1.FocusedItem.Index)

[احمد خطاب]

اشكرك جداااااااااااااااااااااااااااااااااا صديقى العزيز

[حريف برمجة]

(07-04-19, 06:30 PM)احمد خطاب كتب : اشكرك جداااااااااااااااااااااااااااااااااا صديقى العزيز

العفو ،،

بالتوفيق للجميع