28-11-19, 07:59 PM
السلام عليكم ان شاء الله تكونو بألف خير
عندي مشكل احبابي في الله
و هو بعد اضافتي ل مجموعة button
عند الضغط على واحد منهم لا يظهر msgbox المطلوب بل يظهر اخر واحد
ممكن تعديل على الكود و شكرا
عندي مشكل احبابي في الله
و هو بعد اضافتي ل مجموعة button
عند الضغط على واحد منهم لا يظهر msgbox المطلوب بل يظهر اخر واحد
ممكن تعديل على الكود و شكرا
كود :
Dim trakktour As String = "Google%www.google.com#Youtube%www.youtube.com#facebook%www.facebook.coom#vb4arb%www.vb4arb.com"
Dim array As String() = trakktour.Split(New String() {"#"}, StringSplitOptions.None)
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
For i As Integer = 0 To array.Count - "1"
Dim bt As Button = New Button
bt.Text = System.Text.RegularExpressions.Regex.Match(array(i), "(.+?.+)%").Groups.Item(1).Value
ff = System.Text.RegularExpressions.Regex.Match(array(i), "%(.+?.+)").Groups.Item(1).Value
bt.Location = New Point(6, i * (bt.Height + "7"))
Panel1.Controls.Add(bt)
AddHandler bt.Click, AddressOf trakk
Next
End Sub
Public Sub trakk()
MsgBox(ff)
End Sub