Trying to make file read/write operations fails/ Win 7

[Newb 5]

Hi all.

I'm on win 7. I'm trying to make a simple database of notes that Input that will allow me to read them when I'll need them. It's still at the start but I'm already having problems.

So this program looks for a file, if it finds it opens it, otherwise it create it.

Look at the source code, I'm on win 7 but when I run this and press the button, nothing happens. Already tried #RequireAdmin

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
Opt("GuiOnEventMode",1)
GUICreate("Second Mind", 612, 550, 247, 162)
GUISetOnEvent(-3,"_Exit")
GUICtrlCreateTab(8, 8, 593, 529)
$TabSheet1 = GUICtrlCreateTabItem("Aggiungi Appunto")
GUICtrlCreateLabel("Titolo:", 16, 48, 33, 17)
GUICtrlCreateLabel("Appunto:", 16, 104, 47, 17)
$TitoloAdd = GUICtrlCreateInput("Input1", 16, 72, 449, 21)
$AppuntoAdd = GUICtrlCreateInput("Input2", 16, 128, 449, 21)
$TitoloAddButt = GUICtrlCreateButton("Aggiungi appunto", 480, 72, 105, 25)
GUISetOnEvent(-1,"_SaveFile")
$AppuntoAddButt = GUICtrlCreateButton("Informazioni", 480, 128, 105, 25)
$TabSheet2 = GUICtrlCreateTabItem("Consulta Appunto")
GUICtrlCreateLabel("Titolo:", 16, 160, 33, 17)
GUICtrlCreateLabel("Appunto:", 16, 216, 47, 17)
$TitoloRead = GUICtrlCreateInput("Input2", 16, 240, 569, 21)
$AppuntoRead = GUICtrlCreateInput("Input1", 16, 184, 561, 21)
$RicercaButt = GUICtrlCreateButton("Cerca", 480, 80, 105, 25)
$RicercaEdit = GUICtrlCreateInput("Ricerca", 16, 80, 417, 21)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func _Exit()
    Exit
EndFunc

Func _SaveFile()
    If Not FileExists(@DesktopDir&"/Appunto.sdm") Then
        _FileCreate(@DesktopDir&"/Appunto.sdm")
        MsgBox(0,"ok","file creato")
    Else
        FileOpen(@DesktopDir&"/Appunto.sdm")
        MsgBox(0,"ok","file trovato")
        GuiCtrlRead($TitoloAdd)
    EndIf
EndFunc

Thanks

[JohnOne 1,587]

GUISetOnEvent(-1,"_SaveFile")

Tyr

GUICtrlSetOnEvent(-1,"_SaveFile")

[BrewManNH 1,082]

Change this:

$TitoloAddButt = GUICtrlCreateButton("Aggiungi appunto", 480, 72, 105, 25)
GUISetOnEvent(-1,"_SaveFile") ;<<<<<<<<<<<<<<<<<<<<< Change this line

To this:

$TitoloAddButt = GUICtrlCreateButton("Aggiungi appunto", 480, 72, 105, 25)
GUICTRLSetOnEvent(-1,"_SaveFile") ; <<<<<<<<<<<<<<<<<< To this

You're trying to fire an event on the GUI and not on the control the way it was originally written.

[Newb 5]

Thanks everyone.