تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكل في flowlayoutpanel
#1
السلام عليكم 
انا استعمل اداة 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
الرد
تم الشكر بواسطة: asemshahen5
#2
من فتح الكود توقعت ماكو خطأ واستغربت لكن فهمت ان النص المحمل يحتوي على فراغات عدلتلك تعديل بسيط جدآ فقط ضفتلك Trim


كود :
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).Trim) 'التغيير هنا
           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
الرد
#3
(13-12-19, 12:53 PM)3booody كتب : من فتح الكود توقعت ماكو خطأ واستغربت لكن فهمت ان النص المحمل يحتوي على فراغات عدلتلك تعديل بسيط جدآ فقط ضفتلك Trim


كود :
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).Trim) 'التغيير هنا
           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

حبيبي يا فنان ربي يحفظك و يعطيك ما تتمنى  Heart Heart
الرد
تم الشكر بواسطة: 3booody , asemshahen5 , عبد العزيز البسكري



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم