powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Открыть страницу сайта
6 сообщений из 6, страница 1 из 1
Открыть страницу сайта
    #39577681
С наступающим, уважаемые!

В форме нужно сделать так, чтобы по нажатию кнопки выбранным браузером открывалась страница сайта,
что-то по типу "Открыть с помощью.."

В модуль добавил:

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

--------------------------------
В форму на нажатие кнопки:
Dim RetVal As Long
RetVal = ShellExecute(0, "open", " https://mySite", "", "", 1)
-------------------------------

А как сделать, чтобы в поле со списком можно было выбрать один из браузеров и он открыл страницу,
а если такого браузера нет,то появилось бы соответствующее сообщение?
...
Рейтинг: 0 / 0
Открыть страницу сайта
    #39577686
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Список установленных браузеров можно взять, например, из HKLM\SOFTWARE\Clients\StartMenuInternet (правда, там не найдёшь Edge...). В shell - получить строку запуска. Добавить полное имя файла/ссылки, и выполнить.

А open без вопросов откроет ссыль в браузере по умолчанию. Там не выберешь...
...
Рейтинг: 0 / 0
Открыть страницу сайта
    #39577695
Если анализировать слишком сложно, то как открыть, например, принудительно эту страницу експлорером, если по умолчанию установлен другой браузер?
...
Рейтинг: 0 / 0
Открыть страницу сайта
    #39577718
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
владимирАлекскак открыть, например, принудительно эту страницу експлорером
Код: vbnet
1.
shell "iexplore.exe " & URL


Само собой, iexplore должен находиться через %PATH%, иначе необходимо указать полный путь к нему (можно взять из HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\x86AppPath), не забыв обрамить кавычками.
...
Рейтинг: 0 / 0
Открыть страницу сайта
    #39577724
AkinaСамо собой, iexplore должен находиться через %PATH%

Это как?
...
Рейтинг: 0 / 0
Открыть страницу сайта
    #39577924
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
владимирАлекс, версия акцес?
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Открыть страницу сайта
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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