Hallo,
wenn ich dieses Script ausführe, kommt immer die Meldung "AutoIt3.exe funktioniert nicht mehr".
Spoiler anzeigen
#include <GUIRichEdit.au3>
#include <GUITab.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Global $RichEditStyle = BitOR($ES_MULTILINE, $ES_AUTOVSCROLL,$ES_AUTOHSCROLL, $ES_WANTRETURN, $ES_READONLY, $WS_VSCROLL)
[/autoit] [autoit][/autoit] [autoit]$MainGUI_Handle = GUICreate("Hilfe", 466, 378, 357, 182)
GUISetOnEvent($GUI_EVENT_CLOSE, "_BeendeProgramm")
$Tab1 = GUICtrlCreateTab(8, 8, 449, 361, BitOR($TCS_FLATBUTTONS,$TCS_BUTTONS))
GUICtrlSetOnEvent($Tab1, "_Tab")
$TabSheet1 = GUICtrlCreateTabItem("Allgemein")
$RichEdit_1 = _GUICtrlRichEdit_Create($MainGUI_Handle, "", 8, 33, 450, 336, $RichEditStyle)
$TabSheet2 = GUICtrlCreateTabItem("Tastenkürzel")
$RichEdit_2 = _GUICtrlRichEdit_Create($MainGUI_Handle, "", 8, 33, 450, 336, $RichEditStyle)
;Versteckt das 2. RichEdit.
ControlHide($MainGUI_Handle, "", $RichEdit_2)
_GUICtrlRichEdit_InsertText($RichEdit_1, FileRead(@ScriptDir & "\German\Allgemein.rtf"))
_GUICtrlRichEdit_InsertText($RichEdit_2, FileRead(@ScriptDir & "\German\Tastenkürzel.rtf"))
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(20)
WEnd
#region Methoden
;Beendet das Programm.
Func _BeendeProgramm()
;~ ProcessClose(@AutoItPID)
Exit
EndFunc
;Wechselt zum nächsten Tab.
Func _Tab()
Switch _GUICtrlTab_GetCurFocus($Tab1)
Case 0
ControlShow($MainGUI_Handle, "", $RichEdit_1)
ControlHide($MainGUI_Handle, "", $RichEdit_2)
Case 1
ControlHide($MainGUI_Handle, "", $RichEdit_1)
ControlShow($MainGUI_Handle, "", $RichEdit_2)
EndSwitch
EndFunc
#endregion Methoden
Woran kann das liegen?
