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

الدرس الأول مـن دورة إنشاء متصفح متطور بلغة VB.NET

حفظ البيانات؟
أهلاً و سهلاً بك فى منتدى المصري.
أهلاً وسهلاً بك زائرنا الكريم، إذا كانت هذه زيارتك الأولى للمنتدى، فيرجى التكرم بزيارة صفحة التعليمات، بالضغط هنا. كما يشرفنا أن تقوم بالتسجيل بالضغط هنا إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه



إحصائيات المنتدى
أفضل الأعضاء فى هذا الشهر
أخر المشاركات
3 عدد المساهمات
2 عدد المساهمات
1 مُساهمة
1 مُساهمة
1 مُساهمة
إحصائيات سريعة
هذا المنتدى يتوفر على 36024 عُضو.
آخر عُضو مُسجل هو MODA5 فمرحباً به.
أعضاؤنا قدموا 396962 مساهمة في هذا المنتدى , في 49366 موضوع

شاطر  |  



كاتب الموضوع
عضو فعال
عضو فعال
وسائل الإتصال
facebook

البيانات
المشاركات : 2287
الجـــنـــس : ذكر
علم دولتى : مصر
عدد التقييمات
عدد التقييمات لكاتب الموضوع :
أوسمتك يا Adel Rehan

الأوسـمـة & الرصيد
 : بــدون اوســمــة
21022015
مُساهمةموضوع: الدرس الأول مـن دورة إنشاء متصفح متطور بلغة VB.NET


بسم الله و الصلاة و السلام على أشرف المرسليـن

الحمد لله وحده نحمده و نشكره و نستعينه و نستغفره و نعود بالله من شرور أنفسنا و من سيئات أعمالنا

من يهده الله فلا مظل له و من يضلل فلن تجد له ولياً مرشدا

و أشهد ألا إله إلا الله وحده لا شريك له و أن محمداً عبده و رسوله صلى الله عليه و سلم

أما بعد ..

الـدرس الأول مـن دورة إنـشـاء مـتـصـفـح مـتـطـور بـلـغـة VB.NET

[ المتصفح في نهاية الدورة ] :



[ Main Form ] :

اول شئ ننشأ مشروع جديد بأي أسم وليكن Internet Browser



ثم نعيد تسمية Form1 الي
MainForm وهي الفورم التي سيكون بها الـ Tab Control فقط .



ونغير بعض خصائص الفورم مثل الصورة



ثم نضيف الملفات الآتية :-

Watermark.vb ، iTalk Theme.vb ، Google Chrome Theme.vb ، rtaGlassEffectsLib.dll ، FastColoredTextBox.dll ، TWBP API.dll

Watermark هو عباره عن TextBox عادي ولكن بة خاصيه جميلة وهي وضع نص يختفي عند الضغط علي الـ TextBox

iTalk Theme ، Google Chrome Theme اكيد الكل يعرفهم

rtaGlassEffectsLib هي مكتبة تجعل الفورم شفافة

FastColoredTextBox هي اداة لأكواد الـ HTML

TWBP API هي اداة الـ TabControl المتطور

ويوجد ملف بأسف Resources نضيف محتوياتة الي Resources البرنامج

نعمل Debug للمشروع ثم Stop حتي تظهر الأدوات في قائمة الـ ToolBox

ثم نضيف TWBPTabs الي الفورم



ونغير بعض خصائصة مثل الصورة



ثم نضيف Timer الي الفورم ونغير بعض خصائصة
مثل الصورة



ثم نضع الأكواد التالية بدلاً من اكواد Main Form



الرمز:
Imports ColinVerhey.TWBP

Public Class MainForm

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TabControl1.TabCloseButtonImage = My.Resources.close_Tab_0
TabControl1.TabCloseButtonImage_Over = My.Resources.close_Tab_1
TabControl1.TabCloseButtonImage_Pressed = My.Resources.close_Tab_2
TabControl1.NewTabButtonImage = My.Resources.newTab
'TabControl1.TabBarBorderColour = New ColinVerhey.TWBP.TWBPColour("#879AAB")
'TabControl1.TabBarTopColour = New ColinVerhey.TWBP.TWBPColour("#93B2D6")
'TabControl1.TabBarBottomColour = New ColinVerhey.TWBP.TWBPColour("#3F5E83")
TabControl1.TabTopColour = New ColinVerhey.TWBP.TWBPColour("#EBF4FB")
TabControl1.TabBottomColour = New ColinVerhey.TWBP.TWBPColour("#EBF4FB")
TabControl1.bgTabTopColour = New ColinVerhey.TWBP.TWBPColour("#CEDEEE")
TabControl1.bgTabBottomColour = New ColinVerhey.TWBP.TWBPColour("#D1E4F8")

TabControl1.TabContainer.AddTab(New MainForm2, True, TabControl1.TabContainer.TabCount)
'TabControl1.TabContainer.AddTab(New MainForm2, True, TabControl1.TabContainer.TabCount)
'TabControl1.TabContainer.SelectTab(0)
'TabControl1.TabContainer.getSelectedTab.RemoveTab()

Dim yo As New rtaGlassEffectsLib.rtaGlassEffect
yo.TopBarSize = 33
yo.ShowEffect(Me)
yo.BottomBarSize = 0
yo.LeftBarSize = 0
'yo.UseHandCursorOnTitle = False
End Sub

Private Sub MainForm2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
If My.Settings.DeleteBrowsingHistoryOnExit = True Then
My.Settings.History.Clear()
My.Settings.Save()
End If
End Sub

Private
 Sub TabControl1_NewTabButtonPressed(sender As
ColinVerhey.TWBP.NewTabButton, e As System.EventArgs) Handles
TabControl1.NewTabButtonPressed
TabControl1.TabContainer.AddTab(New MainForm2, True, TabControl1.TabContainer.TabCount)
End Sub

Dim adel, rehan As Integer
Dim newp As System.Drawing.Point
Private
 Sub MainForm_mousedown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
adel = MousePosition.X - Me.Location.X
rehan = MousePosition.Y - Me.Location.Y
End Sub
Private
 Sub MainForm_mousemove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
newp = MousePosition
newp.X = newp.X - adel
newp.Y = newp.Y - rehan
Me.Location = newp
End If
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Me.Text = TabControl1.TabContainer.getSelectedTab.TabTitle ' عنوان الصفحه المفتوحه
'Dim favicon = TabControl1.TabContainer.getTabFromForm(Me).TabIcon
'Dim iconBitmap As Bitmap = favicon
'Me.Icon = Icon.FromHandle(iconBitmap.GetHicon)
Catch
End Try
End Sub
End Class

[ Settings ] :

ندخل الي الـ Settings الخاصة بالبرنامج ونضبطها كالتالي



Name
: Type : Value

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

Bookmarks : System.Collections.Specialized.StringCollection :

الرمز:
<?xml version="1.0" encoding="utf-16"?>
 <ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" />

DeleteBrowsingHistoryOnExit : Boolean : False

History : System.Collections.Specialized.StringCollection :

الرمز:
<?xml version="1.0" encoding="utf-16"?>
 <ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" />

HomePage : (Web Service URL) : [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

StartWithHomePage : Boolean: True

StartWithNewTab : Boolean: False

Update : Boolean: True

Searchengine : Integer : True

Searchengine : (Web Service URL) : CustomSearch

Zoom : Integer : 100

ثم نغير ايقونة البرنامج مثل الصورة




[ الملفات المستخدمة في الشرح ] :

تحميل الملفات : مـــ هــنــا ـــن

تحميل المتصفح حتي نهاية الشرح : مـــ هــنــا ـــن


توقيع العضو : Adel Rehan


# اللعبة أن نثير العوآطف نحونآ , وبعدهآ تؤمنون بنآ , فلآ مجآل للصدفة فالقوآنين تجبركم على الاختيآر !!!
A d e l  R e h a n || 2014 - 2015 || E L M A S R Y Y . C O M

شارك الموضوع على : Excite BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahooSmarking



الدرس الأول مـن دورة إنشاء متصفح متطور بلغة VB.NET

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة
لا يوجد حالياً أي تعليق

الدرس الأول مـن دورة إنشاء متصفح متطور بلغة VB.NET

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة

« الموضوع السابق|الموضوع التالي »

الـــرد الســـريـــع

((ما يلفظ من قول إلا لديه رقيب عتيد))

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

BB Code is متاحة
كود [IMG] متاحة
كود HTML متاحة


Powered by vBulletin™ Version 3.8.7
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved
جميع الحقوق محفوظة لمنتدى المصري