13-12-19, 06:25 AM
السلام عليكم
انا استعمل اداة flowlayoutpanel كل شيء تمام و لكن واجهت مشكلة
و هي عند اضافة الازرار الاسماء ما تأتي في الوسط
هذا الكود الي استعملته
انا استعمل اداة flowlayoutpanel كل شيء تمام و لكن واجهت مشكلة
و هي عند اضافة الازرار الاسماء ما تأتي في الوسط
هذا الكود الي استعملته
كود :
Dim webClient2 As WebClient = New WebClient()
v2 = webClient2.DownloadString("https://pastebin.com/raw/MPYXW1J7")
Dim trakktour() As String = v2.Split(vbNewLine)
For Each line As String In trakktour
Dim lineArray() As String = line.Split("#")
'
Dim mpnl As New Panel
mpnl.Width = 150
mpnl.Height = 190
Dim mPic As New PictureBox
'
mPic.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(lineArray(1))))
mPic.Width = 150
mPic.Height = 150
mPic.Name = lineArray(1)
mPic.BorderStyle = BorderStyle.FixedSingle
mPic.SizeMode = PictureBoxSizeMode.Zoom
mpnl.Controls.Add(mPic)
Dim bt As New Button
bt.Width = 150
bt.Height = 40
bt.Text = (lineArray(0))
bt.Name = (lineArray(1))
bt.Location = New Point(0, mPic.Height)
bt.FlatStyle = FlatStyle.Standard
TextBox1.Text = lineArray(0)
bt.TextAlign = ContentAlignment.MiddleCenter
mpnl.Controls.Add(bt)
FlowLayoutPanel1.Controls.Add(mpnl)
Next