ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Help me!!! VFP & InternetExplorer
8 сообщений из 8, страница 1 из 1
Help me!!! VFP & InternetExplorer
    #34148738
vlad83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad83
Гость
Здравствуйте. Возникла затруднительная ситуация: есть объект label, который отображает определенную ссылку(в caption написано), нужно при наведении на него чтоб указатель мышки сменился на такой как в InternetExplorer при наведении на ссылку(с указательным пальлцем), а при нажатии открывался InternetExplorer по нужной ссылке

при следующем коде:
XLAPP = CREATEOBJECT('InternetExplorer.Application')
XLAPP.VISIBLE = .T.
xlapp.navigate("http://www.sql.ru",,"_self")
окно браузера открывается, все как надо, но оно почему то в свернутом виде. как его развернуть на экран програмно не знаю.
Вариант, открытия страницы в виде формы VFP не устраивает, нужно именно окно браузера
...
Рейтинг: 0 / 0
23.11.2006, 07:56
| Ответить | Цитировать | Написать  
Help me!!! VFP & InternetExplorer
    #34148817
__Jet__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Jet__
Гость
Здрасть!

Свойство:
Lable.MousePointer = 15 (Hand)

В Label.Click() положи свой код

У меня нормально открывается IE.

Ну на крайняк может дескриптор окна IE возьмешь (у объект IE есть свойство HWND) и может можно будет ему отправить сообщение, только я в этом пока не силен.

Успехов!
...
Рейтинг: 0 / 0
23.11.2006, 08:56
| Ответить | Цитировать | Написать  
Help me!!! VFP & InternetExplorer
    #34148896
vlad83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad83
Гость
Спс, но развернуть так и не получается.
Подобные проблемы возникают также с Excel и Word приложениями.
для Excel писал
XLAPP = CREATEOBJECT('Excel.Application')
XLAPP.VISIBLE = .T.
XLAPP.WINDOWSTATE = -4137

Вот, а для Explorer'а какой код не знаю вставить на место windowstate
...
Рейтинг: 0 / 0
23.11.2006, 09:38
| Ответить | Цитировать | Написать  
Help me!!! VFP & InternetExplorer
    #34149159
vlad83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad83
Гость
и в 6-м фоксе нет у этого свойства(MousePointer) значения 15(Hand).
...
Рейтинг: 0 / 0
23.11.2006, 10:44
| Ответить | Цитировать | Написать  
Help me!!! VFP & InternetExplorer
    #34150112
Заботин А.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заботин А.
Участник
vlad83и в 6-м фоксе нет у этого свойства(MousePointer) значения 15(Hand).
Зато там есть значение 99 и свойство MouseIcon.
...
Рейтинг: 0 / 0
23.11.2006, 13:43
| Ответить | Цитировать | Написать  
Help me!!! VFP & InternetExplorer
    #34150554
__Jet__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Jet__
Гость
Короче, эксперементировал с посылкой сообщения окну по его дескриптору, но ни фига не получилось.
И пришел к простому решению:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
DECLARE INTEGER ShowWindow IN User32 INTEGER hWnd, INTEGER nCmdShow

oIE = CREATEOBJECT('InternetExplorer.Application')
oIE.Navigate('http://www.sql.ru',,'_self')
= ShowWindow(oIE.hWnd,  1 )
oIE = Null
CLEAR DLLS

Удачи!
...
Рейтинг: 0 / 0
23.11.2006, 15:12
| Ответить | Цитировать | Написать  
Help me!!! VFP & InternetExplorer
    #34150573
vlad83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad83
Гость
спс
...
Рейтинг: 0 / 0
23.11.2006, 15:18
| Ответить | Цитировать | Написать  
Help me!!! VFP & InternetExplorer
    #34150654
t03
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
t03
Участник
*--------------------------------------------------------------------------
*
* Запуск Web-броузера или любой другой программы средствами винды
*
* tcUrl - URL-адрес
*
FUNCTION GoURL
PARAMETERS tcUrl

DECLARE INTEGER ShellExecute IN SHELL32.dll;
INTEGER nWinHandle, STRING cOperation, STRING cFileName, STRING cParameters,;
STRING cParameters, INTEGER nShowWindow

DECLARE INTEGER FindWindow IN WIN32API STRING cNull, STRING cWinName

= ShellExecute(FindWindow(0, _SCREEN.Caption), 'Open', tcUrl, NULL, NULL, 0)
RETURN
...
Рейтинг: 0 / 0
23.11.2006, 15:39
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Help me!!! VFP & InternetExplorer
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=34148738&tid=1590327]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 143ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 256ms
total:  458ms
созд. / загр.: 458ms
x
x
Закрыть


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