در این مقاله یک مثال ساده از ایجاد یک براوزر (Internet Explorer) را در محیط ویژوال بیسیک نشونتون میدم. البته در اینجا فقط شما رو با مبانی کار آشنا میکنم (جسارت نباشه منظورم کسانیه که مثل شما حرفه ایی نیستن) و بعد خودتون میتونین پوسته های دلخواهتون رو برای مرورگر بسازین.
ساختن یک کاوشگر اینترنت خییلی آسونه. و فقط شامل چند خط کد سادَس.خوب ابتدا وارد محیط ویژوال بیسیک بشین و یک پروژه جدید از نوع استاندارد بسازین.
ابتدا باید محیط گرافیکی (GUI) رو آماده کنیم. برای اینکار داخل فرم اشیا زیر رو اضافه کنید:
1- پنج تا دگمه معمولی Command Button
2- یک دونه کاوشگر اینترنت Web Browser
3- یک عدد جعبه متن معمولی Text Box
نکته: برای اضافه کردن Web Browser روی جعبه ابزار راست کلیک کنید و گزینه Add Component رو انتخاب کنید توی صفحه ای که باز میشه کنار تیک کنار اسمش رو بزنین.
حالا باید کدهای مربوط به دگمه ها رو بنویسیم. توجه کنید که اون جعبه متنی رو که به فرم اضافه کردین محل وارد کردن آدرس (URL) سایت مورد نظر هستش. اول باید وظیفه هرکدوم از کدها رو مشخص کنیم تا کدهای مربوط به اونها رو بنویسیم. همونطور که در بالا گفتم باید پنج تا دگمه روی فرم داشته باشیم که بترتیب نام و وظیفه هرکدوم رو میگم:
1- GO برای رفتن به آدرس تایپ شده در کادر متنی
2- Back برای برگشت به صفحه قبل
3- Forward برای رفتن به صفحه بعد
4- Refresh برای لود کردن مجدد صفحه
5- Stop برای توقف عمل لود کردن صفحه
حالا برای صرفه جویی در وقت موقع تایپ کردن کدها ایم Web Browser رو به WBتغییر بدین. در زیر کدهای مربوط به رویداد لود فرم اصلی رو می بینین:
Private Sub Form_Load()
wb.Navigate \"http://www.mahdi343.ir\"
End Sub
کد بالا باعث میشه که تا برنامه رو ایجاد میکنید مرورگر اینترنت فرمتون وبلاگ من رو لود کنه، البته می تونین بجای آدرسه وبلاگ من هر آدرس دیگه ایی بنویسین. حتی اگه حرفه ای باشین می تونین توی فرمتون یک کلید دیگه اضافه کنین و اسمشرو بزارین HomePage بعدش کدی رو بنویسین که وقتی این دگمه رو کلیک میکنید آدرس مجود در کادر متنی تون رو یه جایی توی رجیستری ویندوز ذخیره کنه و بعدا که دوباره برنامه رو اجرا میکنید اون آدرس رو لود کنه. خوب حالا کد های مربوط به دگمه ها رو توی برنامه وارد کنید:
Refresh دکمه
Private Sub Command5_Click()
wb.Refresh
End Sub
Stop دکمه
Private Sub Command3_Click()
wb.Stop
End Sub
Back دکمه
Private Sub Command1_Click()
wb.GoBack
End Sub
Forward دکمه
Private Sub Command2_Click()
wb.GoForward
End Sub
Go دکمه
Private Sub Command6_Click()
wb.Navigate Text1.Text
End Sub
به همین سادگی شما یک براوزر ساختین.