هكرز
مَدير ♥--» عـٍآمـَ الكأفيهـ
الجــنــــــــس : 
المشاركــــات : 1884
نقاط الخبـــرة : 13547
تاريخ التسجيل : 12/04/2010
الموقع : hakrzaaa.yoo7.com
 |  موضوع: صمم متصفحك الخ ـآص .. مع ـآ كآفية تشينو .. الأحد أبريل 25, 2010 5:55 am | |
| بسم الله الرحمن الرحيمالسلام عليكم و رحمة الله و بركاتهدرس عمل متصفح
اتبع الخطوات التاليةافتح فورم جديد وضع عليه خمسة ازارير كوماند ومن الخصائص سمها كما تشاهد في الصورة الخلف الامام توقف البدايةتحديثكذك اضف زر سادس واكتب عليه من الخصائص اغلاق المتصفح اختر من الادوات اداة كمبو بوكس التي سنكتب فيها عناوين المواقعضع اداة العنوان واكتب عليها العبارة الموجودة على الصورة اداةmicrosoft internet conttrolsبقي علينا اضافة الولكي تختارها اضغط على مفتاح ctrl+Tتظهر لك مجموعة الادوات ابحث عن الاداة ثم ضع عليها صح من المربع الذي امامها ثم انقر موافقmicrosoft internet conttrolsاسم الاداةلاحظ اسف صندوق الادوات يسارا اضافة الاداة الجديد الان اقر عليها مرتين لاضافتها الي الفورم حاول تكبيرها بالحجم الذي تريد لانها ستكون مكان عرض المواقعلللل تشبه الاداة صورة الكرة الارضيةحاول ترتيب الادوات مثل الصورةكتابة الكود هل انت مستعداقر على الفورم مرتين لكتابة الكود التالي في حدث عند التحميلPrivate Sub Form_Load()WebBrowser1.Navigate "www.yahoo.com"End Subانقر مرتين على زر الخلف لكنابة الكود التاليPrivate Sub Command1_Click()WebBrowser1.GoBackEnd Subلاحظ ان الخلف يعتبر كوماند 1 من نافذة الخصائصانقر على زر الامام مرتين واكتب الكودPrivate Sub Command2_Click()WebBrowser1.GoForwardEnd Subوهذا كود توقفPrivate Sub Command3_Click()WebBrowser1.StopEnd Subوهذا كود زر البدايةPrivate Sub Command4_Click()WebBrowser1.GoHomeEnd Subوهذا كود زر تحديثPrivate Sub Command5_Click()WebBrowser1.RefreshEnd Subوهذا كود زر اغلاق المتصفحPrivate Sub Command6_Click()EndEnd Subالان انقر مرتين على الكمبو بوكس واكتب الكود التاليPrivate Sub Combo1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenWebBrowser1.Navigate Combo1.TextEnd IfEnd Subملاحظة عند كتابة الكود اختر طريق النسخ واللصق يجب نسخ الكود الذي بين التصريحات وهو باللون الاحمر هناتم الشرح بـ وآسطة المآآآيستروو | |
|
