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

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

Категории

C/C++

Pascal

Интернет браузър на 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

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