[moh61]

السلام عليكم يوجد لدي اصناف داخل صور داخل ListView عندم اقوم بالضغط على الصورة يقوم الكود بقص ال ID  المكتوب داخل الصورة وحذف اسم المنتج ثم البحث عن اسعاره بقاعدة البيانات .. علما بان الكود ياخذ وقت طويل هل يوجد طريقة اسهل ؟

'< بصور المنتجات Listview تعبئة ال
   Sub Showimageinlistview()
       ListView2.Clear()
       Dim dp As New OleDbDataAdapter("SELECT * FROM Proudect", conn)
       Dim ds As New DataSet
       dp.Fill(ds)
       Dim ImageList As New ImageList
       ListView2.LargeImageList = ImageList
       ImageList.ImageSize = New Size(100, 100)
       For x As Integer = 0 To ds.Tables(0).Rows.Count - 1
           Dim m As Integer = ds.Tables(0).Rows(x)(0)
           Dim lb() As Byte = ds.Tables(0).Rows(x).Item("pic")
           Dim lstr As New System.IO.MemoryStream(lb)
           ImageList.Images.Add(Image.FromStream(lstr), Color.White)
           lstr.Close()
           Dim ss As String = ds.Tables(0).Rows(x).Item(1)
           Dim Lvi As New ListViewItem(ss)
           With Lvi
               .Text = ds.Tables(0).Rows(x).Item(0) & " " & "-" & ds.Tables(0).Rows(x).Item(1) & ds.Tables(0).Rows(x).Item(2)
               .ImageIndex = x
           End With
           ListView2.Items.Add(Lvi)
       Next




'< البحث عن تفاصيل المنتج الذي تم تحديده وفتح قائمة اضافة عدد وسعر المنتج
   Private Sub ListView2_ItemSelectionChanged(sender As Object, e As ListViewItemSelectionChangedEventArgs) Handles ListView2.ItemSelectionChanged
   
       TX1.Text = e.Item.Text
       Dim mystr As String = TX1.Text
       Dim cut_at As String = "-"
       Dim y As Integer = InStr(mystr, cut_at)
       Dim string_before As String = mystr.Substring(0, y - 2)
       Dim string_after As String = mystr.Substring(y + cut_at.Length - 1)
       TX1.Text = string_before
       Dim dp As New OleDbDataAdapter("select * from Proudect where ID =" & TX1.Text & " ", conn)
       Dim ds As New DataSet
       dp.Fill(ds)
       If ds.Tables(0).Rows.Count <> 0 Then
           Button1.Text = ds.Tables(0).Rows(0).Item("price1")
           Button2.Text = ds.Tables(0).Rows(0).Item("price2")
     END IF