[حريف برمجة]

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

أداة اميج ليست (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)