[trakktour]

السلام عليكم ان شاء الله تكونو بألف خير

عندي مشكل احبابي في الله
و هو بعد اضافتي ل مجموعة 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

[3booody]

السلام عليكم ورحمة الله وبركاته

الخطأ الي عندك بسبب ال Regex

على العموم هذه فكرة افضل لك

اولآ استخدم الاداة FlowLayoutPanel هي ترتبلك الازرار ماتحتاج ترتبهم عن طريق الكود

وضع هذا الكود

كود :

Dim trakktour As String = "Google#Youtube#facebook#vb4arb"
   Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
       Dim btn As Button = Nothing
       For i As Integer = 0 To trakktour.Split("#").Count - 1
           btn = New Button
           btn.Text = trakktour.Split("#")(i)
           FlowLayoutPanel1.Controls.Add(btn)
           AddHandler btn.Click, AddressOf trakk
       Next
   End Sub
   Sub trakk(ByVal sender As Object, ByVal e As EventArgs)
       MsgBox("www." & sender.text & ".com")
   End Sub

لاحظ اختصرتلك الروابط
بالتوفيق

[trakktour]

(28-11-19, 08:32 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته

الخطأ الي عندك بسبب ال Regex

على العموم هذه فكرة افضل لك

اولآ استخدم الاداة FlowLayoutPanel هي ترتبلك الازرار ماتحتاج ترتبهم عن طريق الكود

وضع هذا الكود

كود :

Dim trakktour As String = "Google#Youtube#facebook#vb4arb"
   Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
       Dim btn As Button = Nothing
       For i As Integer = 0 To trakktour.Split("#").Count - 1
           btn = New Button
           btn.Text = trakktour.Split("#")(i)
           FlowLayoutPanel1.Controls.Add(btn)
           AddHandler btn.Click, AddressOf trakk
       Next
   End Sub
   Sub trakk(ByVal sender As Object, ByVal e As EventArgs)
       MsgBox("www." & sender.text & ".com")
   End Sub

لاحظ اختصرتلك الروابط
بالتوفيق

شكرا حبيبي ربي يحفظك
و لكن هناك مشكل اخرى لاني سأضع روابط اخرى غير الي نشرتهم

[3booody]

اي اخي فقط ضيف الرابط هنا

كود :

"Google#Youtube#facebook#vb4arb#NewLink#URL"

لكن بدون www و com
هذا فقط بحالة اذا الرابط بهذا الشكل

[trakktour]

(29-11-19, 10:29 AM)3booody كتب : اي اخي فقط ضيف الرابط هنا

كود :

"Google#Youtube#facebook#vb4arb#NewLink#URL"

لكن بدون www و com
هذا فقط بحالة اذا الرابط بهذا الشكل

ربي يحفظك يا فنان 
شكراااااا لك