Visual Basic -da dastur yaratish: veb -brauzer: 9 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

Bu ko'rsatma VB. NET -da oddiy veb -brauzer dasturini yaratish jarayonini tushuntiradi, bu mening birinchi VB. NET yo'riqnomamning davomi sifatida yaratilgan: Visual Basic -da birinchi dasturingizni yaratish. Dastlabki ko'rsatmalarni o'qib chiqish tavsiya etiladi, chunki bu ko'rsatma sizda Visual Basic Express Edition interfeysi haqida asosiy ma'lumotga ega ekanligimni nazarda tutadi, lekin boshqa ko'rsatmamda ko'rsatilgandek. Visual Basic 2008 Express Edition, Microsoft -da mavjud

1 -qadam: Loyihani yarating

Yangi Windows Forms loyihasini yarating va uni Veb -brauzer deb nomlang. Shaklni xohlaganingizcha o'zgartiring.

2 -qadam: Boshqaruv elementlarini qo'shing va xususiyatlarini o'zgartiring

Asboblar qutisidan TextBox, WebBrowser va tugmachani shaklga torting. Ularni rasmdagi kabi joylashtiring. Keyin, TextBox va WebBrowser -ning Anchor xususiyatini tahrirlang, shunda kulrang kvadrat atrofidagi barcha katakchalar (langar xususiyatini tahrir qilganingizda ko'rsatiladi) tanlanadi, bu esa forma o'lchamini o'zgartirganda boshqaruv elementlarini "cho'zish" imkonini beradi. Tugma uchun ham xuddi shunday qiling, lekin uni "Yuqoriga, O'ngga" o'rnating. Shuningdek Form1 matnli xususiyatini Veb -brauzerga o'zgartiring, yoki shunga o'xshash narsalarni sarlavha satrini o'zgartiring.

3 -qadam: kod

Button1 -ni ikki marta bosing va "Maxsus sub" qatoridan keyin va "Sub Sub" qatoridan oldin quyidagi kodni tahrirlovchiga qo'shing.

WebBrowser1. Navigate (TextBox1. Text)Bu kod shunchaki dasturga aytadi: Kimdir Button1 tugmasini bosganida, WebBrowser -ni TextBox1 -dagi hamma narsaga o'tishga undang, bu hammasi! Sizda ishlaydigan veb -brauzer bor. Sinab ko'rish uchun ijro etish tugmasini bosing.

4 -qadam: Qo'shimcha narsalar

Endi men sizga bitta kod satrini beraman deb o'ylamagan edingiz - shundaymi? Keyingi bir necha bosqichda biz quyidagilarni amalga oshiramiz:

• Sahifa o'zgarganda o'zgaradigan manzillar paneli
• Orqaga, oldinga va yangilash tugmalari
• Vaziyat paneli.

5 -qadam: Manzil paneli

Hozirgi vaqtda manzil satrida siz kiritgan sahifa ko'rsatiladi, agar siz havolani bosgan bo'lsangiz, o'zgarish manzil satrida aks etmaydi. Buni tuzatish uchun biz yana bir nechta kod qo'shishimiz kerak Dizayn ko'rinishiga qayting, "Form 1.vb (Dizayn)" ni bosing va keyin WebBrowser boshqaruvini ikki marta bosing. U kod ko'rinishiga qaytadi, lekin u erda yana bir nechta kod bo'ladi, "WebBrowser1_DocumentCompleted" deb yozilganiga e'tibor bering, bu biz xohlagan kod, shuning uchun bu erda hech qanday o'zgartirish kiritish shart emas, lekin bo'sh joy bor satrni End Sub bayonotidan oldin va biz u erga ba'zi kod qo'shishni xohlaymiz. U erga quyidagilarni kiriting

TextBox1. Text = WebBrowser1. Url. ToStringBu dasturga WebBrowser1_DocumentCompleted tugagach, TextBox1. Text -ni WebBrowser1. Url -ga o'zgartirish kerakligini bildiradi. ToString u erda, chunki veb -brauzerning URL xususiyati, matn qutisiga kerak bo'lganidek, bir xil ma'lumotlar turiga (mag'lubiyatga) ega emas. ToString URL manzilini TextBox satriga yozadi.

6 -qadam: Harakat tugmalari

Dizayn ko'rinishiga qayting va shaklga 3 ta yangi tugmani suring va joylashtiring. Har birining matn xususiyatini o'zgartiring: Button2 = Orqaga, Button3 = Oldinga va Button4 = Yangilash. Agar siz ularni meniki kabi joylashtirsangiz, "Yangilash" ning langar xususiyatini yuqoriga ko'taring, "Orqaga" tugmachasini o'ng tugmasini bosing va quyidagi kodni kiriting.

1. Veb -brauzer 1. GoBack () Dizaynga qayting, Oldinga ikki marta bosing va yozing

WebBrowser 1. GoForward ()Dizayn ko'rinishi va yangilash uchun ikki marta bosing

1. Veb -brauzer 1. Yangilash ()Brauzerni sinab ko'ring va yangi funktsiyalarni sinab ko'ring.

7 -qadam: holat paneli

Dizayn ko'rinishida, yorliq qo'shing va matnni "Yuklanmoqda …" ga o'zgartiring (tirnoqsiz) Endi Form1.vb yorlig'ini bosish orqali kod ko'rinishiga o'ting. WebBrowser1_DocumentCompleted yozuvini toping va oldin joylashtirgan kod ostiga yozing

Label1. Text = "Bajarildi"Endi, DocumentCompleted kodi yozilgan joyni bosing. Sichqonchani yuqoriga ko'tariladigan ikkita katakka olib boring. Ikkinchisini tanlang (DocumentCompleted deyiladi) va Navigatsiya -ni tanlang. Keyin yangi kod paydo bo'ladi - yozing

Label1. Text = "Yuklanmoqda"Bu faqat sahifa yuklanayotganda indikatorni beradi, shuningdek, yorliqning anchor xususiyatini o'rnatishni xohlashingiz mumkin.

8 -qadam: To'liq

Mana, borasiz. Sizda to'liq ishlaydigan veb -brauzer mavjud. Buni xohlaganingizcha sozlashni davom eting. Bu ko'rsatmalarni bajarganlar uchun uy vazifam bor. Quyidagilarni bajaring:

• Uy vazifasi
• Sahifa yuklanayotganda Yangilash tugmachasini To'xtatish tugmasiga o'zgartiring.

Umid qilamanki, bu loyihalar sizga dasturlash qanchalik oson ekanligini ko'rsatdi!

9 -qadam: echimlar

Birinchi VB -ni o'rgatganlar uchun - men oxirida uy vazifasini hal qilish uchun echim topdim.

Fon rangini o'zgartiring

Bu oddiy - Form1 ning BackColour xususiyatini boshqa rangga o'zgartiring

Mualliflik huquqi haqida ba'zi ma'lumotlarni qo'shing

Matn xususiyati o'zgartirilgan yangi yorliq hiyla qiladi

Rasm yordamida shaklni o'zgartirish hajmini o'zgartiring

"AutoSize" ni "True" ga, "AutoSizeMode" ni "GrowAndShrinkDone" ga o'zgartiring! Hali ham bo'ladi: men yana VB. NET yo'riqnomalarini yarataman. Kodlashni davom ettiring!