منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

الخطأ الي عندك بسبب ال 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

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

(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

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

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

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

كود :

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

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

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

كود :

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

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

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