Главная | Регистрация | Вход | RSSПятница, 25/Май/2018, 18:08

МБОУ "СШ №36"

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум Школы №36 » Программирование » Visual Basic 6.0 » Браузер
Браузер
ex1kДата: Воскресенье, 09/Дек/2007, 16:21 | Сообщение # 1
¤Администратор + модератоР¤
Группа: Администраторы
Сообщений: 243
Репутация: 19
Статус: Offline
Напишем програмку под названием Браузер!

Ну как я и обещал, будем делать свой инет браузер. Подключи компонент Microsoft Internet Controls. На форме размести WebBrowser(назови его WB), 4 кнопки(у 1ой Caption = "Назад", у 2ой = "Вперед", у 3ей = "Домой", у 4ой = "Обновить"), метку(Caption = "Адрес:", AutoSize = True(это чтоб размеры метки регулировались автоматом)), и текстовое поле(Caption="http://").
Теперь пишем код:

Private Sub Command1_Click() ' Кнопка назаD
WB.GoBack
End Sub

Private Sub Command2_Click() ' Кнопка вперед
WB.GoForward
End Sub

Private Sub Command3_Click() ' Кнопка Домой
WB.GoHome
End Sub

Private Sub Command4_Click() ' Кнопка Обновить
WB.Refresh
End Sub

Private Sub Form_Resize() ' При изменении размера формы меняем размер WB
WB.Left = 20
WB.Top = 1080
WB.Width = Form1.Width - 140
WB.Height = Form1.Height - 1500
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then ' Если нажата клавиша Enter то:
WB.Navigate Text1.Text ' Открываем введенный в текстовое поле адресс
' Меняем заголовок формы
Form1.Caption = ""
Form1.Caption = Text1.Text & Form1.Caption
End If
End Sub

Всё наш браузер готов можно пользоваться


________________0ооо___
___ооо0________(___)____
__(___)_________) _/_____
___\_ (_________(_/______
____\_)_________________
 
Форум Школы №36 » Программирование » Visual Basic 6.0 » Браузер
  • Страница 1 из 1
  • 1
Поиск:


Copyright MyCorp © 2018
Бесплатный конструктор сайтов - uCoz