Переход на сайт
- Автор темы CreatiK
- Дата начала
- Сообщения
- 596
- Репутация
- 157
CreatiK-кун, а не могу бы ты сразу написать ответ твоего ребуса?
У меня, уже, что-то плохо стало с логикой ))
Хотя, нет, таки попробую: При нажатии на Label элемент в своем GUI открыть в браузере определенную страницу.
Так?
У меня, уже, что-то плохо стало с логикой ))
Хотя, нет, таки попробую: При нажатии на Label элемент в своем GUI открыть в браузере определенную страницу.
Так?
- Сообщения
- 3,999
- Репутация
- 967
Yashied
:laugh:
CreatiK
:laugh:
CreatiK
Код:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 105, 59, 192, 114)
$Label1 = GUICtrlCreateLabel("http://ya.ru", 26, 16, 55, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Label1
ShellExecute($sPath &"\firefox.exe", GUICtrlRead($Label1))
EndSwitch
WEnd
- Сообщения
- 596
- Репутация
- 157
Пример:
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('GUIOnEventMode', 1)
Opt('MustDeclareVars', 1)
Global $sLabel
GUICreate('My GUI')
GUISetOnEvent($GUI_EVENT_CLOSE, '_ProExit')
GUICtrlCreateLabel('Open www.google.ru', 10, 20)
GUICtrlSetOnEvent(-1, '_OpenSite')
GUISetState()
While 1
Sleep(10)
WEnd
Func _ProExit()
Exit
EndFunc
Func _OpenSite()
Run('C:\Program Files (x86)\Mozilla\Firefox\firefox.exe "' & 'www.autoit-script.ru' & '"')
EndFunc