عمل متصفح إحترافي بإستخدام الفيجوال بيسك

RaFeeQ · 11-07-2009, 07:31 صباحاً

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

الموضوع: عمل متصفح بشكل احترافي بإستخدام لغة الفيجوال بيسكـ
المتطلبات :
عدد 5 كوماندات Commands ليتم استخدامها في ( الصفحه التالية Next Page - الصفحه السابقه Last Page - الصفحه الإفتراضيه Home Page - التحديث Refreshو إذهب لفتح الصفحه Go )

وإذا ما أردنا أن نجعل للكومندات صور تبين لنا التالي والسابق ....
نتبع الطريقة التالية :

تابع الصور وبإذن الله تصل الفكرة كاملة

متصفح, الفيجوال, بيسك, بإستخدام, عمل, عمل متصفح إحترافي بإستخدام الفيجوال بيسك, إحترافي

نقوم بإضافة 5 كوماندات كما في الصورة أعلاه

الكوماندات تحتاج الى بعض الجماليات لذى نقوم بتصميم أزرار اذا لم تكون لديكـ فأنا صممتها بسرعه والذي يهمني هي الفكرة ان تصل ، والأيقونات كل واحده تدل على استخدام معين .

نحدد الكوماند الأول لكي نضيف عليه الصورة أو الأيقونه التي تدل على وظيفته .

نحدد مكان الصورة أو الأيقونه .

لكي تظهر الصورة أو الأيقونه على زر الكوماند نغير الـ Style من القياسي الى الكرافيكس 1-Graphical وتظهر الصورة أو الأيقونه على الكوماند .

نضيف بعض الجماليات فحجين تضع المؤشر على الزر تظهر رسالة دلاليه تبين وظيفة الزر .

ونطبق ذلكـ على بقية الكوماندات وبنفس الطريقة .

يصبح الشكل كما في الصورة أعلاه
يبدو شكل الأزرار مرعب شويه لكن الأهم هي الفائدة وان تصل الفكرة .

من خلال الضغط على ctrl + t
1- تحديد المتصفح .
2- إضغط على Apply .
3- يظهر في اليسار اضغط مرتين أو سحب اسقاط على الفورم ليتم العمل .

من خلال الموجود على الصورة كل شئ واضح .

نضيف Text لكي يتم كتابة الموقع المراد تصفحه .
ونضيف Timer لتوقيت الإنتقال للصفحه المراد فتحها .

نأتي لوضع الأكواد :

كود PHP:

Dim i As Integer

Option Explicit

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()

On Error Resume Next

wb.GoBack

End Sub

Private Sub Command2_Click()

On Error Resume Next

wb.GoForward

End Sub

Private Sub Command3_Click()

On Error Resume Next

wb.GoHome

End Sub

Private Sub Command4_Click()

On Error Resume Next

Timer1.Enabled = True

wb.Refresh

End Sub

Private Sub Command5_Click()

On Error Resume Next

Timer1.Enabled = True

wb.Navigate Text1.Text

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Timer1.Enabled = True

wb.Navigate Text1.Text

Text1.Text = wb.LocationURL

wb.ShowBrowserBar

End If

End Sub

Private Sub Timer1_Timer()

If wb.Busy = True Then

Me.Caption = "working......................"

Else

Me.Caption = wb.LocationName

Timer1.Enabled = False

End If

End Sub

ADMIN · 11-07-2009, 04:17 مساءً

مشكور وبارك الله فيك RaFeeQ

RaFeeQ · 11-07-2009, 07:57 مساءً

مشكور أدمن للمرور والتعليق
تحياتي لكـ

احمد عقبة · 04-21-2010, 08:53 مساءً

مشكور يا غالى

fadelam · 07-17-2010, 09:54 مساءً

مشكور جدا
فكرة رائعة

11-07-2009, 07:31 صباحاً	#1 (permalink)
RaFeeQ عضو نشيط تاريخ التسجيل: Nov 2008 المشاركات: 110 معدل تقييم المستوى: 23	عمل متصفح إحترافي بإستخدام الفيجوال بيسك السلام عليكم ورحمة الله وبركاته إليكم شرح أرجو من الله العلي القدير ان يوفقني في إيصال المعلومه اليكم الموضوع: عمل متصفح بشكل احترافي بإستخدام لغة الفيجوال بيسكـ المتطلبات : عدد 5 كوماندات Commands ليتم استخدامها في ( الصفحه التالية Next Page - الصفحه السابقه Last Page - الصفحه الإفتراضيه Home Page - التحديث Refreshو إذهب لفتح الصفحه Go ) وإذا ما أردنا أن نجعل للكومندات صور تبين لنا التالي والسابق .... نتبع الطريقة التالية : تابع الصور وبإذن الله تصل الفكرة كاملة نقوم بإضافة 5 كوماندات كما في الصورة أعلاه الكوماندات تحتاج الى بعض الجماليات لذى نقوم بتصميم أزرار اذا لم تكون لديكـ فأنا صممتها بسرعه والذي يهمني هي الفكرة ان تصل ، والأيقونات كل واحده تدل على استخدام معين . نحدد الكوماند الأول لكي نضيف عليه الصورة أو الأيقونه التي تدل على وظيفته . نحدد مكان الصورة أو الأيقونه . لكي تظهر الصورة أو الأيقونه على زر الكوماند نغير الـ Style من القياسي الى الكرافيكس 1-Graphical وتظهر الصورة أو الأيقونه على الكوماند . نضيف بعض الجماليات فحجين تضع المؤشر على الزر تظهر رسالة دلاليه تبين وظيفة الزر . ونطبق ذلكـ على بقية الكوماندات وبنفس الطريقة . يصبح الشكل كما في الصورة أعلاه يبدو شكل الأزرار مرعب شويه لكن الأهم هي الفائدة وان تصل الفكرة . من خلال الضغط على ctrl + t 1- تحديد المتصفح . 2- إضغط على Apply . 3- يظهر في اليسار اضغط مرتين أو سحب اسقاط على الفورم ليتم العمل . من خلال الموجود على الصورة كل شئ واضح . نضيف Text لكي يتم كتابة الموقع المراد تصفحه . ونضيف Timer لتوقيت الإنتقال للصفحه المراد فتحها . نأتي لوضع الأكواد : كود PHP: Dim i As Integer Option Explicit 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() On Error Resume Next wb.GoBack End Sub Private Sub Command2_Click() On Error Resume Next wb.GoForward End Sub Private Sub Command3_Click() On Error Resume Next wb.GoHome End Sub Private Sub Command4_Click() On Error Resume Next Timer1.Enabled = True wb.Refresh End Sub Private Sub Command5_Click() On Error Resume Next Timer1.Enabled = True wb.Navigate Text1.Text End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Timer1.Enabled = True wb.Navigate Text1.Text Text1.Text = wb.LocationURL wb.ShowBrowserBar End If End Sub Private Sub Timer1_Timer() If wb.Busy = True Then Me.Caption = "working......................" Else Me.Caption = wb.LocationName Timer1.Enabled = False End If End Sub من مواضيع RaFeeQ في المنتدى موقع للبرامج ال Protable المحمولة [متوسط] درس كيفية رسم شمعة بالفوتوشوب البرنامج الرائع للتأثير على الصور PhotoFiltre إحصل على هارد بحجم 25 جيجا من خلال SkyDrive كيفية التعامل مع الكيبورد في الفيجوال بيسك

11-07-2009, 04:17 مساءً	#2 (permalink)
ADMIN .::+: Gulf Son :+::. تاريخ التسجيل: May 2005 الدولة: بلاد الخليج المشاركات: 53,991 معدل تقييم المستوى: 53	رد: عمل متصفح إحترافي بإستخدام الفيجوال بيسك مشكور وبارك الله فيك RaFeeQ من مواضيع ADMIN في المنتدى [شرح] طريقة تعطيل نظام المنتجات من ملف config.php بشكل مباشر الدكتور عبدالله النفيسى - محاضرة حال الأمة بعد غزة - روابط مباشرة شاب بريطاني يخترع آلة انتحار ويطبقها علي نفسه درس عمل آلة شواء Cinema 4D بن لادن يحذّر من"إبادة سنة العراق" والتدخل في الصومال __________________ يقول الامام مالك رحمه الله: إنما هؤلاء أقوام أرادوا القدح في النبي صلى الله عليه وسلم فلم يمكنهم ذلك، فقدحوا في أصحابه حتى يقال رجل سوء ولو كان رجلاً صالحاً لكان أصحابه صالحين. وقال أبو الوفا بن عقيل رحمه الله: انظر كيف اختار لمرضه بيت البنت، واختار لموضعه من الصلاة الأب، فما هذه الغفلة المستحوذة على قلوب الرافضة عن هذا الفضل والمنزلة التي لا تكاد تخفى عن البهيم فضلا عن الناطق. وحيد القرن، كسرنا قرنه، ودككنا حصنه، وهدمنا برجه، فخرج يتبختر بعتاده مزهواً بعدده ففللنا حدّه، وقتلنا جنده، وفرقنا صحبه، والفضل لله وحده ولئن أبيد أبناء دولة الإسلام عن بكرة أبيهم خيرٌ لهم من أن يحكمهم رافضيٌّ خبيث أو أن تستظلّ بغداد برايات الصفويين يوما واحداً.

11-07-2009, 07:57 مساءً	#3 (permalink)
RaFeeQ عضو نشيط تاريخ التسجيل: Nov 2008 المشاركات: 110 معدل تقييم المستوى: 23	رد: عمل متصفح إحترافي بإستخدام الفيجوال بيسك مشكور أدمن للمرور والتعليق تحياتي لكـ من مواضيع RaFeeQ في المنتدى عمل متصفح إحترافي بإستخدام الفيجوال بيسك البرنامج الرائع للتأثير على الصور PhotoFiltre حمل من الميكا أبلود والرابد شير بهذه الطريقة الرائعه والمجربة [مبتدء] ماذا تعرف عن الأكشن (درس فوتوشوب) إقفل مجلدك برقم سري ..

04-21-2010, 08:53 مساءً	#4 (permalink)
احمد عقبة عضــو تاريخ التسجيل: Jan 2009 المشاركات: 14 معدل تقييم المستوى: 13	رد: عمل متصفح إحترافي بإستخدام الفيجوال بيسك مشكور يا غالى من مواضيع احمد عقبة في المنتدى حكم لبس البنطلون للنساء

07-17-2010, 09:54 مساءً	#5 (permalink)
fadelam عضو جديد تاريخ التسجيل: Jul 2010 المشاركات: 3 معدل تقييم المستوى: 9	رد: عمل متصفح إحترافي بإستخدام الفيجوال بيسك مشكور جدا فكرة رائعة من مواضيع fadelam في المنتدى

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

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
الفيجوال بيسك - مقدمة	الهوى ماهو كلام	دروس لغات البرمجة	9	11-24-2010 05:30 مساءً
الماوس في الفيجوال بيسك ..	RaFeeQ	دروس لغات البرمجة	2	08-20-2009 07:36 صباحاً
الفلاش مع الفيجوال بيسك 6	Designer Girl	دروس لغات البرمجة	4	09-30-2008 03:23 صباحاً
الفيجوال بيسك - مقدمة	ابن الرافدين	دروس لغات البرمجة	2	10-26-2007 06:03 مساءً
وين دروس الفيجوال بيسك يا جماعة	نسمة هواء	دروس لغات البرمجة	3	03-25-2007 02:04 مساءً

عمل متصفح إحترافي بإستخدام الفيجوال بيسك

منتديات شبكة ابن الخليج