HardPlay
Soldado
Mensagens : 16
Idade : 32
Data de inscrição : 16/05/2011
Localização : Campinas-SP
Personagem
Level: 200/200
Nome: N Posto :)
Jogo: WYD
 |  Assunto: Simples Editor De Texto Em AutoIt  Seg 16 maio 2011 - 15:10 | |
| Aew Galera Hj Vou Postar Uma Source Q Criei De Um Editor De Texto Imagem:  Source: - Código:
-
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Editor De Textos", 316, 321, 193, 124)
$MenuItem1 = GUICtrlCreateMenu("Arquivo")
$MenuItem2 = GUICtrlCreateMenuItem("Abrir Arquivo", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Salvar Arquivo", $MenuItem1)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 313, 297)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
$Texto = GUICtrlRead($Edit1)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem2
$Arquivo_Txt = FileOpenDialog("Editor De Texto", @DesktopDir, "Arquivos De Texto (*.txt;*.ini)")
$Ler_Txt = FileRead($Arquivo_Txt)
GUICtrlSetData($Edit1, $Ler_Txt)
Case $MenuItem3
$Salvar_Txt = FileSaveDialog("Editor De Texto", @DesktopDir, "Arquivos De Texto (*.txt;*.ini)")
$Abrir_Txt = FileOpen($Salvar_Txt, 2)
FileWrite($Abrir_Txt, $Texto)
EndSwitch
WEnd PasteBin: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link] Editor De Texto | |
|
