Public Sub load_info_sub(ByVal o As Integer)
'Dim flphbr As New ListView
flphbr = New FlowLayoutPanel
flphbr.Name = "flphbr"
TabPage1.AutoScroll = True
flphbr.AutoSize = True
flphbr.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowOnly
flphbr.Width = TabPage1.Width
'flphbr.Height = TabPage1.Height
flphbr.FlowDirection = FlowDirection.TopDown
flphbr.BorderStyle = BorderStyle.FixedSingle
If Not String.IsNullOrWhiteSpace(o) Then
TabPage1.Controls.Add(flphbr)
load_info_type()
load_info(o)
ElseIf String.IsNullOrWhiteSpace(o) Then
Dim lblnot As New Label
lblnot.Text = "لا يوجد بيانات"
lblnot.Width = TabPage1.Width
lblnot.Height = TabPage1.Height
lblnot.TextAlign = ContentAlignment.MiddleCenter
'lblnot.ReadOnly = True
lblnot.Font = New Drawing.Font("Arial", 18)
lblnot.ForeColor = Color.Red
TabPage1.Controls.Add(lblnot)
End If
'''''''''''''''
For a As Integer = 0 To ds.Tables("ccc").Rows.Count - 1
Dim flphed As New FlowLayoutPanel
flphed.Name = "flpHed" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
'flphed.BorderStyle = BorderStyle.FixedSingle
flphed.FlowDirection = FlowDirection.LeftToRight
flphed.AutoSize = True
flphed.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowOnly
'flphed.Width = TabPage1.Width
flphed.Dock = DockStyle.Fill
flphed.BackColor = Color.MediumSeaGreen
'flphed.Height = 40
flphbr.Controls.Add(flphed)
Dim icn As String = "p" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString + ".png"
pic = New PictureBox
pic.Name = "picIcn" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
pic.BorderStyle = BorderStyle.Fixed3D
pic.Size = New Size(30, 30)
pic.SizeMode = PictureBoxSizeMode.StretchImage
' pic.Image = Image.FromFile("pic\" + icn)
flphed.Controls.Add(pic)
Dim lbl As New Label
lbl.Name = "lbl" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
lbl.Text = ds.Tables("ccc").Rows(a).Item("Type_Info_name").ToString
lbl.Font = New Drawing.Font("Arial", 18)
'lbl.AutoSize = True
lbl.Width = 750
lbl.Height = 40
flphed.Controls.Add(lbl)
pic = New PictureBox
pic.Name = "picOpn" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
pic.BorderStyle = BorderStyle.Fixed3D
toltip.SetToolTip(pic, "فتح/إغلاق")
pic.Size = New Size(30, 30)
pic.SizeMode = PictureBoxSizeMode.StretchImage
' pic.Image = Image.FromFile("picOpn.png")
AddHandler pic.Click, AddressOf pic_click
flphed.Controls.Add(pic)
flpBod = New FlowLayoutPanel
flpBod.Name = "flpbod" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
flpBod.AutoSize = True
flpBod.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
flpBod.FlowDirection = FlowDirection.TopDown
flphbr.Controls.Add(flpBod)
For b As Integer = 0 To dt_info.Rows.Count - 1
If dt_info.Rows(b).Item("Info_type").ToString <> ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString Then Continue For
Dim flpInf As New FlowLayoutPanel
flpInf.Name = "flpInf" + dt_info.Rows(b).Item("Info_id").ToString
'flpInf.BorderStyle = BorderStyle.FixedSingle
flpInf.FlowDirection = FlowDirection.LeftToRight
flpInf.AutoSize = True
flpInf.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowOnly
flpInf.Width = TabPage1.Width
'flp2.Height = flp.Height
flpBod.Controls.Add(flpInf)
txtInf = New TextBox
txtInf.Name = "txtInf" + dt_info.Rows(b).Item("Info_id").ToString
txtInf.Width = 715
txtInf.Font = New Drawing.Font("Arial", 13)
txtInf.BorderStyle = BorderStyle.None
txtInf.ReadOnly = True
txtInf.BackColor = TabPage1.BackColor
txtInf.Text = dt_info.Rows(b).Item("Info_text").ToString
If dt_info.Rows(b).Item("Info_fav").Equals(1) Then txtInf.ForeColor = Color.Green
flpInf.Controls.Add(txtInf)
pic = New PictureBox
pic.Name = "picEdt" + dt_info.Rows(b).Item("Info_id").ToString
pic.BorderStyle = BorderStyle.Fixed3D
toltip.SetToolTip(pic, "تعديل")
pic.Size = New Size(30, 30)
pic.SizeMode = PictureBoxSizeMode.StretchImage
' pic.Image = Image.FromFile("picEdt.png")
AddHandler pic.Click, AddressOf pic_click
flpInf.Controls.Add(pic)
pic = New PictureBox
pic.Name = "picEdc" + dt_info.Rows(b).Item("Info_id").ToString
pic.BorderStyle = BorderStyle.Fixed3D
toltip.SetToolTip(pic, "إلغاء")
pic.Visible = False
pic.Size = New Size(30, 30)
pic.SizeMode = PictureBoxSizeMode.StretchImage
' pic.Image = Image.FromFile("picEdc.png")
AddHandler pic.Click, AddressOf pic_click
flpInf.Controls.Add(pic)
pic = New PictureBox
pic.Name = "picDel" + dt_info.Rows(b).Item("Info_id").ToString
pic.BorderStyle = BorderStyle.Fixed3D
toltip.SetToolTip(pic, "حذف")
pic.Size = New Size(30, 30)
pic.SizeMode = PictureBoxSizeMode.StretchImage
' pic.Image = Image.FromFile("picDel.png")
AddHandler pic.Click, AddressOf pic_click
flpInf.Controls.Add(pic)
pic = New PictureBox
pic.Name = "picsav" + dt_info.Rows(b).Item("Info_id").ToString
pic.BorderStyle = BorderStyle.Fixed3D
toltip.SetToolTip(pic, "حفظ")
pic.Visible = False
pic.Size = New Size(30, 30)
pic.SizeMode = PictureBoxSizeMode.StretchImage
' pic.Image = Image.FromFile("picsav.png")
AddHandler pic.Click, AddressOf pic_click
flpInf.Controls.Add(pic)
pic = New PictureBox
pic.Name = "picFav" + dt_info.Rows(b).Item("Info_id").ToString
pic.BorderStyle = BorderStyle.Fixed3D
toltip.SetToolTip(pic, "مفضلة")
pic.Size = New Size(30, 30)
pic.SizeMode = PictureBoxSizeMode.StretchImage
' pic.Image = Image.FromFile("picFav.png")
AddHandler pic.Click, AddressOf pic_click
flpInf.Controls.Add(pic)
Next
flpAdd = New FlowLayoutPanel
flpAdd.Name = "flpAdd" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
flpAdd.FlowDirection = FlowDirection.RightToLeft
flpAdd.AutoSize = True
flpAdd.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
flpBod.Controls.Add(flpAdd)
lbl = New Label
lbl.Name = "lblAdd" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
lbl.Text = "إضافة.."
lbl.ForeColor = Color.Red
AddHandler lbl.Click, AddressOf lbl_click
flpAdd.Controls.Add(lbl)
'''''''''''''''
pic = New PictureBox
pic.Name = "picAdo" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
pic.BorderStyle = BorderStyle.Fixed3D
toltip.SetToolTip(pic, "حفظ")
pic.Visible = False
pic.Size = New Size(30, 30)
pic.SizeMode = PictureBoxSizeMode.StretchImage
'pic.Image = Image.FromFile("picsav.png")
AddHandler pic.Click, AddressOf pic_click
flpAdd.Controls.Add(pic)
pic = New PictureBox
pic.Name = "picAdc" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
pic.BorderStyle = BorderStyle.Fixed3D
toltip.SetToolTip(pic, "إلغاء")
pic.Visible = False
pic.Size = New Size(30, 30)
pic.SizeMode = PictureBoxSizeMode.StretchImage
' pic.Image = Image.FromFile("picDel.png")
AddHandler pic.Click, AddressOf pic_click
flpAdd.Controls.Add(pic)
Dim txtAdd As New TextBox
txtAdd.Name = "txtAdd" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
txtAdd.Visible = False
flpAdd.Controls.Add(txtAdd)
'''''''''''''
Next
End Sub