+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين (/showthread.php?tid=46601)
اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين - moh61 - 19-07-23
السلام عليكم يوجد لدي اصناف داخل صور داخل 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
RE: اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين - aljzazy - 20-07-23
لماذا تستخدم ليست فيو استخدم بانل عادي او فلو لي اوت بانل واعرض بها الصور واجعل التاج الخاص يها قيمة id وعند الضغط عليها قم بانشاء حدث الكليك واجلب ما تريد من قاعدة البيانات حسب قيمة id الموجود بالصورة
RE: اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين - moh61 - 20-07-23
تمام ممكن تساعدني اني اعدل على الكود الي فوق واقدر استبدل اليست فيو ب بانل عادي او فلو لي .... وايها افضل ؟
RE: اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين - moh61 - 21-07-23
ممكن مساعدة بالتعديل على الكود الي فوق و استبدله ب بانل عادي او فلو لي
RE: اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين - moh61 - 23-07-23
اخواني مافي احد يساعدنا بتغير الكود .
RE: اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين - moh61 - 26-07-23
مهتم اذا كان في احد يقدر يساعدني بتحويل الكود اعلاه من اليست فيو الى بانل عادي او فلو لي أيهما أفضل
RE: اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين - Taha Okla - 26-07-23
جرب أنك أنت تصنع هذا الكائن الذي سيقوم بعرض لك المنتج
تضع فيه صورة وليبل واحد أو اثنين أو ثلاثة كما يحلو لك ...
وهذا مثال بسيط عن كائن يعرض الاسماء داخل FlowLayoutPanel (هنا)
ربما تستفيد منه ..
وهذا الكائن فيك تجعل له خصائص عدة من أحداث جديدة أو تستفيد من أحداثه الموجودة مع كل جزء منه..
بالتجريب فيك تعرف هل يفيدك أم لا وكم فيك راح تقدر تعمل عليه تطوير..
بالتوفيق ..