Jump to content

is hard to play with GUI :((


Recommended Posts

Well now my problem is just to WRITE the $$$$ file and i dont get it how to make it all is working all is perfect ( this is a part of a bigger project)

can you tell me how can i write and P.S when i go to AGENDA PERSONALA ( PERSONAL AGENDA) i want to automaticly read the $scrie and can add and save

so please AUTOIT team and friends of AutoIT PIMP MY SCRIPT

#include <GUIConstants.au3>
#include <GuiList.au3>
#include <GuiCombo.au3>
#include <File.au3>

$Scrie = Fileopen("D:\1 password program\cel bun\agenda personala.txt",1)
Opt ('MustDeclareVars', 1)

Dim $msg, $ret, $scrie
Dim $input, $listbox, $button

GUICreate("ListBox Add Item Demo", 500, 350, -1, -1)
GUICtrlCreateLabel("Adauga ce ai pe ziua de azi", 25, 15)
$input = GUICtrlCreateInput("", 165, 10, 180, 25)

$listbox = GUICtrlCreateList("", 165, 40, 180, 120)
$button = GUICtrlCreateButton("Add to List", 175, 160, 120, 40)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $button
            If (StringLen(GUICtrlRead($input)) > 0) Then
                $ret = _GUICtrlListAddItem ($listbox, GUICtrlRead($input))
                FileWrite($Scrie, $input)
                FileClose($Scrie)
            EndIf
    EndSelect
WEnd
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...