admin Founder


Registrato: Oct 03, 2008 Messaggi: 261
|
Inviato: Gio Lug 09, 2009 11:08 pm Oggetto: Semplice Blocco Note |
|
|
| Codice: | #include <GuiConstants.au3>
$gui = GUICreate('blocconote',400,400)
GUISetBkColor(0x000000)
GuiCtrlSetState(-1,128)
GUICtrlSetFont(-1,8,5000)
$nome = GUICtrlCreateEdit('',8,8,250,390);
$b1 = GuiCtrlCreateButton('salva',300,3,80,20);
$b2 = GuiCtrlCreateButton('info',300,25,80,20);
GUISetState ( );
While 1
Switch GuiGetMsg();
Case $b1;
$var=GUICtrlRead($nome)
$SAVDialog = FileSaveDialog("Salva", @DesktopDir, "File di testo (*.txt)", "", "Nuovo file di testo.txt")
FileWrite($SAVDialog&".txt",$var)
Case $b2;
MsgBox(0,'info','autore ~NB95~')
Case $GUI_EVENT_CLOSE;
Exit;
EndSwitch;
Wend; |
_________________ D3vil-C0de Crew => http://d3vilc0de.org
My Spaces => http://kinginfet.135.it
My Tool Cracker => http://totalcracker.135.it
My Dj Site => http://djkinginfet.135.it |
|