24-12-21, 08:01 AM
سلام عليكم لدي هذة القائمة التي تعرض علي Listview وتعرض تمام ولكن طالما أضغط علي بوتن داخل هذا الكود يعرض ال Items التي انعرضت مع قبل وكذلك الجديدة
كيف أجعل listview تتأكد ان هذة ال Items موجودة علي Listview لا تعرض وإلا تعرض عادي
كيف أجعل listview تتأكد ان هذة ال Items موجودة علي Listview لا تعرض وإلا تعرض عادي
كود :
Private Sub retrieve()
Dim imglist As New ImageList
imglist.ColorDepth = ColorDepth.Depth32Bit
ListView1.LargeImageList = imglist
ListView1.LargeImageList.ImageSize = New System.Drawing.Size(200, 200)
con.Close()
If con.State = ConnectionState.Closed Then con.Open()
Dim strsql As String = "SELECT dbo.pictures.Nu_pic, dbo.FilePictures.Num_File, dbo.FilePictures.Num_pic, dbo.pictures.pic,dbo.Files.Num_file FROM dbo.FilePictures INNER JOIN dbo.Files ON dbo.FilePictures.Num_File = dbo.Files.No_Genfile INNER JOIN dbo.pictures ON dbo.FilePictures.Num_pic = dbo.pictures.Nu_pic where dbo.Files.Num_file=" & Text_NoFile.Text
Dim dt_images As New DataTable
cmd.Connection = con
cmd.CommandText = strsql
adp.SelectCommand = cmd
adp.Fill(ds)
For Each dr As DataRow In ds.Tables(0).Rows
Dim imb_buffer = CType(dr("pic"), Byte())
Dim img_stream As New IO.MemoryStream(imb_buffer, True)
img_stream.Write(imb_buffer, 0, imb_buffer.Length)
imglist.Images.Add(dr("Nu_pic").ToString(), New Bitmap(img_stream))
img_stream.Close()
Dim lsvparent As New ListViewItem
'lsvparent.Text = dr("pic").ToString
lsvparent.ImageKey = dr("Nu_pic").ToString
ListView1.Items.Add(lsvparent)
lsvparent.Text = imglist.Images.Count.ToString
Next
con.Close()
End Sub