تقييم الموضوع :
  • 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 كقيمة نصية
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة و نسخ الخطوط الخاصّة لمجلّد خطوط الوينداوز عبد العزيز البسكري 2 3,700 08-05-23, 12:03 AM
آخر رد: ابو محمد محمد محمد
  [مقال] إضافة تقارير Crystal report إلى فيجوال 2010 اسامه الهرماوي 3 5,304 05-10-21, 01:38 PM
آخر رد: mohameddahab867
  [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox sooriaty03 10 12,034 21-03-21, 09:53 PM
آخر رد: عبد الهادي بهاب
  طريقة إضافة اختصار للصنف في شاشة المبيعات ملهمـ 5 5,905 14-07-20, 12:24 PM
آخر رد: ابراهيم ايبو
  إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج عبد العزيز البسكري 11 7,248 23-01-19, 08:35 PM
آخر رد: عبد العزيز البسكري
  [سؤال] ارسال بريد الكتروني في وقت معين تلقائيا coder-22 0 2,074 23-11-17, 12:34 PM
آخر رد: coder-22
  الإصدار الاول من إضافة الرسائل ( Msge ) والصور مجانآ ali.alfoly 12 6,098 25-05-13, 01:10 PM
آخر رد: shaker.soft
  تعلم إضافة ألعاب الفلاش و مقاطع الفيديو الفلاشية إلى برنامجك Aly El-Haddad 1 2,916 13-04-13, 06:46 PM
آخر رد: Sajad
  عمل ملف Setup لتنصيب برنامجك + إضافة برامج أساسية ظمن عملية التنصيب(شرح بالصور) RaggiTech 0 6,917 05-10-12, 02:25 AM
آخر رد: RaggiTech
  درس -- تعلم إضافة الضبابية للصور - بواسطة فلتر ال Blur - مع مثال توضيحي RaggiTech 0 2,454 03-10-12, 02:03 PM
آخر رد: RaggiTech

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


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