Visual Basic | Интернет браузър на VB 2008

Потребителски панел

Категории

C/C++ (17)

C# (8)

Facebook

Интернет браузър на VB 2008 | Автор: admin | Дата: 11.10.2009

Отворете Visual Basic 2008 Express Edition. И създайте нов проект от тук.

После изберете Windows Form приложение, именувайте вашият проект с някакво име и кликнете бутона OK.

Може да промените текста на формата с името на вашия браузър. Това се правите като кликнете на формата и долу в дясно от прозореца с настройки променете името срещу text. После променете опцията WindowState на Maximized, така че когато потребителя стартира вашият браузър да му излиза на цял екран.

Добавете WebBrowser от менюто с инструменти.

После натиснете новопоявилата се иконка в горния десен край и изберете Undock in parent container.

После от настройките променете Anchor на WebBrowser-а както е на картинката.

После си нагласете така двата прозореца (този белия в който ще се отварят страниците и главния на браузъра) така че да остане свободно място за менюто и бутоните отгоре.

Сега ще зададем началната страница, която ще се отваря при стартиране на уеб браузъра. За целта кликнете на него и от процореца за настройки задайте адрес на страницата, която искате да бъде начална.

Сега добавете два бутона за напред и назад над браузъра в мястото което заделихме предварително. Сменете им текста на << и >>.

Както може би вече сте се досетили бутона << ще бъде за назад, а >> за напред. Сега ще ги кодираме. Първо кликнете два пъти на бутона за назад (<<) и ще ви излезе прозорец за код, там напишете това:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



    WebBrowser1.GoBack()



End Sub

По-същия начин и за другия бутон за напред(>>) и добавете кода:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



    WebBrowser1.GoForward()



End Sub

Сега добавете един етикет(Label) до бутоните и му променете името на "Address:". После до него добавете текст кутия(TextBox).

Сега кликнете на текст кутията и от настройките променете Anchor на Top,Left,Right. Причината да правим това е за да може когато потребителя променя размера на браузъра, да се променя и размера на текст кутията.

Добавете още един бутон и го поставете до текст кутията. Преименувайте го на Go.

Сменете от настройките на бутона Anchor на Top, Right.

Кликнете два пъти на бутона GO и му добавете следния код:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click



    WebBrowser1.Navigate(TextBox1.Text)



End Sub

Добавете още 2 бутона и сменете техния текст на Home и Refresh.

Сменете от настройките и на двата бутона техния Anchor на Top,Right.

Двоен клик на бутона Home и добавете следния код:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click



    WebBrowser1.GoHome()



End Sub

Двоен клик на бутона Refresh и добавете следния код:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click



    WebBrowser1.Refresh()



End Sub

Вашият браузър е готов и би трябвало да работи добре. Може да изтеглите целия проект готов оттук - http://programming-bg.com/projects/4.html

Урока е преведен специално за Programming-bg.com . Моля не копирайте без моето съгласие!
Източник: www.reflectionforbrain.com

Беше ли Ви от полза урокът?

Още уроци за Visual Basic

Искате да пишете коментари? Влезте от тук или се регистрирайте!

Коментари (7):

От atyy на 20.10.2009 в 20:03 часа

А после с какво се отваря този Browser hmmm

От admin на 20.10.2009 в 21:59 часа

Като най-нормален браузър. wink

EXE файл незнаеш ли как се отваря? smile

От svetlin на 04.01.2010 в 20:06 часа

ще стане ли Visual Basic 6 portable

От programmer на 11.11.2010 в 21:42 часа

Как ще се направи да показва страницата на сайта.Смисал такъв примерно като влезеш в Programming-bg.com и като натиснеш Форум отгоре на адрес да пише : http://programming-bg.com/forum/ ?

От w0xer на 13.01.2011 в 16:04 часа

Мерси за урока smile

Всъщонст на мен ми трябваше само кода на бутона Go,но е полезен урока! Хмм programmer е прав.

От sansei на 13.07.2011 в 23:31 часа

А как може да се направи просто да зарежда някакъв сайт , без да има бутони и друго неща ?

От gredon95 на 15.12.2011 в 22:13 часа

Супер е ! Браво!