ريتويت ضمى نجد [ زيادة الفلورز ]

العاب ضمى نجد [ العاب فلاشيه منوعه ]

ضمى نجد والقسم الجديد آتي قريباً كونوا معنا [ اعلان اداري ]





شرح عمل متصفح بالفيجوال بيسك

شرح عمل متصفح بالفيجوال بيسك برامج ضمى نجد ; شرح عمل متصفح بالفيجوال بيسك بسم الله الرحمن الرحيم شرح تصميم متصفح بالفيجول بيسك سأبدأ بإذن الله بعمل دروس لكيفية تصميم متصفح انترنت الفيجوال بيسك و تصميم البرامج سأبدأ الآن بشرح. قم الآن بتشغيل برنامج فيجول بيسك 6 وقم باختيار Standard EXE بعد ذلك اضغط زر موافق . الآن ستأتيك نافذة قم بتغيير الخصائص التالية فيها : Caption : قم بكتابة أي شئ هنا مثل متصفحي أو أي شئ تريده . RightToLift : قم بجعلها True WindowState : قم بجعلها Maxmimized ------------ الآن قم بالضغط على مفتاحي Ctrl+T لتأتيك النافذة التالية : قم باختيار Microsoft Internet Controls كما تشاهد في ...

برامج ضمى نجد القسم العام المنوع للبرامج



المواضيع الساخنة : شروط المنتدى , نظام الترقيات خصائص المنتدى , صندوق الادوات

شرح تغيير اسمك بنفسكـ في منتديات ضمى نجد

مميزات العضوية الماسية !

لكل بنات ضمى نجد ضروري !

العـدد 21 مــن ❤ مجلة ضمى نجد ❤

مميزي شهر(مارس)

إعفاء + تعين مشرفين وإدارين ...


موضوع مغلق
 
أدوات الموضوع أنماط العرض
قديم 06-07-2009, 05:05 PM   #1
 
صورة عضوية @GHOST@

@GHOST@ غير متواجد حالياً

إعلانات نصية :

M0dy 044 شرح عمل متصفح بالفيجوال بيسك

شرح عمل متصفح بالفيجوال بيسك

بسم الله الرحمن الرحيم
شرح تصميم متصفح بالفيجول بيسك

سأبدأ بإذن الله بعمل دروس لكيفية تصميم متصفح انترنت الفيجوال بيسك و تصميم البرامج
سأبدأ الآن بشرح.

قم الآن بتشغيل برنامج فيجول بيسك 6 وقم باختيار Standard EXE

بعد ذلك اضغط زر موافق .

الآن ستأتيك نافذة قم بتغيير الخصائص التالية فيها :
Caption : قم بكتابة أي شئ هنا مثل متصفحي أو أي شئ تريده .
RightToLift : قم بجعلها True
WindowState : قم بجعلها Maxmimized
------------
الآن قم بالضغط على مفتاحي Ctrl+T لتأتيك النافذة التالية :

قم باختيار Microsoft Internet Controls كما تشاهد في الصورة السابقة.
ثم اضغط على زر تطبيق ثم موافق .


الآن قم بالضغط عليه وقم بوضعه على الفورم وقم بتكبيره حتى يناسب إرادتك ،

الآن قم بإضافة ستة أزرار (CommandButton) وقم بتغيير خصائهم على الشكل التالي :

الزر الأول :
name : cmdback
caption : للخلف.
-------------
الزر الثاني :
name : cmdforward
caption : للأمام.
-------------
الزر الثالث :
name : cmdstop
caption : إيقاف.
-------------
الزر الرابع :
name : cmdhome
caption : صفحة البداية .
-------------
الزر الخامس :
name : cmdsearch
caption : بحث.
-------------
الزر السادس :
name : cmdsave
caption : حفظ .
----------------------------------------
قم الآن بإضافة أداة ComboBox من شريط الأدوات على الفورم وقم بتغيير الخصائص التالية :
name : address
Text : اجعلها فارغة.
------------
الآن ستجد أن شكل البرنامج أصبح كالشكل التالي ، أو حسب تنسيقك :


الآن قم بالضغط على زر (للخلف) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
WebBrowser1.GoBack
الآن قم بالضغط على زر (للأمام) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
WebBrowser1.GoForward
الآن قم بالضغط على زر (إيقاف) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
WebBrowser1.Stop
الآن قم بالضغط على زر (صفحة البداية) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
WebBrowser1.GoHome
الآن قم بالضغط على زر (بحث) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
WebBrowser1.GoSearch
الآن قم بالضغط على زر (حفظ) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
On Error Resume Next
If WebBrowser1.LocationURL = "" Then Exit Sub
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER

الآن قم بإضافة زر بجانب أداة ComboBox ، وقم بتغيير الخصائص التالية :
name : go
caption : اذهب.
الآن قم بالضغط على زر (إذهب) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
If address.Text <> "" Then
WebBrowser1.Navigate (address)
End If
-----------

سوف نقوم الآن بإضافة الأوامر التالية :

جديد : لعمل نافذة جديدة من المتصفح.
طباعة : لطباعة الصفحة .
معاينة قبل الطباعة : معاينة الصفحة قبل طباعتها .
خصائص : لعرض خصائص الصفحة .
نسخ : لنسخ النص المحدد .
لصق : للصق النص المحدد .
قص : لقص النص المحدد .
تحديد الكل : تحديد جميع الصفحة .
بحث في الصفحة : عرض نافذة للبحث .

والآن لنبدأ :


الآن قم بإضافة ثمانية أزرار وغير خصائصهم على الشكل التالي :

الزر الأول :
name : newform
caption : جديد
------------
الزر الثاني :
name : printpage
caption : طباعة
------------
الزر الثالث :
name : preview
caption : معاينة قبل الطباعة.
------------
الزر الرابع :
name : proprties
caption : خصائص
------------
الزر الخامس :
name : copytext
caption : نسخ
------------
الزر السادس :
name : pastetext
caption : لصق
------------
الزر السابع :
name : cuttext
caption : قص.
------------
الزر الثامن :
name : findtext
caption : بحث في الصفحة.
------------

الآن لنبدأ ببرمجة الأزرار :
الآن قم بالضغط على زر (جديد) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
Set F = New Form1
F.Show
(في الكود السابق قم بتغير form1 إلى اسم الفورم)
الآن قم بالضغط على زر (طباعة) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
الآن قم بالضغط على زر (معاينة قبل الطباعة) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
WebBrowser1.SetFocus
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT
الآن قم بالضغط على زر (خصائص) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT
الآن قم بالضغط على زر (نسخ) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
الآن قم بالضغط على زر (لصق) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT
الآن قم بالضغط على زر (قص) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT
الآن قم بالضغط على زر (بحث في الصفحة) مرتين لتظهر لك نافذة الكود قم بإضافة الكود التالي :
WebBrowser1.SetFocus
SendKeys "^f", True






 
قديم 06-07-2009, 05:06 PM   #2
...
 
صورة عضوية آنثے مـَـَـَلآئگيہُ

آنثے مـَـَـَلآئگيہُ غير متواجد حالياً

إعلانات نصية :

افتراضي







 
قديم 09-06-2011, 05:25 AM   #3

القوزي2011 غير متواجد حالياً

إعلانات نصية :

افتراضي

شكرا لك على ما تقدم من مواضيع قيمة ( ولا يهون جميع الأعضاء والمشرفين بدون استثناء ) والشكر موصول لإدارة هذا المنتدى المتميز وذلك لإتاحة الفرصة للأقلام الشابة بكاتبة مواضيع هادفة والمتميزة تلقيك بمكانة هذا المنتدى العملاق والصرح الشامخ .






 
قديم 16-08-2011, 06:19 PM   #4

سى عبدالرحمن غير متواجد حالياً

إعلانات نصية :

افتراضي

رووووووووووووووووووووووعه بارك الله وتم التطبيق مع بعض التغيرات






 
قديم 23-04-2013, 12:47 AM   #5

بلسام غير متواجد حالياً

إعلانات نصية :

افتراضي

يعطيك الله ألف عافية على جهودك






 
موضوع مغلق

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
متصفح, بالفيجوال, بيسك

أدوات الموضوع
أنماط العرض

قواعد المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع اضافة مرفقات
لا تستطيع تعديل مشاركاتك

BB code تعمل
رموز لغة HTML لا تعمل
Trackbacks are لا تعمل
Pingbacks are لا تعمل
Refbacks are لا تعمل



جميع تواقيت المنتدى بتوقيت جرينتش +3. الوقت الآن 11:02 AM.

إعلانات نصية :



   ضمى نجد   

صحيفة ضمى نجد | تحويل روابط كيك KeeK | منتديات ضمى نجد | دليل ضمى نجد | طلب اعلان في ضمى نجد
المصحف الشريف | مصحف التجويد | زخرفة الأسماء | موسوعة الماسنجر | خريطة شبكة ضمى نجد
تلفزيون ضمى نجد | الاسماء ومعانيها | جالري ضمى نجد | يوتيوب ضمى نجد | العاب ضمى نجد
تحميل الصور والملفات الجوال البلاك بيري الجالكسي
تصفح اسرع للمنتدى



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.1
المشاركات المنشورة لا تعبر عن رأي ضمى نجد ولا نتحمل أي مسؤولية قانونية حيال ذلك (ويتحمل كاتبها مسؤولية النشر)
Privacy Policy