Hallo Leute.
Ich hab hier so ein Problem mit einem Notizprogramm das ich zuzeit habe.
Ich würde es gerne haben, dass man ein ListViewItem löschen kann, und das man den Inhalt von Notizen lesen kann.
Wenn möglich, dann gebt mir nicht gleich das Fertige Skript zurück, sondern sagt wie man es machen kann.
( Ich mags nicht so, wenn etwas fertig ist und ich es nicht wirklich selber geschrieben hab )
Hier ist der Code:
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
If Not FileExists("notepad.ini") Then
IniWrite("notepad.ini","notenumber","notenumber",0)
EndIf
$number = IniRead("notepad.ini","notenumber","notenumber",0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Local $hHeight = 300
Local $hWidth = 250
Global $date = @MDAY & "." & @MON & "." & @YEAR
Global $hGUI = GUICreate("Notepad",$hWidth,$hHeight)
[/autoit] [autoit][/autoit] [autoit]Global $hMenu = GUICtrlCreateMenu("Datei")
Global $hMenuDI1 = GUICtrlCreateMenuItem("Neue Notiz erstellen",$hMenu)
Global $hMenuDI2 = GUICtrlCreateMenuItem("Programm schließen",$hMenu)
GLobal $hMenu2 = GUICtrlCreateMenu("Bearbeiten")
Global $hMenuBI1 = GUICtrlCreateMenuItem("Notiz löschen",$hMenu2)
Global $hMenu3 = GUICtrlCreateMenu("Hilfe")
Global $hMenuHI1 = GUICtrlCreateMenuItem("Credits",$hMenu3)
Global $hList = GUICtrlCreateListView("Betreff|Erstellungsdatum",10,10,227,250)
GUICtrlSendMsg($hList, $LVM_SETCOLUMNWIDTH,-1,0)
GUICtrlSendMsg($hList, $LVM_SETCOLUMNWIDTH,-2,0)
GUISetState(@SW_SHOW)
If $number <> 0 Then
For $i = 1 to $number Step +1
$listitem = GUICtrlCreateListViewItem(IniRead("notepad.ini",$i,"Betreff",0) & "|" & IniRead("notepad.ini",$i,"Erstellungsdatum",0),$hList)
Next
EndIf
While 1
[/autoit] [autoit][/autoit] [autoit]$msg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $hMenuDI2
Exit
Case $hMenuHI1
Credits()
Case $hMenuDI1
NewNote()
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit]Func Credits()
[/autoit] [autoit][/autoit] [autoit]MsgBox(0,"Credits","Dieses Programm wurde von Bakku (http://www.autoit.de) geschrieben." & @CRLF & @CRLF & "Es kann weitergegeben und verändert, jedoch nicht verkauft werden.")
[/autoit] [autoit][/autoit] [autoit]EndFunc ;===> Credits()
[/autoit] [autoit][/autoit] [autoit]Func NewNote()
[/autoit] [autoit][/autoit] [autoit]GUISetState(0,$hGUI)
[/autoit] [autoit][/autoit] [autoit]$dGUI = GUICreate("Neue Notiz erstellen", 250, 300)
GUISetBkColor(0xCFE0E7)
GUICtrlCreateLabel("Erstellt am : " & $date, 120, 280)
GUICtrlSetFont(-1,8)
GUICtrlCreateLabel("Betreff :", 20, 30)
$betreff = GUICtrlCreateInput("", 100, 28, 100)
GUICtrlCreateLabel("Inhalt :", 20, 80)
$inhalt = GUICtrlCreateEdit("", 25, 110, 200, 100)
$savebutton = GUICtrlCreateButton("Speichern", 160, 250, 70, 25)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]$msg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $savebutton
$number = $number+1
IniWrite("notepad.ini",$number,"Erstellungsdatum",$date)
IniWrite("notepad.ini",$number,"Betreff",GUICtrlRead($betreff))
IniWrite("notepad.ini",$number,"Inhalt",GUICtrlRead($inhalt))
IniWrite("notepad.ini","notenumber","notenumber",$number)
ExitLoop
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit]GUIDelete($dGUI)
GUISetState(@SW_SHOW,$hGUI)
GUICtrlCreateListViewItem(IniRead("notepad.ini",$number,"Betreff",0) & "|" & IniRead("notepad.ini",$number,"Erstellungsdatum",0),$hList)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]EndFunc ;===> NewNote()
[/autoit]