Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]
..........................................................................................................................



Практические советы по использованию компонента WebBrowser.
Прежде всего, вы можете создать проект с использованием компонента WebBrowser, используя для этой цели VB Application Wizard.
Для этого войдите в меню File | New Project и выберите VB Application Wizard.
Нажмите несколько раз Next, и когда программа спросит вас "Do you want your user to be able to access the Internet from your application" смело нажимайте Yes.
Можно сразу нажать кнопку Finish.
В ваше приложение будет добавлена возможность бродить по Интернету, используя созданный вами проект.
Расположите на основной форме CommandButton и впишите в него следующий код:
frmBrowser.Show
Некоторые возможности компонента WebBrowser у вас автоматически добавятся, и вы сами потом можете на досуге в них разобраться.
Я а же предлагаю вам добавить в ваш проект возможности, которые автоматически не были добавлены Мастером Создания Приложений.

Процесс, показывающий процесс загрузки веб-страницы

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
PBar.Max = ProgressMax
If Progress = -1 Then
Exit Sub
Else
If Progress <> ProgressMax Then
PBar.Value = Progress
progresslbl.Caption = Str(Round((Progress / ProgressMax) * 100)) & pert
Else
PBar.Value = ProgressMax
progresslbl.Caption = Str(Round((Progress / ProgressMax) * 100)) & pert
Exit Sub
End If
End If
End Sub

или такой вариант.

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Value = Progress * 100 / ProgressMax
End If
Exit Sub
End Sub

или такой вариант.

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
ProgressBar1.Refresh
End Sub

Просмотр содержимого веб-страницы "В виде HTML"

2 варианта. Загрузите оба варианта, и посмотрите, что каждый код загружает...


Text1 = WebBrowser1.Document.documentelement.innerhtml
Text2 = WebBrowser1.Document.Body.innerhtml

Вызвать окно "Печать"

On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT

Добавить в ComboBox URL после загрузки

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Combo1.Text = URL
End Sub

Навигация на узел в сети

WebBrowser1.Navigate "about:blank" 'пустая страница
WebBrowser1.Navigate "http://visualprogs.narod.ru"

Запрет на посещение определенных узлов в Инете

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If InStr(1, URL, "playboy.com") Then
Cancel = True
MsgBox "Sorry, that site is restricted!"
End If
End Sub

Ожидание загрузки страницы


Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

Получить данные о загруженной странице


MsgBox WebBrowser1.LocationName 'узнать имя загруженного файла
MsgBox WebBrowser1.LocationURL 'получить URL загруженной страницы

Вызвать окно "Сохранить как..."


WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT

Что-то непонятное...

Private Sub WebBrowser1_SetSecureLockIcon(ByVal SecureLockIcon As Long)
If SecureLockIcon <> 0 Then
imgSecure.Picture = "D:\garbage\ICON\2\face00.ico" 'path to secure icon
Else
imgSecure.Picture = "D:\garbage\ICON\2\face01.ico" 'path to unsecure icon
End If
End Sub

Private Sub WebBrowser1_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
If MsgBox("This webpage is trying to close your browser window." & vbCrLf & vbCrLf & "Are you sure you want to close it?", vbYesNo, "BAPNet") = vbYes Then
Unload Me
Cancel = True
ElseIf vbNo Then
Cancel = True
End If
End Sub



..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]
..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic
Рассылка 'По страницам сайта Visaul Progs' >>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! >>>Если у вас есть статья которой нет на сайте
пришлите ее мне-------->
Послать статью
>>>Если вы хотите задать вопрос
пишите-------->
Мне нужна помощь


Рейтинг сайтов YandeG Rambler's Top100
Реклама:

...:::Design by Mystf0rse 2005-2010 year:::...