24-03-20, 11:02 PM
السلام عليكم
اريد تعديل علي هذا الكود بحيث اريد ان اضيف حدث لكل زر يظهر بان يعطيني الرابط lineArray(2) لكل زر ف textbox
وكلما اضفت ازرار ينفذ هذا الحدث دون ان اعدل علي الكود مرة اخري ؟
هذه الكود رايته ف موضوع هنا للاخ trakktour والصراحة استفدت منه كثير ولن لم استطيع تنفيذ ما اريد هل يمكني لاحد ان يساعدني ؟
اريد تعديل علي هذا الكود بحيث اريد ان اضيف حدث لكل زر يظهر بان يعطيني الرابط 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