تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكل في اظهار قيمة
#1
السلام عليكم ان شاء الله تكونو بألف خير

عندي مشكل احبابي في الله
و هو بعد اضافتي ل مجموعة 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 , 3booody , حريف برمجة , حريف برمجة , asemshahen5
#2
السلام عليكم ورحمة الله وبركاته

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



لاحظ اختصرتلك الروابط
بالتوفيق
الرد
#3
(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



لاحظ اختصرتلك الروابط
بالتوفيق
شكرا حبيبي ربي يحفظك
و لكن هناك مشكل اخرى لاني سأضع روابط اخرى غير الي نشرتهم
الرد
تم الشكر بواسطة: asemshahen5 , حريف برمجة , 3booody , 3booody
#4
اي اخي فقط ضيف الرابط هنا

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


لكن بدون www و com
هذا فقط بحالة اذا الرابط بهذا الشكل
الرد
تم الشكر بواسطة: asemshahen5 , حريف برمجة , trakktour
#5
(29-11-19, 10:29 AM)3booody كتب : اي اخي فقط ضيف الرابط هنا

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


لكن بدون www و com
هذا فقط بحالة اذا الرابط بهذا الشكل
ربي يحفظك يا فنان 
شكراااااا لك
الرد
تم الشكر بواسطة: 3booody



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم