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

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

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

ان كانت هذه أول زيارة لك لمواضيعي ...فراجع المواضيع التالية فإنها تهمك

الدرس الاول : تصميم برنامج مشغل راديوات مفضلة...

الدرس الثاني: تصميم برنامج لتلاوة القرآن الكريم بامكانية تغيير القراء و اختيار السور

الدرس الثالث : تصميم برنامج لتزيين المواضيع بصور و تعابير و ابتسامات

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

أعزائي المبرمجين الجدد

تتبعتم مواضيعي و حققنا معا ما كنت تظنه مستحيلا

فأنت تعلم الان ان لا شئ مستحيل ... تكفيك شمعة لتنير طريقك المظلم و فتظهر لك أشياء كانت بمتناولك لكنك لم تكن تراها

أقدم لكم برنامجا جديدا ستصممه بنفسك و يلبي متطلباتك

يوفر عليك فتح مفظلتك للبحث عن المواقع التي تفتحها يوميا

يوفر عليك البحث عن برامجك من قائمة ابدء

النوم و الكسل أحلى من العسل

طبعا ليست له قيمة لكن هدفنا هو تعلم تصميم برامج بسيطة و التعود على بيئة ال VB

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

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



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

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

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

تعلمت اضافة ال 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 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

كود:
Private Sub Command13_Click()
Shell "C:\Program Files\TechSmith\SnagIt 7\SnagIt32.exe"
End Sub



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


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

هنيئا لك

تمكنت من تصميم برنامج اخر تضيفه الى لائحة برامجك الشخصية

أرجو ان ينال الموضوع اعجابكم

و قريبا ان شاء الله شرح بالصور لعمل الواجهة

[img:75e8]http://www.al-qlb.com/up//images8/5571076619711177[1].gif[/img:75e8]