Mancoffee
Свет проталкивает тьму ...
- Сообщения
- 86
- Репутация
- 1
Если подставляю картинку, то она становится поверх текста и выходить за рамки самой кнопки. Как более гибко управлять оформлением? То есть, как сделать прозрачность, размер, скругление, при наведении и прочее?
Код:
#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1) ;
$ctrlcon = GUICreate("Control Connections", 507, 107, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
$DisLan = GUICtrlCreateButton("Disable Lan", 0, 0, 121, 105, $BS_DEFPUSHBUTTON + $BS_BITMAP)
GUICtrlSetImage(-1, "DisLan.bmp", 0)
GUICtrlSetOnEvent($DisLan, "DisLan")
$EnLan = GUICtrlCreateButton("Enable Lan", 128, 0, 121, 105, $BS_BITMAP)
GUICtrlSetImage(-1, "EnLan.bmp")
GUICtrlSetOnEvent($EnLan, "EnLan")
$DisWF = GUICtrlCreateButton("Disable Wi-Fi", 256, 0, 121, 105)
GUICtrlSetImage(-1, "DisWF.bmp")
GUICtrlSetOnEvent($DisWF, "DisWF")
$EnWF = GUICtrlCreateButton("Enable Wi-Fi", 384, 0, 121, 105)
GUICtrlSetImage(-1, "EnWF.bmp")
GUICtrlSetOnEvent($EnWF, "EnWF")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func DisLan()
RunWait(@ScriptDir & '\devcon.exe disable @PCI\VEN_1969&DEV_1062*', '', @SW_HIDE)
EndFunc
Func EnLan()
RunWait(@ScriptDir & '\devcon.exe enable @PCI\VEN_1969&DEV_1062*', '', @SW_HIDE)
EndFunc
Func DisWF()
RunWait(@ScriptDir & '\devcon.exe disable @PCI\VEN_168C&DEV_002B*', '', @SW_HIDE)
EndFunc
Func EnWF()
RunWait(@ScriptDir & '\devcon.exe enable @PCI\VEN_168C&DEV_002B*', '', @SW_HIDE)
EndFunc
Func Close()
Exit
EndFunc