Google 1+

تنبية هام : تم نقل الموقع الى موقع >> ايجي بست
افلام

مشاهدة افلام اجنبي اونلاين يوتيوب بجودة عالية جداً HD/Blue Ray، مشاهدة افلام اجنبي DVD حصرياً على موقع ايجي بست بيست ، شاهد افلام السينما الأمريكية مباشرة بدون تحميل احدث افلام هوليود بجودة عالية جداً، مشاهدة افلام اجنبي اكشن، مشاهدة افلام اجنبي كوميدي، مشاهدة افلام اجنبي رومانسي، مشاهدة افلام اجنبي اثارة وتشويق، مشاهدة افلام اجنبي رعب، مشاهدة افلام اجنبي خيال علمي، مشاهدة افلام اجنبي فانتازيا. تحميل كاملة جودة عالية وسيرفرات متعددة، تحميل احد الأفلام الأجنبي 2019 كاملة على سيرفرات مباشرة، تحميل افلام اجنبي على الموبايل، تحميل افلام اجنبي على الكمبيوتر، افلام اجنبي 2019 جودة عالية، تحميل افضل افلام اجنبي، قائمة افضل افلام اجنبي في التاريخ، قائمة افلام احنبي 2019. مشاهدة افلام اون لاين وتحميل مباشر ايجي بست افلام ومسلسلات مترجمة egy4 موقع ايجي بست بيست يمكنك الآن مشاهدة وتحميل جميع الأفلام الأجنبي حصرياً على موقع ، االموقع الأكبر في الشرق الأوسط لمشاهدة وتحميل الأفلام العربي والأفلام الأجنبي، كما يمكنك مشاهدة جميع سلسلال الأفلام الأجنبي مثل سلسلة افلام هاري بوتر، وسلسلة افلام المنتقمون وسلسلة افلام ملك الخواتم والعديد من الأفلام الأجنبي حصرياً بجودة عالية جداً. موقع ايجي بست هو افضل موقع لمشاهدة احدث الافلام والمسلسلات الاون لاين بسيرفرات مباشر وبدون تحميل روابط سريعه مباشرة تحميل الافلام من موقع ايجي بيست الاصلي مسلسلات انيميشن مجانا ايجي بست ايجي بست 2020 egy best

درس في كيفية عمل برنامج يقوم بعمل المتصفح او اي مستعرض للنت ( شرح + صور + اكواد )

مدير المنتدى

مدير المنتدى: Admin; عدد الرسائل : 768
العمر : 32
الموقع : https://webs.all-up.com
الاوسمه :
السٌّمعَة : 3
نقاط : 1677
تاريخ التسجيل : 30/07/2008

مساهمة رقم 1

درس في كيفية عمل برنامج يقوم بعمل المتصفح او اي مستعرض للنت ( شرح + صور + اكواد )

مُساهمة من طرف مدير المنتدى الخميس أغسطس 13, 2009 7:48 am

مساعدة لاحد الاخوان الذين ارادوا ان يصنعوا برنامج عبارة عن متصفح للنت

كتبت الرد في موضوع مستقل حتى يستفيد منه كل من اراد القيام بعمل مشابه

البرنامج بسيط والاكواد بسيطه
ومافيه اي صعوبه ابدا
وياتي سورس للمستعرض هذا مع لغة البرمجه فيجوال بيبسك
لمن غاب عنه او لم يستطيع التطبيق
كل ماعليه هو اتباع هذا الشرح وهذه الصور
وان شاء الله يتم التطبيق بشكل سليم

-----------------------

الخطوة الاولى
افتح مشروع جديد على الفيجوال بيسك

شاهد الصورة التاليه

الآن سيتم فتح الواجهة الرسوميه للفيجوال والمشروع
من فورم وادوات وواجهة الخصائص وغيرها
اللي نبيه الحين هو اضافه بعض الادوات على الادوات الافتراضيه

نعمل التالي
شاهد الصورة

اضغط بزر الفارة اليمين
اختر Components..

الان سيفتح لك فورم فيه ثلاث علامات تبويب بالاعلى
اختر علامة التبويب كنترول
ستجد الادوات موجوده وكل اداة امامها مربع صغير
اختر الادوات الضاهرة امامك بالصورتين

بعدها اضغط موافق

الان ستجد الادوات قد اضيفت الى شريط الادوات الافتراضي
ستجد بين الادوات اداة ويب بروسير ( Web Browser )
وهي على شكل كره ارضيه

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

الان قم بتغيير المقاسات بالطريقة التقليديه باستخدام الفاره
وفق رغباتك
----
قم الان باضافه اداة ComboBox
شاهد الصورة

----
قم الان واذهب الى شريط الادوات
ستجد اداة اسمها تول بار ( Toolbar )
اضغط ضغتين سريعه عليها

الان سينشاء امامك بالفورم شريط بالاعلى

تستطيع تغيير خصائص هذا الشريط زي ماتبي ومثل ماتحب
الان
اضغط على شريط التول بار بالزر اليمين للفاره
واختر الامر (Properties)

الان سيفتح لك فورم الخصائص الخاصه بشريط (Toolbar)
هذه اهم نقطه ربما
او الاساس للمشروع
اختر علامة التبويب ( Buttons )
الان ستجد امامك ازرار كثيره وارقام وبيانات
هذه كلها افتراضيه

الان اللي نبيه هو عمل ازرار خاصه بـالمتصفح اللي بنصممه والازرار الاساسيه هي :
( الرجوع - الامام - الصفحة الرئيسيه - التحديث - البحث - التوقف)

عدد الازرار اللي نبيها (6) ازرار وهي اللي ذكرناها بالاعلى

.JPG" alt=""/>

نضغط على زر ( Insert Button )
كل ماضغطنا على هذا الزر ( Insert Button ) ينتج عنه اضافه لزر جديد
نستمر بالضغط لحد ماينتج معنا العدد اللي نبيه واذا حبينا نحذف زر قمنا بانشائه نضغط على الزر ( Remove Button )
الان انشأنا واضفنا الازرار المطلوبه
نذهب الى الزر الاول الزر رقم واحد بالخانه المواجهة لكلمة ( Index ) عن طريق الضغط الاسهم الخاصه بتسلسل الازرار
الزر رقم واحد فرضا نبيه يكون امر الرجوع للخلف نعمل التالي :
Caption = اكتب للخلف او رجوع او ان شاء الله تكتب حتى توم وجيري هذا عباره عن الاسم اللي يطلع للمستعرضين لبرنامجك ماراح ياثر بالكود
اذا تبيه للامام اكتب للامام واذا للخلف اكتب للخلف وهكذا
key = هذا المفتاح راح يتعامل الكود معه ي اجعل القيمه مثلا ( Back )
Tool Tip Text = هذا سلمكم الله عباره عن تعليمات سريعه اذا مررت بزر الفاره فوق الزر راح يطلع لك عبارة قصيره كارشاد لعمل هالزر

اللي تبيه يطلع اكتبه هنا كوصف مثلا تكتب ( الضغط على هذا الزر يقوم بعملية الرجوع للصفحة السابقه )
يعني العمليه بسيطه ولافيها من الصعوبه اي شي

طبق نفس الطريقه على باقي الازرار التاليه : ( الرجوع للخلف - الامام - الصفحة الرئيسيه - التحديث - البحث - التوقف)

بعد كذا اضغط موافق

-------
الان شاهد الصورة التاليه
وطبق نفس ماهو بالصورة

ماتحتاج شرح الصورة السابقه

بعد كذا نعمل التالي
نقوم بتسمية الازرار بما يقابله هنا :

اداة التايم Timer
(Name) = timTimer

اداة ImageList1
(Name) = imlIcons

اداة WebBrowser
(Name) = brwWebBrowser

اداة Toolbar1
(Name) = tbToolBar

اداة Combo1
(Name) = cboAddress

في شريط التول بار
وفي خصائصها
اكتب القيم التاليه كمفاتيح
Back = العودة للخلف
Forward = التقدم للامام
&@#&@#&@#&@#&@#&@#&@# = تحديث
Home = الرئيسيه
Search = بحث
Stop = توقف

كذا انتهينا من كل شي تقريبا
علينا الان وضع الكود الكامل في الـ Form

كود:
Option Explicit

Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error Resume Next
Me.Show
tbToolBar.&@#&@#&@#&@#&@#&@#&@#
Form_Resize

cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15

If Len(StartingAddress) > 0 Then
cboAddress.Text = StartingAddress
cboAddress.AddItem cboAddress.Text
'try to navigate to the starting address
timTimer.Enabled = True
brwWebBrowser.Navigate StartingAddress
End If

End Sub

Private Sub brwWebBrowser_DownloadComplete()
On Error Resume Next
Me.Caption = brwWebBrowser.LocationName
End Sub

Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
Dim i As Integer
Dim bFound As Boolean
Me.Caption = brwWebBrowser.LocationName
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = brwWebBrowser.LocationURL Then
bFound = True
Exit For
End If
Next i
mbDontNavigateNow = True
If bFound Then
cboAddress.RemoveItem i
End If
cboAddress.AddItem brwWebBrowser.LocationURL, 0
cboAddress.ListIndex = 0
mbDontNavigateNow = False
End Sub

Private Sub cboAddress_Click()
If mbDontNavigateNow Then Exit Sub
timTimer.Enabled = True
brwWebBrowser.Navigate cboAddress.Text
End Sub

Private Sub cboAddress_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
cboAddress_Click
End If
End Sub

Private Sub Form_Resize()
cboAddress.Width = Me.ScaleWidth - 100
brwWebBrowser.Width = Me.ScaleWidth - 100
brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
End Sub

Private Sub timTimer_Timer()
If brwWebBrowser.Busy = False Then
timTimer.Enabled = False
Me.Caption = brwWebBrowser.LocationName
Else
Me.Caption = "Working..."
End If
End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
On Error Resume Next

timTimer.Enabled = True

Select Case Button.Key
Case "Back"
brwWebBrowser.GoBack
Case "Forward"
brwWebBrowser.GoForward
Case "&@#&@#&@#&@#&@#&@#&@#"
brwWebBrowser.&@#&@#&@#&@#&@#&@#&@#
Case "Home"
brwWebBrowser.GoHome
Case "Search"
brwWebBrowser.GoSearch
Case "Stop"
timTimer.Enabled = False
brwWebBrowser.Stop
Me.Caption = brwWebBrowser.LocationName
End Select

End Sub

--------------

بعد الانتهاء
نذهب الى قائمه ملف ونختار منها ماك بروجيكت اي اكس اي
شاهد الصورة

وهذا من اجل ان يكون عملنا تطبيقي

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

----------------