Visual Basicте программа түзүү: Веб -браузер: 9 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

Бул көрсөтмө VB. NETте жөнөкөй веб -браузер тиркемесин түзүү процессин түшүндүрөт Бул менин биринчи VB. NET Instructable: Visual Basicте биринчи программаңызды түзүү үчүн иштелип чыккан. Бул үйрөткүч аркылуу окууңуз сунушталат, анткени бул көрсөтмө сизде Visual Basic Express Edition Interface боюнча негизги билимге ээ деп болжолдонот, менин башка көрсөтмөмдө камтылган. Visual Basic 2008 Express Edition, Microsoft тарабынан жеткиликтүү

1 -кадам: Долбоорду түзүү

Жаңы Windows Forms долбоорун түзүңүз жана аны Веб -браузер деп атаңыз. Форманын өлчөмүн өзүңүз каалагандай өзгөртүңүз.

2 -кадам: Башкарууну кошуңуз, жана касиеттерин өзгөртүңүз

Куралдар кутусунан TextBox, WebBrowser жана A Button формасына сүйрөңүз. Аларды сүрөттөгүдөй жайгаштырыңыз. Андан кийин, TextBox менен WebBrowserдин Anchor касиетин өзгөртүңүз, андыктан боз чарчы тегеректеги бардык кутучалар тандалып алынат (казыктын касиетин түзөткөндө көрсөтүлөт), бул форма өлчөмү өзгөртүлгөндө башкаруу элементтерин "сунууга" мүмкүндүк берет. Баскыч үчүн да ушундай кылыңыз, бирок аны "Өйдө, Оңго" гана коюңуз. Ошондой эле Form1дин Текст касиетин веб -браузерге же титул тилкесин өзгөртүүгө окшош нерсени өзгөртүңүз.

3 -кадам: код

Button1ди эки жолу чыкылдатыңыз жана "Жеке суб" линиясынан кийин жана "Sub Sub" линиясынын алдында төмөнкү кодду редакторго кошуңуз.

WebBrowser1. Navigate (TextBox1. Text)Бул код жөн эле программага мындай дейт: Кимдир бирөө Button1 басканда, WebBrowserди TextBox1де бар нерсеге өтүүгө жеткиликтүү кыл! Сизде иштеп жаткан веб -браузер бар. Аны текшерүү үчүн ойнотуу баскычын басыңыз.

4 -кадам: Көбүрөөк нерселер

Эми мен сизге бир эле кодду берем деп ойлогон жоксузбу? Кийинки бир нече кадамдарда биз төмөнкүлөрдү ишке ашырабыз:

• Барак өзгөргөн сайын дарек тилкеси өзгөрөт
• Артка, алдыга жана жаңыртуу баскычтары
• Статус тилкеси.

5 -кадам: Adress Bar

Учурда дарек тилкесинин баары сиз жазган баракты көрсөтөт, эгер сиз шилтемени бассаңыз, өзгөрүү дарек тилкесинде чагылдырылбайт. Муну оңдоо үчүн, дагы бир нече кодду кошуу керек Дизайн көрүнүшүнө кайтып, "Form 1.vb (Дизайн)" баскычын чыкылдатып, анан WebBrowser көзөмөлүн эки жолу чыкылдатыңыз. Ал кайра код көрүнүшүнө өтөт, бирок дагы бир нече код болот, "WebBrowser1_DocumentCompleted" деп жазылганын байкаңыз, бул биз каалаган код, андыктан бул жерде эч кандай өзгөртүүлөрдү киргизүүнүн кажети жок, бирок боштук бар анын астына сызык, End Sub билдирүүсүнүн алдында жана биз ошол жерге бир нече кодду кошкубуз келет. Ал жерге төмөнкүлөрдү жазыңыз

TextBox1. Text = WebBrowser1. Url. ToStringБул программа WebBrowser1_DocumentCompleted кийин, биз WebBrowser1. Url TextBox1. Text өзгөртүү керек экенин билдирет. ToString ошол жерде, анткени, демейки боюнча, веб -браузердин URL касиети биздин текст кутусуна керек болгон маалыматтын бир түрү (сап) эмес. ToString URL дарегин TextBox үчүн сапка жазат.

6 -кадам: Аракет баскычтары

Дизайн көрүнүшүнө кайтып, 3 жаңы баскычты формага сүйрөп, аларды жайгаштырыңыз. Ар биринин Текст касиетин өзгөртүңүз: Button2 = Back, Button3 = Forward жана Button4 = Refresh. Эгер сиз аларды меникиндей жайгаштырсаңыз, Refreshтин анкердик касиетин жогору карай тууралаңыз, RightDouble Артка баскычын басыңыз жана төмөнкү кодду териңиз.

WebBrowser 1. GoBack () Дизайнга кайтып, Алга эки жолу чыкылдатыңыз жана териңиз

WebBrowser 1. GoForward ()Дизайн көрүнүшү жана Жаңылоо үчүн эки жолу чыкылдатыңыз

WebBrowser 1. Refresh ()Браузерди сынап, жаңы функцияларды колдонуп көрүңүз.

7 -кадам: Статус тилкеси

Дизайн көрүнүшүнө кайтып, этикетканы кошуңуз, Тексти "Жүктөөдө" деп өзгөртүңүз (цитатасыз) Эми Form1.vb өтмөгүн чыкылдатуу менен коддун көрүнүшүнө өтүңүз. WebBrowser1_DocumentCompleted жазуусун таап, мурда жайгаштырган кодуңуздун астына териңиз

Label1. Text = "Бүттү"Эми, DocumentCompleted деп аталган кодду чыкылдатыңыз. Чычканыңызды эки ачылуучу кутучага жылдырыңыз. Экинчисин (DocumentCompleted дейт) тандап, Навигацияны тандаңыз. Андан кийин, жаңы код пайда болот - typ

Label1. Text = "Жүктөлүүдө"Бул жөн гана барак жүктөлүп жатканда көрсөткүчтү камсыз кылат.

8 -кадам: Толук

Мына сен бар. Сизде толук иштей турган веб -браузер бар. Сиз каалагандай өзгөчөлөштүрүүнү улантыңыз. Менин биринчи көрсөтмөм боюнча. Бул көрсөтмөнү аткаргандар үчүн үй тапшырмам бар.

• Үй функциясы
• Барак жүктөлүп жатканда Refresh баскычын Stop баскычына өзгөртүңүз.

Бул долбоорлор сизге программалоонун канчалык оңой экенин көрсөттү деп үмүттөнөм!

9 -кадам: Чечимдер

Менин биринчи VBимди үйрөткөндөр үчүн - аягында койгон үй тапшырмаларымдын чечимдери бар.

Фондун түсүн өзгөртүү

Бул жөнөкөй - Form1дин BackColour касиетин башка түскө өзгөртүңүз

Автордук укук боюнча айрым маалыматтарды кошуңуз

Тексттин касиети өзгөргөн жаңы этикетка бул нерсени жасайт

Сүрөт менен форманын өлчөмүн өзгөртүңүз

AutoSize'ди True жана AutoSizeModeду GrowAndShrinkDoneго өзгөртүңүз! Дагы эле келе жатат: Мен дагы VB. NET Instructables түзө берем. Коддоону улантыңыз!