تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة ف FlowLayoutPanel1
#1
السلام عليكم 


اريد تعديل علي هذا الكود بحيث اريد ان اضيف حدث لكل زر يظهر بان يعطيني الرابط lineArray(2) لكل زر ف textbox 
وكلما اضفت ازرار ينفذ هذا الحدث دون ان اعدل علي الكود مرة اخري ؟ 
هذه الكود رايته ف موضوع هنا للاخ trakktour والصراحة استفدت منه كثير ولن لم استطيع تنفيذ ما اريد هل يمكني لاحد ان يساعدني ؟
كود :
Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1
   Dim v2 As String


   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim webClient2 As WebClient = New WebClient()
       v2 = webClient2.DownloadString("https://pastebin.com/raw/tN3JvvmP")

       Dim MoSami() As String = v2.Split(vbNewLine)
       For Each line As String In MoSami
           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
           bt.TextAlign = ContentAlignment.MiddleCenter

           mpnl.Controls.Add(bt)

           FlowLayoutPanel1.Controls.Add(mpnl)
       Next
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   End Sub
End Class


الملفات المرفقة
.rar   MoSami.rar (الحجم : 69.21 ك ب / التحميلات : 18)
الرد }}}
تم الشكر بواسطة:



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


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