Контрол Веб Браузер и безопасность Виндовс |
Private Sub WebBrowser488_DblClick(Cancel As Integer) Dim browser As WebBrowser Set browser = WebBrowser488.Object Call openApplicationURL(browser.Document.FocusedItem.Path) Cancel = True On Error Resume Next MsgBox ("Error:" + Err.Number + ":" + Err.Description) End Sub Private Sub openApplicationURL(sURL As String) Application.FollowHyperlink (sURL) End Sub
https://www.sql.ru/forum/1316107/kontrol-veb-brauzer-i-bezopasnost-vindovs
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |