Что нового

[Элементы GUI] Строки ListBox в качестве кнопок

CtrlSoft

Новичок
Сообщения
3
Репутация
0
Напишите простой пример пожалуйста.
Требуется что-бы при нажатии, запускалась программа или выполнялись некоторые команды.



Код:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 405, 294, 256, 147)
$List1 = GUICtrlCreateList("", 128, 88, 145, 97)
GUICtrlSetData(-1, "Calc|msPaint|Notepad|WordPad")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd
 

AZJIO

Меценат
Меценат
Сообщения
2,879
Репутация
1,194
Код:
#include <GUIConstants.au3>

$Form2 = GUICreate("Form2", 405, 294, 256, 147)
$List1 = GUICtrlCreateList("", 128, 88, 145, 97)
GUICtrlSetData(-1, "Calc|msPaint|Notepad|WordPad")
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $List1
			Switch GUICtrlRead($List1)
				Case 'Calc'
					Run('Calc.exe')
				Case 'msPaint'
					Run('msPaint.exe')
				Case 'Notepad'
					Run('Notepad.exe')
				Case 'WordPad'
					Run('WordPad.exe')
				Case Else
					Run('Explorer.exe /select,C:\Boot.ini')
			EndSwitch
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
 
Верх