تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب كود تعامل مع الاحداث على link label
#1
بدى طريقة اضيف احداث مختلفة لكل 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
يعنى لو دست على لنك الاول يودينى موقع
ولو دست على اللنك الثانى يودينى موقع مختلف
الرد }}}}
تم الشكر بواسطة: سعود
#2
PHP كود :
Public Class Form1

    Dim links 
As New List(Of String)
 
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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
.ClickAddressOf gotourl

        Next
    End Sub
    Private Sub gotourl
(sender As ObjectAs 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
.ClickAddressOf gotourl
        Next 


الملفات المرفقة
.zip   For_test123.zip (الحجم : 33.51 ك ب / التحميلات : 18)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: أبو عمر , test123
#3
الف شكر اخى
بس الحقيقة معرفتش اطبق الكود زى مكنت عايز

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

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


الملفات المرفقة
.rar   test.rar (الحجم : 127.01 ك ب / التحميلات : 9)
الرد }}}}
تم الشكر بواسطة:
#4
الصراحة مافهمت من مشروعك شي
السؤال شكل والمشروع شكل ثاني
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: test123
#5
المشروع عبارة عن 2 form

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

form الثانية
تتيح لك اضاقة موقع جديد
__________________________________
المشكلة معى فى form1
مش عارف اخلى LinkLabel يودينى على الموقع الفعلى
الرد }}}}
تم الشكر بواسطة: سعود
#6
ممتاز الحين الفكرة اتضحت.
لكن مستغرب مشروعك الفورم Form1 مافيه الا زر واحد والغريب ان حدث Form1_load فيه اكواد ولم يظهر اي خطا بسبب عدم وجود الادوات.

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



الملفات المرفقة
.zip   ForOneInMyHeart.zip (الحجم : 53.79 ك ب / التحميلات : 9)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: test123 , test123
#7
الف شكر اخى
وهوا المطلوب
بس ما فى طريقة اضيف احداث على link
فى المثال العندى ؟
الرد }}}}
تم الشكر بواسطة:
#8
(28-08-16, 12:13 AM)test123 كتب : الف شكر اخى
وهوا المطلوب
بس ما فى طريقة اضيف احداث على link
فى المثال العندى ؟

العفو
المشكلة انو مش فاهم مثالك احسو ملخبط.
لو امكن تعمل واحد جديد وتركز شوية على الفكرة المهمة وتسيب الافكار التانية.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: test123 , test123
#9
نسخة جديدة


الملفات المرفقة
.rar   test.rar (الحجم : 139.96 ك ب / التحميلات : 6)
الرد }}}}
تم الشكر بواسطة:
#10

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

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.ObjectByVal e As System.EventArgsHandles MyBase.Load


        Dim cmd 
As New OleDbCommand
        Dim a 
As String

        cmd 
= New OleDbCommand("select max(id) from test "con)
        
con.Open()
        
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.ClickAddressOf HandleDynamicButtonClick
        Next
        
'ــــــــــــــــــــــــــــــــــــ
    End Sub

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




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

End 
Class 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up For New user like me "Transparant Label control" أبو عمر 0 299 15-09-15, 05:03 PM
آخر رد: أبو عمر

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


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