02-06-24, 12:34 AM
PHP كود :
Private Sub LoadData()
FlowLayoutPanel1.Controls.Clear()
If _action = "StartUp" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where ProductNameA like '%" & TextSerch.Text & "%' ", conn)
If _action = "Search1" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where id_Proudect_items =" & _query1 & "", conn)
conn.Open()
rdr = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
While rdr.Read
Dim len As Long = rdr.GetBytes(0, 0, Nothing, 0, 0)
Dim array(CInt(len)) As Byte
rdr.GetBytes(0, 0, array, 0, CInt(len))
pic = New PictureBox
pic.Width = 150
pic.Height = 150
pic.BackgroundImageLayout = ImageLayout.Stretch
pic.Tag = rdr.Item("ID").ToString
AddHandler pic.Click, AddressOf lblD_Click
'-----------------------------------------------------
lblD1 = New Label
lblD1.Font = New Font("Tahoma", 10, FontStyle.Bold)
lblD1.ForeColor = Color.FromArgb(72, 4, 156)
lblD1.BackColor = Color.GhostWhite
lblD1.Dock = DockStyle.Top
lblD1.Tag = rdr.Item("ID").ToString
lblD1.Text = rdr.Item("ID").ToString
'-----------------------------------------------------
lblD = New Label
lblD.Font = New Font("Tahoma", 9, FontStyle.Bold)
lblD.ForeColor = Color.FromArgb(72, 4, 156)
lblD.BackColor = Color.GhostWhite
lblD.Dock = DockStyle.Bottom
lblD.Tag = rdr.Item("ID").ToString
lblD.Text = rdr.Item("ProductNameE").ToString & "-" & rdr.Item("ProductNameA").ToString
AddHandler lblD.Click, AddressOf lblD_Click
'-----------------------------------------------------
Dim ms As New System.IO.MemoryStream(array)
Dim bitmap As New System.Drawing.Bitmap(ms)
pic.BackgroundImage = bitmap
'-----------------------------------------------------
pic.Controls.Add(lblD)
pic.Controls.Add(lblD1)
FlowLayoutPanel1.Controls.Add(pic)
'--------------------------------------------------------------------------------------------------------------
End While
rdr.Close()
conn.Close()
FlowLayoutPanel1.AutoScroll = True
