منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طلب كود تعامل مع الاحداث على link label

بدى طريقة اضيف احداث مختلفة لكل link label فى المثال التالى

كود :

Dim aa As Integer = 0

       For a As Integer = 1 To 3

           Dim li As New LinkLabel

           aa = aa + 20

           li.Location = New Point(10, 10 + aa)

           li.Text = "li" + a.ToString

           Controls.Add(li)

       Next

من الكود السابق هيظهر 3 link label
عايز احط موقع مختلف لكلlink labe لما ادوس على كل link labe
يعنى لو دست على لنك الاول يودينى موقع
ولو دست على اللنك الثانى يودينى موقع مختلف

PHP كود :

Public Class Form1

    Dim links As New List(Of String)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("منتدى فيجوال بيسك لكل العرب")
        links.Add("http://vb4arb.com")

        ListBox1.Items.Add("الفريق العربي للبرمجة")
        links.Add("http://arabteam2000-forum.com/")

        ListBox1.Items.Add("المحيط العربي للبرمجة")
        links.Add("http://www.arabmoheet.net")

        ListBox1.Items.Add("يوتيوب")
        links.Add("http://www.youtube.com")


        ListBox1.Items.Add("تويتر")
        links.Add("http://www.twitter.com")


        ListBox1.Items.Add("فيس بوك")
        links.Add("http://www.facebook.com")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim p As Integer = 0
        For a = 0 To ListBox1.Items.Count - 1
            Dim lnk As New LinkLabel
            lnk.Cursor = Cursors.Hand
            With lnk
                .Text = ListBox1.Items.Item(a).ToString
                .Top = p
                .Width = Panel1.Width
            End With
            Panel1.Controls.Add(lnk)
            p += lnk.Height
            AddHandler lnk.Click, AddressOf gotourl

        Next
    End Sub
    Private Sub gotourl(sender As Object, e As EventArgs)
        MsgBox(links(ListBox1.Items.IndexOf(sender.text)))

        Process.Start(links(ListBox1.Items.IndexOf(sender.text)))
    End Sub
End Class 

تحديث
بدل حدث الزر بهذا

PHP كود :

       Dim p As Integer = 0
        For a = 0 To ListBox1.Items.Count - 1
            Dim lnk As New LinkLabel
            lnk.Cursor = Cursors.Hand
            With lnk
                .Text = ListBox1.Items.Item(a).ToString
                .Top = p
                .AutoSize = True
            End With
            Panel1.Controls.Add(lnk)
            p += lnk.Height
            AddHandler lnk.Click, AddressOf gotourl
        Next 

الف شكر اخى
بس الحقيقة معرفتش اطبق الكود زى مكنت عايز

فى المرفقات البرنامج الى عايز اعدل علية

وقفت معى مشكلة الروابط

الصراحة مافهمت من مشروعك شي
السؤال شكل والمشروع شكل ثاني

المشروع عبارة عن 2 form

form الاول
يعرض صورة للموقع و الرابط تبعو
من خلل قاعدة بيانات

form الثانية
تتيح لك اضاقة موقع جديد
__________________________________
المشكلة معى فى form1
مش عارف اخلى LinkLabel يودينى على الموقع الفعلى

ممتاز الحين الفكرة اتضحت.
لكن مستغرب مشروعك الفورم Form1 مافيه الا زر واحد والغريب ان حدث Form1_load فيه اكواد ولم يظهر اي خطا بسبب عدم وجود الادوات.

شوف المرفق مثال بسيط جدا

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

(28-08-16, 12:13 AM)test123 كتب : [ -> ]الف شكر اخى
وهوا المطلوب
بس ما فى طريقة اضيف احداث على link
فى المثال العندى ؟

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

نسخة جديدة

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

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 

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

test123

سعود

test123

سعود

test123

سعود

test123

سعود

test123

أبو عمر