~ درس بسيط للمبتدئين في التعامل مع WebBrowser و Progress Bar~~ عصابة الـVB

~ درس بسيط للمبتدئين في التعامل مع WebBrowser و Progress Bar~~ عصابة الـVB















الحمد لله على إحسانه

والشكر له على توفيقه وامتنانه

وأشهد أن لا إله إلا الله وحده لا شريك له تعظيما لشانه

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

صلى الله عليه وعلى صحبه وإخوانه

وبعد :

السلام عليكم ورحمة الله وبركاته

أهلا بكم أحبتي في الله

طبتم وطاب بكم موضوعنا لهذا اليوم بإذن الله

أهلا وسهلا بكم .



اليوم اخواني سأقدم لكم درس بسيط جدا و غير معقد

و هو حول طريقة ربط البروقريس بار بالواب براوسر

و اسعمال بعض خوائص البراوس الجميلة

و سأقول لكم من الاول اأنه بسييط جدا

و قديم بعض الشيئ

لكنه ضروري للمبتدئين

ملاحظة

في الدرس قمت بتصغير بعض الصور و ذلك للحفاظ على جمالية الاطار

و آسف ان كان هناك خطأ فأنا أكتب الموضوع للمرة التانية

بعد ان كتبته المرة الأولى و اختفى

14080590.jpg


أولا و كالعادة

نقوم بفتح البرنامج



https://2img.net/r/ihimizer/img34/4773/15799960.jpg

ثم نقوم باضافة كل من الأداتين

Microsoft Internet Controls

و

Mcirosoft Windows Common Controls

و لاضافتهما نتبع الصور



https://2img.net/r/ihimizer/img80/9944/19640172.jpg

ثم



https://2img.net/r/ihimizer/img130/8669/77872010.jpg

ثم



https://2img.net/r/ihimizer/img138/8310/30617639.jpg

الآن بعد اضافة الأداتان

نتجه الى اضافة بعد الأدواة للفورم حيث نضيف

Command

Text Box

WebBrowser

Progress Bar

و نوزعها كما في الصورة



https://2img.net/r/ihimizer/img268/4497/58700055.jpg

ملاحظة:

حجم الواب بروازر يكون يغطي أغلب الفورم

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



https://2img.net/r/ihimizer/img696/702/39863504.jpg

حيث لا ننسى أن نجعل

WindowState = Maximised

الآن نتجه الى اعظم مرحلة

و هي مرحلة وضع الأكواد

حيث سنقوم بالتالي

ربط البروقريس بار بالبراوزر

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

جعل عنوان الفورم هو عنوان الصفحة

جعل التكست بوكس يعرض رابط التصفح

و هاهي الأكواد في الصورة



https://2img.net/r/ihimizer/img18/6182/17220441.jpg

أو من هنا لمن يريد نسخها

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Me.Caption = WebBrowser1.LocationName & " - StarTimes / BadBoy Dk"
Text1.Text = WebBrowser1.LocationURL
End Sub



Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
End Sub



Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
ProgressBar1.Value = ProgressBar1.Max
If ProgressBar1.Value = ProgressBar1.Max Then
ProgressBar1.Visible = False
End If
End Sub



Private Sub Form_Load()
WebBrowser1.Navigate "www.startimes2.com"
End Sub



Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
ProgressBar1.Visible = True
End Sub



Dim Progress As Long
Dim ProgressMax As Long

الآن بعد أن انتهينا من الأكواد

نتجه الى التجريب



https://2img.net/r/ihimizer/img18/9408/20790385.jpg

لكن هذا المرة لن أعرض عليكم النتائج

بل أترككم تكتشفونها لوحدكم

و أتمنا أن أرى بعض منها

ملاحظة

أنا لم أشرح الأكواد و ذلك لسهولتها

لكن ان كان هناك أي مشكل أو التباس أنا هنا ان شاء الله

و لمن يريد تحميل الصور + المشروع

من هنا





vbgang

14080590.jpg

نأتي الآن الى النهاية

أرجو أن يكون هناك بعض المستفيدين

و تحية عطرة الى كل الأعضاء و المشرفين واعضاء العصابة

و الى اللقاء مع درس آخر

بالتوفيق للجميع ...

أخوكم معاذ.