۩۩ لفتح مواقعك و برامجك المفضلة بضغطة زر واحدة ۩۩

#1 22-09-2007, 03:49

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

هذه واجهة البرنامج

(جميلة كلمة برنامج ... انه فقط مجرد اداة لكن لتشجيعك سأستمر في تسميته برنامج)

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

ملخص الدروس السابقة التي سنطبقها على برنامجنا

تعلمت اضافة ال Frame و تغيير اسمها من Caption ثم تغيير اتجاه الكتابة من اليمن الى اليسار
تعلمت اضافة الازرار و تغيير اسمها من Caption
تعلمت تغير اتجاه الكتابة في ال form من اليمن الى اليسار ثم تغيير اسمه من Caption ليتغير اسم البرنامج
تعلمت تغيير ايقونة برنامجك من Icon
تعلمت تعطيل زر تكبير ال Form من MaxButton باعطائها القيمة False
تعلمت ارفاق الاكواد الى الازرار بالضغط على كل زر مرتين متتالين
فتظهر لك صفحة بيضاء بها سطرين جديدين
في كل مرة تضع بين هذي السطرين الكود المناسب لعمل كل زر (الأوامر)

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

انتهيت الان من تصميم الواجهة

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

سننتقل الى الاكواد

زر الخروج أو Exit حسب واجهة برنامجي

كالعادة ضع الامر End بين السطرين الذين سيظهرا جراء الضغط مرتين متتالين على الزر Exit

سيصبح الكود كالاتي

رمز:

Private Sub Command16_Click()
End
End Sub

طبعا اسم الزر يمكن ان يكون مختلفا عندك فلاحظ ان اسمه عندي هو Command16
لانه هو الزر رقم 16 الذي انشأته في واجهة برنامجي

الان ستضع الكود الاتي مرة واحد في الصفحة البيضاء (صفحة الكود)

رمز:

Private Const SW_SHOWNORMAL = 1

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

عبارة عن أوامر لاستعمال ادوات لفتح صفحات ويب

أكرر الكود السابق تضعه مرة واحدة دون الضغط على اي زر (فهو غير مؤطر بأي بعبارتين)

ننتقل الان الى الكود الخاص بأمر فتح كل صفحة

رمز:

Private Sub Command1_Click()
****lExecute Me.hwnd, "open", http://www.ksa-heart.com, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

زر قلب السعودية في واجهة برنامجي اسمه Commabd1
لاحظ رابط المشاغب بين العلامتين "رابط قلب السعودية"

هذا الكود سيتتكر عدد مرات المواقع التي وضعتها في صفحتك

رمز:

Private Sub Command2_Click()
****lExecute Me.hwnd, "open", "http://www.members.*************/microprofessional/", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Private Sub Command3_Click()
****lExecute Me.hwnd, "open", "http://www.yahoo.com", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Private Sub Command4_Click()
****lExecute Me.hwnd, "open", "http://www.google.com", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

فهمت الان يتغير في الكود فقط اسم الزر Command1 command2 command3 command4
ثم الرابط الخاص بكل موقع

رمز:

"http://www.عنوان الموقع"

لا داعي لكتابة السطرين يدويا

رمز:

Private Sub Command1_Click()

End Sub

بمجرد الضغط مرتين متتاليتين على الزر يضهر السطرين بالاسم المناسب Command1 command2 command3 command4 ....
تنقل فقط

رمز:

****lExecute Me.hwnd, "open", "http://www.google.com", vbNullString, vbNullString, SW_SHOWNORMAL

مع تغيير اسم الموقع

الان الكود الخاص بفتح البرامج

رمز:

Private Sub Command15_Click()
****l "C:\Program Files\Ulead Systems\Ulead GIF Animator 5\ga_main.exe"
End Sub

كود سهل جدا

****l ثم تكتب بين العلامتين "" مسار الملف التنفيذي لبرنامجك

هذا مسار الملف التنفيذي لبرنامج Ulead Gif nimator في جهازي

نفس الطريقة بالنسبة لزر Sngit

رمز:

 
 
Private Sub Command13_Click()
****l "C:\Program Files\TechSmith\SnagIt 7\SnagIt32.exe"
End Sub

هنا رابط المشروع جاهزا

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

مستخدمين موجودين حالياً يشاهدون الموضوع: 1 (0 أعضاء و1 ضيوف)

۩۩ لفتح مواقعك و برامجك المفضلة بضغطة زر واحدة ۩۩

منتدى الدروس