تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إضافة وصلات ويب وبريد الكتروني لنافذتك
#1
كاتب الموضوع : samerselo

أداة LinkLabel
إضافة وصلات ويب وبريد الكتروني لنافذتك

تمكنك هذه الأداة من إضافة وصلات ويب لمشروعك كما يمكنك تحديد وصلة أو أكثر ضمن النص الظاهر فيه
• ضع LinkLabel على النافذة حتى نقوم بالتجريب
1. اضبط الخاصية Text لـ LinkLabel إلى أي عنوان موقع مثلا www.vb4arab.com ثم انتقل إلى محرر الكود وفي الخاصية LinkClicked للتحكم LinkLabel اكتب الكود التالي حيث استخدمنا Process.Start بالصيغة
Process.Start (String) التي تقوم بتشغيل برنامج أو وثيقة حسب السلسلة النصية الممررة لها لفتح الموقع المراد

كود :
Process.Start(Me.LinkLabel1.Text)
2. ولتحديد وصلة لإرسال بريد الكتروني اضبط الخاصية Text إلى أي عنوان بريد الكتروني تريد مثلا "someone@yahoo.com" وعدل الكود السابق إلى

كود :
Process.Start("mailto:" & Me.LinkLabel1.Text)
3. كما يمكن إضافة العديد من الوصلات في نفس التحكم وذلك بجعل القيمتان Start و Length المرتبطتين بالخاصية LinkArea إلى الصفر وإضافة الوصلات إلى الخاصية Links برمجيا حيث نستخدم الطريقة Add للخاصية Links للتحكم LinkLabel لإضافة الوصلات للتحكم حيث تملك الطريقة Add ثلاث طرائق Overloaded وهي
• إضافة وصلة من نوع LinkLabel.Link

كود :
LinkLabel.Links.Add (LinkLabel.Link)
• إضافة وصلة بتحديد مجال محارف من النص الظاهر في التحكم

كود :
LinkLabel.Links.Add (Int32, Int32)
• إضافة وصلة بتحديد مجال محارف من النص الظاهر في التحكم كاسم للوصلة وتمرير عنوان الوصلة كمتغير Object

كود :
LinkLabel.Links.Add (Int32, Int32, Object)
4. اضبط الخاصية text للتحكم إلى Try at Yahoo or at Arab team or Email me و ضع القيم Start و Length المرتبطتين بالخاصية LinkArea كلاهما إلى الصفر ثم في الحدث Load للنموذج ضع الكود التالي حيث استخدمنا الصيغة الأخيرة للطريقة Add

كود :
With Me.LinkLabel1
.Links.Add(7, 5, "www.yahoo.com")
.Links.Add(19, 9, "www.arabteam2000.com")
.Links.Add(32, 8, "mailto:someone@yahoo.com")
End With
5. الآن لتشغيل كل وصلة عند النقر عليها غير الكود الموجود ضمن الحدث LinkClicked للتحكم LinkLabel إلى

كود :
Dim Url As String = CStr(e.Link.LinkData)
Process.Start(Url)
وهنا لم نعد نستخدم الخاصية Text للتحكم كما فعلنا في المثال الأول بل نستخدم خصائص البارامتر e الذي هو من النوع LinkLabelLinkClickedEventArgs للحصول على عنوان الموقع أو البريد الالكتروني الذي نريده وذلك من خلال الخاصية e.Link.LinkData التي هي من النوع Object حيث نقوم بتحويلها إلى String قبل تمريرها لوظيفة Process.start كقيمة نصية
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox sooriaty03 9 2,901 11-02-16, 10:47 PM
آخر رد: العواد الصغير
  الإصدار الاول من إضافة الرسائل ( Msge ) والصور مجانآ ali.alfoly 12 1,682 25-05-13, 01:10 PM
آخر رد: shaker.soft
  تعلم إضافة ألعاب الفلاش و مقاطع الفيديو الفلاشية إلى برنامجك Aly El-Haddad 1 764 13-04-13, 06:46 PM
آخر رد: Sajad
  عمل ملف Setup لتنصيب برنامجك + إضافة برامج أساسية ظمن عملية التنصيب(شرح بالصور) RaggiTech 0 1,677 05-10-12, 02:25 AM
آخر رد: RaggiTech
  درس -- تعلم إضافة الضبابية للصور - بواسطة فلتر ال Blur - مع مثال توضيحي RaggiTech 0 374 03-10-12, 02:03 PM
آخر رد: RaggiTech
  تعقب إضافة وإزالة الأقراص المرتبطة عبر منفذ Usb RaggiTech 2 461 03-10-12, 09:25 AM
آخر رد: RaggiTech
  إضافة أيقونة البرنامج إلى شريط المهام وعمل قائمة عند الضغط عليها RaggiTech 0 512 02-10-12, 12:57 AM
آخر رد: RaggiTech
  إضافة أدوات على الفورم وقت التشغيل مع إضافة الأحداث كلها....متجدد RaggiTech 0 455 02-10-12, 12:43 AM
آخر رد: RaggiTech
  إرسال بريد إلكتروني بتنسيق html + إضافة ملفات مرفقة للرسالة (شرح بالصور) RaggiTech 1 1,093 02-10-12, 12:32 AM
آخر رد: RaggiTech
  $$$$ إضافة رقم تسلسلي لنتائج استعلام في تقرير CrystalReport $$$$ RaggiTech 0 414 01-10-12, 03:01 PM
آخر رد: RaggiTech

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


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