Autor: Markus Barkholz (---.unity-media.net)
Datum: 01.12.17 22:47
Ich habe ein kleines Progrämmchen mit 4 Buttons erstellt und möchte die nun abfragen. Habe die Hilfe bemüht aber nichts passendes gefunden. Möchte auf die Buttons mit "Shell" externe Programme starten... aber wie?
Var ProgName$ = "Starter V1.0"
WindowTitle ProgName$
WindowStyle 63 '8 + 16
Window 256, 100
CLS : ClearList
Declare hIcon1&, hIcon2&, hIcon3&, hIcon4&
Declare hButton1&, hButton2&, hButton3&, hButton4&
Declare Ende&
hIcon1& = Create("hIcon", "ico/DosBox.ico", 0)
hIcon2& = Create("hIcon", "ico/ScummVM.ico", 0)
hIcon3& = Create("hIcon", "ico/Amiga.ico", 0)
hIcon4& = Create("hIcon", "ico/C64.ico", 0)
hButton1& = Create("ICONBUTTON", %hWnd, hIcon1&, 0, 0, 60, 60)
hButton2& = Create("ICONBUTTON", %hWnd, hIcon2&, 60, 0, 60, 60)
hButton3& = Create("ICONBUTTON", %hWnd, hIcon3&, 120, 0, 60, 60)
hButton4& = Create("ICONBUTTON", %hWnd, hIcon4&, 180, 0, 60, 60)
WaitInput
DeleteObject hIcon1&, hIcon2&, hIcon3&, hIcon4&
|
|
