Hallo ihr progger 
Habe gerade ein kleine Problem:
Ich möchte mit dem Koda Form Designer eine Grafik in die GUI einfügen und wenn man auf diese Grafik klickt soll ein Programm geöffnet werden.
Wie geht das?
Mfg Blutkiller
Koda Grafiken und Programm öffnen^^
-
- [ offen ]
-
Blutkiller -
2. März 2010 um 15:47 -
Geschlossen -
Erledigt
-
-
genauso wie mit allen anderen auch
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 366, 197, 192, 124)
$Graphic1 = GUICtrlCreateGraphic(32, 16, 297, 161)
GUICtrlSetBkColor(-1, 0x0054E3)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Graphic1
msgbox(0,"","grafik geklick")
EndSwitch
WEnd -
und wie kann ich dann z.b. aion öffnen
-
oh sry das mit dem programm öffnen hab ich total überlesen
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 366, 197, 192, 124)
$Graphic1 = GUICtrlCreateGraphic(32, 16, 297, 161)
GUICtrlSetBkColor(-1, 0x0054E3)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Graphic1
shellexecute("calc.exe")
; calc.exe dient nur als beispiel, du kannst auch jeden pfad zu einem Programm verwenden also z.B. shellexecute("C:\Programme\....")
EndSwitch
WEnd -
Und wie kann ich das so programmieren dass es auf allen Computern geht also wenn man den Pfad einmal angibt dass es gespeichert wird
-
höchstwahrscheinlich meinst du makros
[autoit]
also sowas:
[/autoit]
ShellExecute(@ProgramFilesDir & "\Ordner\Programm.exe")schau dir am besten mal die liste an:
http://translation.autoit.de/onlinehilfe/macros.htm -
kannst du mir das vllt genau erklären?
Mfg Blutkiller
-
Oder auch so:
Spoiler anzeigen
[autoit]If NOT FileExists(@ScriptDir & "\pfad.txt") Then
[/autoit] [autoit][/autoit] [autoit]
$pfad = InputBox("Achtung","Bitte Pfad zu Aion eingeben")
If NOT @error Then
FileWrite(@ScriptDir & "\pfad.txt",$pfad)
Else
Exit
EndIf
EndIf
$Aion = FileRead(@ScriptDir & "\pfad.txt")ShellExecute($Aion)
[/autoit] -
Es gibt Makros: http://translation.autoit.de/onlinehilfe/macros.htm
Dort ist eh alles erklärt
@ProgramFilesDir = "C:\Programme" bzw. auf nem englischen PC "C:\ProgramFiles