تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة ف FlowLayoutPanel1
#1
السلام عليكم 


اريد تعديل علي هذا الكود بحيث اريد ان اضيف حدث لكل زر يظهر بان يعطيني الرابط lineArray(2) لكل زر ف textbox 
وكلما اضفت ازرار ينفذ هذا الحدث دون ان اعدل علي الكود مرة اخري ؟ 
هذه الكود رايته ف موضوع هنا للاخ trakktour والصراحة استفدت منه كثير ولن لم استطيع تنفيذ ما اريد هل يمكني لاحد ان يساعدني ؟
كود :
Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1
   Dim v2 As String


   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim webClient2 As WebClient = New WebClient()
       v2 = webClient2.DownloadString("https://pastebin.com/raw/tN3JvvmP")

       Dim MoSami() As String = v2.Split(vbNewLine)
       For Each line As String In MoSami
           Dim lineArray() As String = line.Split("#")
           '
           Dim mpnl As New Panel
           mpnl.Width = 150
           mpnl.Height = 190

           Dim mPic As New PictureBox
           '
           mPic.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(lineArray(1))))
           mPic.Width = 150
           mPic.Height = 150
           mPic.Name = lineArray(1)
           mPic.BorderStyle = BorderStyle.FixedSingle
           mPic.SizeMode = PictureBoxSizeMode.Zoom
           mpnl.Controls.Add(mPic)

           Dim bt As New Button
           bt.Width = 150
           bt.Height = 40
           bt.Text = (lineArray(0).Trim)
           bt.Name = (lineArray(1))
           bt.Location = New Point(0, mPic.Height)
           bt.FlatStyle = FlatStyle.Standard
           bt.TextAlign = ContentAlignment.MiddleCenter

           mpnl.Controls.Add(bt)

           FlowLayoutPanel1.Controls.Add(mpnl)
       Next
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   End Sub
End Class


الملفات المرفقة
.rar   MoSami.rar (الحجم : 69.21 ك ب / التحميلات : 1)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لدي مشكلة فى استخدام اداة Chart nabil.1710 1 42 16-09-20, 01:14 AM
آخر رد: حريف برمجة
  مشكلة كتابة نص في text box kofa 4 1,128 15-09-20, 10:54 PM
آخر رد: معاند الحظ
  [VB.NET] مشكلة تعليق البرنامج عند العمل ميدو الفنان 6 164 11-09-20, 09:00 PM
آخر رد: T 1
Exclamation مشكلة في تثبيت Visual Studio 2013 YousefOkasha 9 2,598 11-09-20, 08:48 PM
آخر رد: حريف برمجة
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 83 09-09-20, 01:33 PM
آخر رد: momani33
  مشكلة عند حفظ البيانات في قاعدة بيانات SQL Server momani33 4 170 08-09-20, 03:44 PM
آخر رد: Hasaneen
  [سؤال] مشكلة عرض بيانات الاكسيل في الكريستال الريبورت i1982 3 148 07-09-20, 12:24 PM
آخر رد: Hasaneen
  مشكلة فى اضافة البيانات ممكن المساعدة talatm 7 306 04-09-20, 04:10 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] مشكلة في عدم تثبيت crystal reprot 27 msi 32 bit rochdi191 3 152 31-08-20, 12:26 AM
آخر رد: Emam emam
  مشكلة في عمل ابديت لجدول بسبب التاريخ ارجو المساعدة stiger 2 185 24-08-20, 04:40 PM
آخر رد: stiger

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


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