المجلس اليمني ... يمن واحد وآراء متعددة
::  قوانين المنتدى  |   طلب رقم التنشيط   |   تنشيط العضوية  |  استعادة كلمة المرور
العودة   المجلس اليمني :: العلمية والتقنية :: الكمبيـوتر والانتـرنت :: المواقع ولغات البرمجة والشبكات
|
 
أدوات الموضوع
قديم 29-04-2004, 01:13 PM   مشاركة رقم : 1
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 09-07-2003
المشاركات: 128

افتراضي بالفجوال : فتح صفحة انترنت + ارسال بريد الكتروني

السلام عليكم ورحمة الله و بركاتة

اذا كنت من مصممي البرامج( الفجولية أو غيرها ) فلا بد انك تحتاج في
برامجك وصلات تمكن المستخدم من مراسلتك أو من فتح صفحاتك في الوب

هنا سوف نقوم بعمل الآتي:

- افتح مشروع جديد و في الفورم أذهب إلى قسم التصريحات
العامة و أكتب الكود التالي

[align=left]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
Const SW_SHOWNORMAL = 1[/align]

- بعد ذلك قم بتوضيع عنوانين (Tow Labels )
وقم بإعطاء هاذين العنوانين من الخاصية (mouseIcon) الايقونات التي تراها مناسبة
من أجل التأشير عند تحريك الماوس على أي من العنوانين
وبعد ذلك ستكون خاصية (caption) هي اسماء البريد الالكتروني وكذلك صفحة الانترنت المراد فتحها.


1 – حدث النقر على عنوان الصفحة وستكون لصفحة المجلس اليمني


[align=left]Private Sub Label1_Click()
link = ****lExecute(hwnd, "Open", "http://www.al-yemen.com", &O0, &O0, SW_NORMAL)
End Sub[/align]
2 – حدث النقر على عنوان البريد الالكتروني


[align=left]Private Sub Label2_Click()
mail = ****lExecute(hwnd, vbNullString, "mailto:alhammady203597@hotmail.com", vbNullString, "C:\", SW_SHOWNORMAL)
End Sub[/align]



أرجو تجريب البرنامج واي ملاحظات تسجيلها.

سلاااااااااام
أخوكم : الحمادي.

  رد مع اقتباس
قديم 29-04-2004, 05:15 PM   مشاركة رقم : 2
عضو نشيط
 
لا توجد صورة

 
تاريخ التسجيل: 16-12-2003
المشاركات: 282

افتراضي

مشكور اخي الحمادي .,.,.,.,

راح اجربه إن شاء الله .......

  رد مع اقتباس
قديم 29-04-2004, 09:31 PM   مشاركة رقم : 3
مشرف سابق

الصورة الرمزية العمراوي

 
تاريخ التسجيل: 24-11-2002
المشاركات: 7,559

افتراضي

موضوع جميل ,.,.,.,

لاتحرمنا من جديدك .,.,.,.,

  رد مع اقتباس
قديم 30-04-2004, 12:40 PM   مشاركة رقم : 4
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 09-07-2003
المشاركات: 128

افتراضي

مشكورين اخواني على الاهتمام...............

  رد مع اقتباس
قديم 30-04-2004, 05:35 PM   مشاركة رقم : 5
عضو فعّال
 
لا توجد صورة

 
تاريخ التسجيل: 08-12-2003
المشاركات: 527

افتراضي

أكواد حلوه يالحمادي ...

  رد مع اقتباس
قديم 06-05-2004, 06:49 PM   مشاركة رقم : 6
عضو نشيط
 
لا توجد صورة

 
تاريخ التسجيل: 12-04-2004
المشاركات: 487

افتراضي

اقتباس الرّسالة الأصليّة كتبت بواسطة نجيب المجيدي
أكواد حلوه يالحمادي ...


  رد مع اقتباس
قديم 07-05-2004, 04:04 AM   مشاركة رقم : 7
عضو متميّز
 
لا توجد صورة

 
تاريخ التسجيل: 15-01-2004
المشاركات: 1,526

افتراضي

موضوع جميل ,.,.,.,

لاتحرمنا من جديدك .,.,.,.,

  رد مع اقتباس
إضافة رد

أدوات الموضوع

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

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.