[أبو عمر]

حاولت على السريع بس تحتاج شوي تفكير عمل حدث كلك لكن المشكلة ياخذ اخر قيمة من الروابط
ولو انك تستخدم اي اداة جاهزة مثلا ليست او ليست فيو كان افضل لو فرضنا صار عدد الروابط خمس مية كيف راح يكون شكل الفورم؟

PHP كود :

Imports System.Data.OleDb
Imports System.IO

Public Class Form1
    Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb")
    Dim li As LinkLabel
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim cmd As New OleDbCommand
        Dim a As String

        cmd = New OleDbCommand("select max(id) from test ", con)
        con.Open()
        a = cmd.ExecuteScalar




        'ــــــــــــــــــــــــــــــــــــــــــــــ


        'وهوارقم صفر a1حلقة تكرارية تبداء من 
        'فى قاعدىة البيانات idوهوا  اخر رقم فى حقل   a تنتهى عند
        For a1 As Integer = 0 To a - 1
            li = New LinkLabel
            'link  على انها  li الاعلان عن 


            'من خللو بستطيع وضع مسافات بين كل لنك فى مرحلة التشغيل int الاعلان عن 
            Dim int As Integer
            int = int + 50

            li.Location = New Point(10, 0 + int - 30)
            li.Text = a1
            Controls.Add(li)

            'ادراج قيمة كل لينك
            Dim dtp As New OleDbDataAdapter("select * from test ", con)
            Dim ds As New DataSet
            dtp.Fill(ds, "ur")
            li.Text = ds.Tables(0).Rows(a1).Item(1)

            AddHandler li.Click, AddressOf HandleDynamicButtonClick
        Next
        'ــــــــــــــــــــــــــــــــــــ
    End Sub

    'المطلوب لما ادوس على اى لنك يودينى على الموقع 




    Private Sub HandleDynamicButtonClick(ByVal sender As Object, ByVal e As EventArgs)
        Dim btn As LinkLabel = DirectCast(sender, LinkLabel)
        Process.Start(li.Text)
    End Sub

End Class