Практическая работа 47. Создание Browser

1. Последовательность действий:

o вывести элемент управления WebBrowser: меню Проект Компоненты Microsoft Internet Controls OK, вывести его на форму, рис. 7.1 центр,

o создать на форме элемент управления StatusBar: меню Проект Компоненты Microsoft Windows Common Controls OK вывести на форму с панели элементов управления элемент управления StatusBar, рис. 7.1внизу,

o свойству Style, созданного на форме элемента управления (рис. 7.1вверху) СomboBox присвоить значение 0; очистить свойство Text,

o создать 5 объектов CommandButton: Command1, Caption = New URL; Command2, Caption = STOP; Command3, Caption = HOME; Command4, Caption = FORWARD; Command5, Caption = BACK. Cвойствам Picture присвоить значения - имена файлов с рисунками, см. рис. 7.1вверху,

2. найти (меню Windows Пуск Поиск) файлы tearoom.htm, readmevb.htm, Register.htm (или другие файлы формата *.htm, имеющиеся в наличии), скопировать их на дискету,

3. ввести код, данный ниже, пояснения даны под комментариями,

4. стартовать проект; в поле элемента управления WebBrowser выводится стартовый файл (здесь) Running Bithday.htm, см. код; в поле комбинированного списка имеется одна запись "Running Bithday", в поле объекта StatusBar - соответствующая запись,

5. ввести в текстовое поле СomboBox последовательно имена файлов и соответствующие пути: tearoom.htm, readmevb.htm, Register.htm, нажимая после каждого ввода командную кнопку Command1 (New URL) - в поле WebBrowser выводятся новые страницы, список СomboBox заполняется именами файлов. Наблюдать содержимое поля StatusBar,

6. использовать кнопки Command3 (HOME), Command4 (FORWARD), Command5 (BACK) - в поле WebBrowser выводятся ранее использованные страницы (рис. 7.1).

' описание переменной, предназначенной для хранения ' стартового URLPrivate start As String' инициализация переменной, хранящей стартовый URL и' передача параметра процедуре навигации ' Web Browser1.Navigate startPrivate Sub Form_Load() ErhaltAdrmakeNavig startEnd Sub' присвоить переменной значение - имя файлаPrivate Sub ErhaltAdr()start = "file://A:\Running Birthday.htm"End Sub' навигация браузера. В результате навигации ' устанавливается соединение с соответствующим узлом ' и начинается загрузка файла, указанного в URLPrivate Sub makeNavig(Adr As String) WebBrowser1.Navigate AdrEnd Sub' командной кнопкой можно остановить передачу и ' загрузку файлаPrivate Sub WebBrowser1_DownloadBegin() Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() WebBrowser1.StopEnd Sub' заканчивается загрузка файла, указанного в URL, ' останавливать нечегоPrivate Sub WebBrowser1_DownloadComplete() Command2.Enabled = False' указать имя файла (URL) в статусной строкеStatusBar1.SimpleText = WebBrowser1.LocationName StatusBar1.SimpleText = "LOAD FROM: " & WebBrowser1.LocationNameWith ComboBox1' включить в список ComboBox имя файла ' текущего URL и исключить 5-й элемент списка,' если список полон.AddItem WebBrowser1.LocationName'.ListIndex = 0If.ListCount > 5 Then.RemoveItem 5End IfEnd WithEnd Sub' перемещения к ранее использованным страницамPrivate Sub Command5_Click() WebBrowser1.GoBackEnd SubPrivate Sub Command4_Click()WebBrowser1.GoForwardEnd SubPrivate Sub Command3_Click()makeNavig startEnd Sub' после ввода пути и имени файла в поле ComboBox (здесь ' используется тип доступа "file:\\путь:") сделать щелчок' на кнопке для реализации навигацииPrivate Sub Command1_Click() makeNavig ComboBox1.TextEnd Sub

Рис. 7.1. Browser