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

الكاتب : alhammady   المشاهدات : 691   الردود : 6    ‏2004-04-29
      مشاركة رقم : 1    ‏2004-04-29
  1. alhammady

    alhammady عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    119
    الإعجاب :
    0
    السلام عليكم ورحمة الله و بركاتة

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

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

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

    [align=left]Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (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

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


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


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


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



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

    سلاااااااااام
    أخوكم : الحمادي.
     
  2.   مشاركة رقم : 2    ‏2004-04-29
  3. طيبه

    طيبه عضو نشيط

    التسجيل :
    ‏2003-12-16
    المشاركات:
    282
    الإعجاب :
    0
    مشكور اخي الحمادي .,.,.,.,

    راح اجربه إن شاء الله .......
     
  4.   مشاركة رقم : 3    ‏2004-04-29
  5. العمراوي

    العمراوي مشرف سابق

    التسجيل :
    ‏2002-11-24
    المشاركات:
    7,510
    الإعجاب :
    4
    موضوع جميل ,.,.,.,

    لاتحرمنا من جديدك .,.,.,.,
     
  6.   مشاركة رقم : 4    ‏2004-04-30
  7. alhammady

    alhammady عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    119
    الإعجاب :
    0
    مشكورين اخواني على الاهتمام...............
     
  8.   مشاركة رقم : 5    ‏2004-04-30
  9. نجيب المجيدي

    نجيب المجيدي عضو فعّال

    التسجيل :
    ‏2003-12-08
    المشاركات:
    527
    الإعجاب :
    0
    أكواد حلوه يالحمادي ...
     
  10.   مشاركة رقم : 6    ‏2004-05-06
  11. قرصان ألعرب

    قرصان ألعرب عضو نشيط

    التسجيل :
    ‏2004-04-12
    المشاركات:
    487
    الإعجاب :
    0
     
  12.   مشاركة رقم : 7    ‏2004-05-07
  13. صدى الحرمان

    صدى الحرمان عضو متميّز

    التسجيل :
    ‏2004-01-15
    المشاركات:
    1,519
    الإعجاب :
    0
    موضوع جميل ,.,.,.,

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

مشاركة هذه الصفحة