Crazy_Mauro |
|
| CODICE #include <GUIConstants.au3>
$Form = GUICreate("TextEditor", 200, 250, "", "", $WS_SIZEBOX)
$Edit = GUICtrlCreateEdit("", 0, 0, 200, 210, $WS_SIZEBOX)
$Menu = GUICtrlCreateMenu("File")
$s_MenuOPN = GUICtrlCreateMenuItem("Apri", $Menu)
$s_MenuSAV = GUICtrlCreateMenuItem("Salva", $Menu)
$s_MenuCLS = GUICtrlCreateMenuItem("Chiudi", $Menu)
$MenuABT = GUICtrlCreateMenu("?")
$s_MenuOPN = GUICtrlCreateMenuItem("About", $MenuABT)
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
GUICtrlRead($Edit)
If $Edit = "" Then
Exit
else
msg()
EndIf
Case $s_MenuOPN
$OPNDialog = FileOpenDialog("Apri", @DesktopDir, "File di testo (*.txt)")
GUICtrlSetData($Edit, FileRead($OPNDialog))
Case $s_MenuSAV
$Read = GUICtrlRead($Edit)
$SAVDialog = FileSaveDialog("Salva", @DesktopDir, "File di testo (*.txt)", "", "Nuovo file di testo.txt")
FileWrite($SAVDialog, $Read)
Case $s_MenuCLS
msg()
Case $MenuABT
MsgBox(64, "About", "Programma Open-Source creato in AutoIt." & @CRLF & "Autore: The_Black_dragon / Crazy_Mauro")
EndSwitch
WEnd
Func msg()
$msgbox = MsgBox(3, "Salvataggio", "Vuoi salvare il documento corrente?")
If $msgbox = 6 Then
$Read = GUICtrlRead($Edit)
$SAVDialog = FileSaveDialog("Nuovo Testo.txt", @DesktopDir, "File di testo (*.txt)", "", "Nuovo file di testo.txt")
FileWrite($SAVDialog, $Read)
ElseIf $msgbox = 7 Then
Exit
EndIf
EndFunc |
| | |
