09-10-13, 11:02 PM
'اعتذر اخي عن الغياب كان بسبب ظرف
'ضع اداة ListView وغير الخاصية CheckBoxes الى True
'اضف اداة ImageList
'غير الخاصية LargeImageList الموجوده فيListView الىImageList1
واخيرآ ضع زر بوتون وضع هذا الكود
'ضع اداة ListView وغير الخاصية CheckBoxes الى True
'اضف اداة ImageList
'غير الخاصية LargeImageList الموجوده فيListView الىImageList1
واخيرآ ضع زر بوتون وضع هذا الكود
كود :
Dim n As Short = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Using open As New OpenFileDialog
open.Title = "Select Image"
open.FileName = ""
open.Filter = "Image(.jpg)|*.jpg"
If open.ShowDialog = DialogResult.OK Then
ImageList1.Images.Add(0, Image.FromFile(open.FileName))
ListView1.Items.Add(open.FileName).ImageIndex = n
n += 1
End If
End Using
End Sub