منتديات الطرف - عرض مشاركة واحدة

دمعة فرح · 04-05-2003, 04:33 PM

لو أردت أن تضع نصاً له ارتباط تشعبي .. فماذا عليك أن تصنع ؟! في برنامج الفرونت بيج المسألة سهلة ، وكذلك في الوورد ...
ولكن في الفيجول .. عليك العمل بهكذا عمل ..

الخطوة الأولى
قم بالإعلان عن هذا الإجراء .. إما على مستوى البرنامج ( وذلك بوضعه في نموذج Module ) أو على مستوى نافذة Form وذلك بوضعه في General تحت الحدث Declarations ..

وهذا الإجراء هو :
Option Explicit
Private Declare Function ****lExecute Lib "****l32.dll" Alias "****lExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

الخطوة الثانية
ضع أداة العنوان Lable على نافذتك واكتب فيها اسم الموقع الذي تريد أن تضع له ارتباط .. مثلاً : ياقوت المحبة

الخطوة الثالثة
اختر الحدث Click لهذا العنوان Lable واكتب هذا الأمر :
****lExecute Me.hwnd, "open", "http://www.yaqotm.cjb.net", "", "", 1

حيث أن العنوان www.yaqotm.cjb.net هو العنوان الذي سيفتح إذا نقرت على أداة العنوان ..

أرجو أن يكون الأمر واضحاً ومفيداً.. تحياتي ..

04-05-2003, 04:33 PM	رقم المشاركة : 16
دمعة فرح طرفاوي مشارك	كيف تضع ارتباط تشعبي للإنترنت في الفيجول ؟!! لو أردت أن تضع نصاً له ارتباط تشعبي .. فماذا عليك أن تصنع ؟! في برنامج الفرونت بيج المسألة سهلة ، وكذلك في الوورد ... ولكن في الفيجول .. عليك العمل بهكذا عمل .. الخطوة الأولى قم بالإعلان عن هذا الإجراء .. إما على مستوى البرنامج ( وذلك بوضعه في نموذج Module ) أو على مستوى نافذة Form وذلك بوضعه في General تحت الحدث Declarations .. وهذا الإجراء هو : Option Explicit Private Declare Function **lExecute Lib "l32.dll" Alias "lExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long الخطوة الثانية ضع أداة العنوان Lable على نافذتك واكتب فيها اسم الموقع الذي تريد أن تضع له ارتباط .. مثلاً : ياقوت المحبة الخطوة الثالثة اختر الحدث Click لهذا العنوان Lable واكتب هذا الأمر : lExecute Me.hwnd, "open", "http://www.yaqotm.cjb.net", "", "", 1 حيث أن العنوان www.yaqotm.cjb.net هو العنوان الذي سيفتح إذا نقرت على أداة العنوان .. أرجو أن يكون الأمر واضحاً ومفيداً.. تحياتي .. توقيع دمعة فرح** :