كل عام وانتم بخير 
من طرف السلام عليكم و رحمة الله
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
ان كانت هذه أول زيارة لك لمواضيعي ...فراجع المواضيع التالية فإنها تهمك
الدرس الاول : تصميم برنامج مشغل راديوات مفضلة...
الدرس الثاني: تصميم برنامج لتلاوة القرآن الكريم بامكانية تغيير القراء و اختيار السور
الدرس الثالث : تصميم برنامج لتزيين المواضيع بصور و تعابير و ابتسامات
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
أعزائي المبرمجين الجدد
تتبعتم مواضيعي و حققنا معا ما كنت تظنه مستحيلا
فأنت تعلم الان ان لا شئ مستحيل ... تكفيك شمعة لتنير طريقك المظلم و فتظهر لك أشياء كانت بمتناولك لكنك لم تكن تراها
أقدم لكم برنامجا جديدا ستصممه بنفسك و يلبي متطلباتك
يوفر عليك فتح مفظلتك للبحث عن المواقع التي تفتحها يوميا
يوفر عليك البحث عن برامجك من قائمة ابدء
النوم و الكسل أحلى من العسل
طبعا ليست له قيمة لكن هدفنا هو تعلم تصميم برامج بسيطة و التعود على بيئة ال VB
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هذه واجهة البرنامج
(جميلة كلمة برنامج ... انه فقط مجرد اداة لكن لتشجيعك سأستمر في تسميته برنامج)
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
ملخص الدروس السابقة التي سنطبقها على برنامجنا
تعلمت اضافة ال Frame و تغيير اسمها من Caption ثم تغيير اتجاه الكتابة من اليمن الى اليسار
تعلمت اضافة الازرار و تغيير اسمها من Caption
تعلمت تغير اتجاه الكتابة في ال form من اليمن الى اليسار ثم تغيير اسمه من Caption ليتغير اسم البرنامج
تعلمت تغيير ايقونة برنامجك من Icon
تعلمت تعطيل زر تكبير ال Form من MaxButton باعطائها القيمة False
تعلمت ارفاق الاكواد الى الازرار بالضغط على كل زر مرتين متتالين
فتظهر لك صفحة بيضاء بها سطرين جديدين
في كل مرة تضع بين هذي السطرين الكود المناسب لعمل كل زر (الأوامر)
الصورة المتحركة التالية بها جميع مراحل تصميم الواجهة
انتهيت الان من تصميم الواجهة
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
سننتقل الى الاكواد
زر الخروج أو Exit حسب واجهة برنامجي
كالعادة ضع الامر End بين السطرين الذين سيظهرا جراء الضغط مرتين متتالين على الزر Exit
سيصبح الكود كالاتي
Private Sub Command16_Click()
End
End Sub
طبعا اسم الزر يمكن ان يكون مختلفا عندك فلاحظ ان اسمه عندي هو Command16
لانه هو الزر رقم 16 الذي انشأته في واجهة برنامجي
الان ستضع الكود الاتي مرة واحد في الصفحة البيضاء (صفحة الكود)
كود:لانه هو الزر رقم 16 الذي انشأته في واجهة برنامجي
الان ستضع الكود الاتي مرة واحد في الصفحة البيضاء (صفحة الكود)
Private Const SW_SHOWNORMAL = 1
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
عبارة عن أوامر لاستعمال ادوات لفتح صفحات ويب
أكرر الكود السابق تضعه مرة واحدة دون الضغط على اي زر (فهو غير مؤطر بأي بعبارتين)
ننتقل الان الى الكود الخاص بأمر فتح كل صفحة
كود:أكرر الكود السابق تضعه مرة واحدة دون الضغط على اي زر (فهو غير مؤطر بأي بعبارتين)
ننتقل الان الى الكود الخاص بأمر فتح كل صفحة
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "http://www.absba.org", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
زر المشاغب في واجهة برنامجي اسمه Commabd1
لاحظ رابط المشاغب بين العلامتين "رابط المشاغب"
هذا الكود سيتتكر عدد مرات المواقع التي وضعتها في صفحتك
كود:لاحظ رابط المشاغب بين العلامتين "رابط المشاغب"
هذا الكود سيتتكر عدد مرات المواقع التي وضعتها في صفحتك
Private Sub Command2_Click()
ShellExecute Me.hwnd, "open", "http://www.members.*************/microprofessional/", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
Private Sub Command3_Click()
ShellExecute Me.hwnd, "open", "http://www.yahoo.com", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
Private Sub Command4_Click()
ShellExecute 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 ....
تنقل فقط
كود:تنقل فقط
ShellExecute Me.hwnd, "open", "http://www.google.com", vbNullString, vbNullString, SW_SHOWNORMAL
مع تغيير اسم الموقع
الان الكود الخاص بفتح البرامج
كود:الان الكود الخاص بفتح البرامج
Private Sub Command15_Click()
Shell "C:\Program Files\Ulead Systems\Ulead GIF Animator 5\ga_main.exe"
End Sub
كود سهل جدا
shell ثم تكتب بين العلامتين "" مسار الملف التنفيذي لبرنامجك
هذا مسار الملف التنفيذي لبرنامج Ulead Gif nimator في جهازي
نفس الطريقة بالنسبة لزر Sngit
كود:shell ثم تكتب بين العلامتين "" مسار الملف التنفيذي لبرنامجك
هذا مسار الملف التنفيذي لبرنامج Ulead Gif nimator في جهازي
نفس الطريقة بالنسبة لزر Sngit
Private Sub Command13_Click()
Shell "C:\Program Files\TechSmith\SnagIt 7\SnagIt32.exe"
End Sub
هنا رابط المشروع جاهزا
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هنيئا لك
تمكنت من تصميم برنامج اخر تضيفه الى لائحة برامجك الشخصية
أرجو ان ينال الموضوع اعجابكم
منقوووووووول
