ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получение URL-адреса
3 сообщений из 3, страница 1 из 1
Получение URL-адреса
    #34952607
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Доброго времени суток!
Господа, подкинтье идейку, пожалуйста!
Вопрос вот в чём. Есть форма в ВБ проекте. на форме текстБокс (или комбобокс) не важно.
Проект запущен. Далее, открываем Броузер (InternetExplorer), в котором в строке адреса набито допустим http:\\my_page.ru
Задача: Требуется, чтоб после нажатия кнопки на форме проекта в текстбоксе появлялся этот самый http:\\my_page.ru
Т.е. задача в "выдёргивании текущего УРЛа" из броузера и вставка его в текстовое поле
Приблизительно text1.text = brouser.URL

Благодарю за внимание!!!
...
Рейтинг: 0 / 0
20.11.2007, 16:23
| Ответить | Цитировать | Написать  
Получение URL-адреса
    #34958837
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
Подключаешь 2 библиотеки mshtml.tlb и shdocvw.dll и пишешь код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Option Explicit

Dim ShellWindows As New ShellWindows
Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Private Sub Form_Load()

Dim ShellWindow As Object

    For Each ShellWindow In ShellWindows
        If TypeOf ShellWindow.Document Is HTMLDocument Then
            Set Document = ShellWindow.Document
            MsgBox Document.url
        End If
    Next
End Sub

-----------
Андрей.
...
Рейтинг: 0 / 0
22.11.2007, 15:54
| Ответить | Цитировать | Написать  
Получение URL-адреса
    #34970795
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Ну просто нечеловеческое огромнейшее спасибо!!! Всё работает как часы! Пасибо! ))))
...
Рейтинг: 0 / 0
28.11.2007, 10:15
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получение URL-адреса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34970795&tid=2163019]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 60ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 246ms
total:  380ms
созд. / загр.: 380ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]