منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكل في اظهار قيمة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكل في اظهار قيمة (/showthread.php?tid=32280)



مشكل في اظهار قيمة - trakktour - 28-11-19

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

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



RE: مشكل في اظهار قيمة - 3booody - 28-11-19

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

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



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


RE: مشكل في اظهار قيمة - trakktour - 28-11-19

(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



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


RE: مشكل في اظهار قيمة - 3booody - 29-11-19

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

كود :
"Google#Youtube#facebook#vb4arb#NewLink#URL"


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


RE: مشكل في اظهار قيمة - trakktour - 29-11-19

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

كود :
"Google#Youtube#facebook#vb4arb#NewLink#URL"


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