Beiträge von Sirocool

Sirocool

Spoiler anzeigen

#include <GUIConstants.au3>
#include <IE.au3>
#include <file.au3>

Dim $version = "0.0.5"

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Browser",@DesktopWidth,@DesktopHeight, 0,0)
GUISetIcon("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\favicon.ico")
GUISetStyle(0xffffff)
GUISetBkColor(0xFFFFFF)
$Combo1 = GUICtrlCreateCombo("", 112, 0, 800, 0)
$Combo2 = GUICtrlCreateCombo("", 980, 0, 100, 0)
$ie = _IECreateEmbedded()
$Button= GUICtrlCreateButton("Go",912, 0, 37, 21, 0)
$Button1= GUICtrlCreateButton("<" ,0, 0, 37, 21, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2= GUICtrlCreateButton(">", 38, 0, 37, 21, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("icon",75, 0, 37, 0)
$Group1 = GUICtrlCreateObj($ie, 0, 25, @DesktopWidth, @DesktopHeight)
$MenuItem5 = GUICtrlCreateMenu("&Datei")
$MenuItem10 = GUICtrlCreateMenuItem("Neues Fenster", $MenuItem5)
$MenuItem11 = GUICtrlCreateMenuItem("Neuer Tab", $MenuItem5)
$MenuItem12 = GUICtrlCreateMenuItem("Adresse öffnen", $MenuItem5)
$MenuItem13 = GUICtrlCreateMenuItem("Datei öffnen", $MenuItem5)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$MenuItem14 = GUICtrlCreateMenuItem("Schließen", $MenuItem5)
$MenuItem15 = GUICtrlCreateMenuItem("", $MenuItem5)
$MenuItem16 = GUICtrlCreateMenuItem("Seite speichern"& @TAB & "Strg+S",$MenuItem5)
$MenuItem17 = GUICtrlCreateMenuItem("Link senden", $MenuItem5)
$MenuItem18 = GUICtrlCreateMenuItem("", $MenuItem5)
$MenuItem19 = GUICtrlCreateMenuItem("Seite einrichten", $MenuItem5)
$MenuItem20 = GUICtrlCreateMenuItem("Druckvorschau", $MenuItem5)
$MenuItem21 = GUICtrlCreateMenuItem("Drucken", $MenuItem5)
$MenuItem22 = GUICtrlCreateMenuItem("", $MenuItem5)
$MenuItem23 = GUICtrlCreateMenuItem("Importieren", $MenuItem5)
$MenuItem24 = GUICtrlCreateMenuItem("", $MenuItem5)
$MenuItem9 = GUICtrlCreateMenuItem("Offline arbeiten", $MenuItem5)
$MenuItem8 = GUICtrlCreateMenuItem("Beenden", $MenuItem5)
$MenuItem4 = GUICtrlCreateMenu("Bearbeiten")
$MenuItem3 = GUICtrlCreateMenu("Ansicht")
$MenuItem2 = GUICtrlCreateMenu("Chronik")
$MenuItem1 = GUICtrlCreateMenu("Lesezeichen")
$MenuItem7 = GUICtrlCreateMenu("Extras")
$MenuItem25 = GUICtrlCreateMenuItem("Internet Radio", $MenuItem7)
$MenuItem26 = GUICtrlCreateMenuItem("Internet Fernsehn", $MenuItem7)
$MenuItem27 = GUICtrlCreateMenuItem("Sperrung Seiten", $MenuItem7)
$MenuItem6 = GUICtrlCreateMenu("Hilfe")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
If GUICtrlRead($Combo1) = "www.ebay.de" Then
MsgBox (48,"Sperrung","Diese Seite ist gesperrt!")
Else
_IENavigate($ie,GUICtrlRead($Combo1),0)
EndIf
Case $Button
GUICtrlSetData($Combo1, GUICtrlRead($Combo1))

Case $MenuItem8
MsgBox(0, "Beenden-Button", "Programm wird beendet...")
ExitLoop
Case $MenuItem13
open()

Case $MenuItem16
save()
EndSwitch
WEnd

Func open()
;Datei aussuchen, mehrfachauswahl
$datei = FileOpenDialog ( "Datei aussuchen","","Alle Dateien ()| HTML-Dateien (*.html,*.php,)|Text-Dateien (*.txt,)|Grafik-Dateien (*.gif,*.bmp,)|XML-Dateien (*.)")
FileWrite($datei,$Group1&@ScriptDir);Falls nur eine Zeile, einfach onhe FileOpen und FileClose...
FileClose($datei)
EndFunc

Func save()
$datei = FileSaveDialog ( "Datei aussuchen","","Alle Dateien ()| HTML-Dateien (*.html,*.php,)|Text-Dateien (*.txt,)|Grafik-Dateien (*.gif,*.bmp,)|XML-Dateien (*.)")
EndFunc

ansonsten macht den ja kaum einer weiter ihr^^

Sirocool

Case $MenuItem13
$datei = FileOpenDialog ( "Datei aussuchen","","Alle Dateien ()")
$datei = FileOpenDialog ( "Datei aussuchen","","HTML-Dateien (*.html,*.php,)")
$datei = FileOpenDialog ( "Datei aussuchen","","Text-Dateien (*.txt,)")
$datei = FileOpenDialog ( "Datei aussuchen","","Grafik-Dateien (*.gif,*.bmp,)")
$datei = FileOpenDialog ( "Datei aussuchen","","XML-Dateien (*.)")
$lesen = FileOpen ($datei,0)

will das so haben wie auf den bild bekomme es aber leider nicht hin habe auch schon $datei geändert aber hilft nicht

bild link

habe geändert danke das mich drauf hingewissen hast^^

Sirocool

ihr der link dazu https://autoit.de/index.php?page…eadID=8902&

dann kannst du schaun wie er es gebaut hat nur mal ein anregung für dich weil du hast ja gesagt das noch nicht alles hast und weist wie es geht

Sirocool

aber werde mal schaun ob ich dein neuen code auch in den von mir mit rein bekomme( meine deine neuen sachen )
wir müssen uns nur enscheiden welchen code wir weiter hin nehmmen

Sirocool

Überarbeitet Version ist ihr zum download ich danke alle die mit geholfen haben aber ich finde so zieht es frundlicher aus für ein kind

Sirocool

http://s11b.directupload.net/file/d/1629/n392gks7_jpg.htm

Spoiler anzeigen

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: Sirocool

Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
Dim $ver = "1.0.0"
Local $INI = @ScriptDir & "\Patienten.ini"

Global $aPatienten = IniReadSection($INI, "Patienten")
Global $Listview1,$Form2,$lb_Patient
Local $lastNum = IniRead($INI, "Numbers", "last", 9999)

If FileExists("C:\artzt\images\bg.bmp") Then
_Haupt()
Else
DirCreate("C:\artzt\images\")
FileInstall("images\Close.bmp","C:\artzt\images\close.bmp")
FileInstall("images\bg.bmp","C:\artzt\images\bg.bmp")
Sleep(500)
_Haupt()
EndIf
Func _Haupt()
$Form1 = GUICreate("Artzt v.1.0.0", 900, 600, -1, -1,$WS_POPUP)
GUISetBkColor("C:\artzt\images\bg.gif")
$Pic6 = GUICtrlCreatePic("C:\artzt\images\close.bmp", 858, 0, 42, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Pic7 = GUICtrlCreatePic("C:\artzt\images\bg.bmp", 0, 0, 900, 600, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$PageControl1 = GUICtrlCreateTab(8, 56, 900, 600)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Patienten")
$Listview1 = GUICtrlCreateListView("Nr|Vorname|Nachname|Geburtsdatum|PLZ / Wohnort| Straße", 340, 361, 559, 200)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
; ### hier Kontextmenü für ListView einfügen:
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_del = GUICtrlCreateMenuItem('Patient Löschen', $mnu)
; ### Ende Kontextmenü
$Label1 = GUICtrlCreateLabel("Vorname:", 345, 105, 73, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Nachname:", 600, 105, 85, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 420, 105, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 700, 105, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Geburtsdatum:", 345, 169, 111, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("DD.MM.YYYY", 420, 169, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("PLZ / Wohnort:", 600, 169, 106, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 700, 169, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Straße:", 345, 233, 57, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input5 = GUICtrlCreateInput("", 420, 233, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Neuen Patienten speichern", 700, 233, 161, 30, 0)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$TabSheet3 = GUICtrlCreateTabItem("Termine")
GUICtrlCreateTabItem("")
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1] ; Window-Handle
Case $Form1
Switch $nMsg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $PageControl1
If GUICtrlRead($PageControl1) = 0 Then

ElseIf GUICtrlRead($PageControl1) = 1 Then

ElseIf GUICtrlRead($PageControl1) = 2 Then

EndIf
Case $Button1
$lastNum += 1
$Vorname = GUICtrlRead($Input1)
$Nachname = GUICtrlRead($Input2)
$Geburtsdatum = GUICtrlRead($Input3)
$PLZWohnort = GUICtrlRead($Input4)
$Strasse = GUICtrlRead($Input5)
IniWrite($INI, "Numbers", "last", $lastNum)
IniWrite($INI, "Patienten", $lastNum, $Vorname & '|' & $Nachname & '|' & $Geburtsdatum & '|' & $PLZWohnort & '|' & $Strasse)
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "DD.MM.YYYY")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5, "")
; Array mit Patienten-Daten neu einlesen
$aPatienten = IniReadSection($INI, "Patienten")
_FillListView()
Case $mnu_del
; Eintrag aus INI löschen:
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($INI, "Patienten", $del_key)
; Array mit Patienten-Daten neu einlesen
$aPatienten = IniReadSection($INI, "Patienten")
; entfernt Eintrag aus Liste:
_GUICtrlListView_DeleteItemsSelected($Listview1)
Case $Pic6
_AnimButton($Form1, $Pic6)
_Close()

EndSwitch
EndSwitch
WEnd

_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aPatienten) -1
GUICtrlCreateListViewItem($aPatienten[$i][0] & '|' & $aPatienten[$i][1], $Listview1)
Next
EndFunc

Func _LeftDblClick($Info) ; Inhalt der angeklickten Spalte wird in GUI gezeigt
Local $indx_Item = $Info[3], $indx_Sub = $Info[4]
GUICtrlSetData($lb_Patient, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $indx_Item, $indx_Sub))
GUISetState(@SW_SHOW, $Form2)
EndFunc
Func _Close()
Exit
EndFunc
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $LVN_COLUMNCLICK ; A column was clicked
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
;~ _ColumnClick($aInfo)
Case $LVN_DELETEITEM ; An item is about to be deleted
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
;~ _ItemDeleted($aInfo)
Case $LVN_HOTTRACK ; Sent by a list-view control when the user moves the mouse over an item
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
Return 0 ; allow the list view to perform its normal track select processing.
;Return 1 ; the item will not be selected.
;~ _HottTrackItem($aInfo)
Case $LVN_KEYDOWN ; A key has been pressed
Local $tInfo = DllStructCreate($tagNMLVKEYDOWN, $ilParam)
Local $aInfo[5] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "VKey"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _KeyDown($aInfo)
Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _LeftClick($aInfo)
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_KILLFOCUS ; The control has lost the input focus
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _LostFocus($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
; Return 1 ; not to allow the default processing
Return 0 ; allow the default processing
;~ _RightClick($aInfo)
Case $NM_RDBLCLK ; Sent by a list-view control when the user double-clicks an item with the right mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _RightDblClick($aInfo)
Case $NM_RETURN ; The control has the input focus and that the user has pressed the ENTER key
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _InputFocusReturn($aInfo)
Case $NM_SETFOCUS ; The control has received the input focus
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _SetFocus($aInfo)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _AnimButton($IDgui, $IDbtn, $delay=100);Animiert bilder als button, funktion an sich von BugFix
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc ;==> _AnimButton
Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aPatienten) -1
GUICtrlCreateListViewItem($aPatienten[$i][0] & '|' & $aPatienten[$i][1], $Listview1)
Next
EndFunc

Func _FileListToArray($Path, $Filter = "*")
Local $Search, $File, $FileList[1]
$Search = FileFindFirstFile($Path & "\" & $Filter)
While 1
$File = FileFindNextFile($Search)
If @error Then ExitLoop
ReDim $FileList[UBound($FileList) + 1]
$FileList[0] += 1
$FileList[UBound($FileList) - 1] = $File
WEnd
FileClose($Search)
Return $FileList
EndFunc ;==>_

Sirocool

ziehe bild aber sind noch kleine fehler drin

http://s11b.directupload.net/file/d/1629/5u85o6xf_jpg.htm

Spoiler anzeigen

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: Sirocool

Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
Dim $ver = "1.0.0"
#include <Inet.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Local $INI = @ScriptDir & "\Patienten.ini"

Global $aPatienten = IniReadSection($INI, "Patienten")
Local $lastNum = IniRead($INI, "Numbers", "last", 9999)

If FileExists("C:\artzt\images\bg.bmp") Then
_Haupt()
Else
DirCreate("C:\artzt\images\")
FileInstall("images\Close.bmp","C:\artzt\images\close.bmp")
FileInstall("images\bg.bmp","C:\artzt\images\bg.bmp")
Sleep(500)
_Haupt()
EndIf
Func _Haupt()
$Form1 = GUICreate("Artzt v.1.0.0", 900, 600, -1, -1,$WS_POPUP)
GUISetBkColor("C:\artzt\images\bg.gif")
$Pic6 = GUICtrlCreatePic("C:\artzt\images\close.bmp", 858, 0, 42, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Pic7 = GUICtrlCreatePic("C:\artzt\images\bg.bmp", 0, 0, 900, 600, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$PageControl1 = GUICtrlCreateTab(8, 56, 900, 600)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Patienten")
$Listview1 = GUICtrlCreateListView("Nr|Vorname|Nachname|Geburtsdatum|PLZ / Wohnort| Straße", 340, 361, 559, 200)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
; ### hier Kontextmenü für ListView einfügen:
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_del = GUICtrlCreateMenuItem('Patient Löschen', $mnu)
; ### Ende Kontextmenü
$Label1 = GUICtrlCreateLabel("Vorname:", 345, 105, 73, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Nachname:", 600, 105, 85, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 420, 105, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 700, 105, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Geburtsdatum:", 345, 169, 111, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("DD.MM.YYYY", 420, 169, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("PLZ / Wohnort:", 600, 169, 106, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 700, 169, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Straße:", 345, 233, 57, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input5 = GUICtrlCreateInput("", 420, 233, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Neuen Patienten speichern", 700, 233, 161, 30, 0)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$TabSheet3 = GUICtrlCreateTabItem("Termine")
GUICtrlCreateTabItem("")
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1] ; Window-Handle
Case $Form1
Switch $nMsg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $PageControl1
If GUICtrlRead($PageControl1) = 0 Then

ElseIf GUICtrlRead($PageControl1) = 1 Then

ElseIf GUICtrlRead($PageControl1) = 2 Then

EndIf
Case $Button1
$lastNum += 1
$Vorname = GUICtrlRead($Input1)
$Nachname = GUICtrlRead($Input2)
$Geburtsdatum = GUICtrlRead($Input3)
$PLZWohnort = GUICtrlRead($Input4)
$Strasse = GUICtrlRead($Input5)
IniWrite($INI, "Numbers", "last", $lastNum)
IniWrite($INI, "Patienten", $lastNum, $Vorname & '|' & $Nachname & '|' & $Geburtsdatum & '|' & $PLZWohnort & '|' & $Strasse)
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "DD.MM.YYYY")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5, "")
; Array mit Patienten-Daten neu einlesen
$aPatienten = IniReadSection($INI, "Patienten")
_FillListView()
Case $mnu_del
; Eintrag aus INI löschen:
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($INI, "Patienten", $del_key)
; Array mit Patienten-Daten neu einlesen
$aPatienten = IniReadSection($INI, "Patienten")
; entfernt Eintrag aus Liste:
_GUICtrlListView_DeleteItemsSelected($Listview1)
Case $Pic6
_AnimButton($Form1, $Pic6)
_Close()

EndSwitch
EndSwitch
WEnd

_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aPatienten) -1
GUICtrlCreateListViewItem($aPatienten[$i][0] & '|' & $aPatienten[$i][1], $Listview1)
Next
EndFunc

Func _LeftDblClick($Info) ; Inhalt der angeklickten Spalte wird in GUI gezeigt
Local $indx_Item = $Info[3], $indx_Sub = $Info[4]
GUICtrlSetData($lb_Patient, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $indx_Item, $indx_Sub))
GUISetState(@SW_SHOW, $Form2)
EndFunc
Func _Close()
Exit
EndFunc
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $LVN_COLUMNCLICK ; A column was clicked
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
;~ _ColumnClick($aInfo)
Case $LVN_DELETEITEM ; An item is about to be deleted
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
;~ _ItemDeleted($aInfo)
Case $LVN_HOTTRACK ; Sent by a list-view control when the user moves the mouse over an item
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
Return 0 ; allow the list view to perform its normal track select processing.
;Return 1 ; the item will not be selected.
;~ _HottTrackItem($aInfo)
Case $LVN_KEYDOWN ; A key has been pressed
Local $tInfo = DllStructCreate($tagNMLVKEYDOWN, $ilParam)
Local $aInfo[5] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "VKey"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _KeyDown($aInfo)
Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _LeftClick($aInfo)
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_KILLFOCUS ; The control has lost the input focus
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _LostFocus($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
; Return 1 ; not to allow the default processing
Return 0 ; allow the default processing
;~ _RightClick($aInfo)
Case $NM_RDBLCLK ; Sent by a list-view control when the user double-clicks an item with the right mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _RightDblClick($aInfo)
Case $NM_RETURN ; The control has the input focus and that the user has pressed the ENTER key
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _InputFocusReturn($aInfo)
Case $NM_SETFOCUS ; The control has received the input focus
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _SetFocus($aInfo)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _AnimButton($IDgui, $IDbtn, $delay=100);Animiert bilder als button, funktion an sich von BugFix
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc ;==> _AnimButton

Sirocool

Spoiler anzeigen

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: Sirocool

Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
Dim $ver = "1.0.0"
#include <Inet.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Local $INI = @ScriptDir & "\Patienten.ini"

Global $aPatienten = IniReadSection($INI, "Patienten")
Local $lastNum = IniRead($INI, "Numbers", "last", 9999)

If FileExists("C:\artzt\images\bg.bmp") Then
_Haupt()
Else
DirCreate("C:\artzt\images\")
FileInstall("images\Close.bmp","C:\artzt\images\close.bmp")
FileInstall("images\bg.bmp","C:\artzt\images\bg.bmp")
Sleep(500)
_Haupt()
EndIf
Func _Haupt()
$Form1 = GUICreate("Artzt v.1.0.0", 900, 600, -1, -1,$WS_POPUP)
GUISetBkColor("C:\artzt\images\bg.gif")
$Pic6 = GUICtrlCreatePic("C:\artzt\images\close.bmp", 858, 0, 42, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Pic7 = GUICtrlCreatePic("C:\artzt\images\bg.bmp", 0, 0, 900, 600, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$PageControl1 = GUICtrlCreateTab(8, 56, 900, 600)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Patienten")
$Listview1 = GUICtrlCreateListView("Nr|Vorname|Nachname|Geburtsdatum|PLZ / Wohnort| Straße", 340, 361, 559, 200)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
; ### hier Kontextmenü für ListView einfügen:
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_del = GUICtrlCreateMenuItem('Patient Löschen', $mnu)
; ### Ende Kontextmenü
$Label1 = GUICtrlCreateLabel("Vorname:", 345, 105, 73, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Nachname:", 600, 105, 85, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 420, 105, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 700, 105, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Geburtsdatum:", 345, 169, 111, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("DD.MM.YYYY", 420, 169, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("PLZ / Wohnort:", 600, 169, 106, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 700, 169, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Straße:", 345, 233, 57, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input5 = GUICtrlCreateInput("", 420, 233, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Neuen Patienten speichern", 700, 233, 161, 30, 0)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$TabSheet3 = GUICtrlCreateTabItem("Termine")
GUICtrlCreateTabItem("")
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1] ; Window-Handle
Case $Form1
Switch $nMsg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $PageControl1
If GUICtrlRead($PageControl1) = 0 Then

ElseIf GUICtrlRead($PageControl1) = 1 Then

ElseIf GUICtrlRead($PageControl1) = 2 Then

EndIf
Case $Button1
$lastNum += 1
$Vorname = GUICtrlRead($Input1)
$Nachname = GUICtrlRead($Input2)
$Geburtsdatum = GUICtrlRead($Input3)
$PLZWohnort = GUICtrlRead($Input4)
$Strasse = GUICtrlRead($Input5)
IniWrite($INI, "Numbers", "last", $lastNum)
IniWrite($INI, "Patienten", $lastNum, $Vorname & '|' & $Nachname & '|' & $Geburtsdatum & '|' & $PLZWohnort & '|' & $Strasse)
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "DD.MM.YYYY")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5, "")
; Array mit Patienten-Daten neu einlesen
$aPatienten = IniReadSection($INI, "Patienten")
_FillListView()
Case $mnu_del
; Eintrag aus INI löschen:
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($INI, "Patienten", $del_key)
; Array mit Patienten-Daten neu einlesen
$aPatienten = IniReadSection($INI, "Patienten")
; entfernt Eintrag aus Liste:
_GUICtrlListView_DeleteItemsSelected($Listview1)
Case $Pic6
_AnimButton($Form1, $Pic6)
_Close()

EndSwitch
EndSwitch
WEnd

_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aPatienten) -1
GUICtrlCreateListViewItem($aPatienten[$i][0] & '|' & $aPatienten[$i][1], $Listview1)
Next
EndFunc

Func _LeftDblClick($Info) ; Inhalt der angeklickten Spalte wird in GUI gezeigt
Local $indx_Item = $Info[3], $indx_Sub = $Info[4]
GUICtrlSetData($lb_Patient, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $indx_Item, $indx_Sub))
GUISetState(@SW_SHOW, $Form2)
EndFunc
Func _Close()
Exit
EndFunc
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $LVN_COLUMNCLICK ; A column was clicked
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
;~ _ColumnClick($aInfo)
Case $LVN_DELETEITEM ; An item is about to be deleted
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
;~ _ItemDeleted($aInfo)
Case $LVN_HOTTRACK ; Sent by a list-view control when the user moves the mouse over an item
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
Return 0 ; allow the list view to perform its normal track select processing.
;Return 1 ; the item will not be selected.
;~ _HottTrackItem($aInfo)
Case $LVN_KEYDOWN ; A key has been pressed
Local $tInfo = DllStructCreate($tagNMLVKEYDOWN, $ilParam)
Local $aInfo[5] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "VKey"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _KeyDown($aInfo)
Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _LeftClick($aInfo)
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_KILLFOCUS ; The control has lost the input focus
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _LostFocus($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
; Return 1 ; not to allow the default processing
Return 0 ; allow the default processing
;~ _RightClick($aInfo)
Case $NM_RDBLCLK ; Sent by a list-view control when the user double-clicks an item with the right mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _RightDblClick($aInfo)
Case $NM_RETURN ; The control has the input focus and that the user has pressed the ENTER key
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _InputFocusReturn($aInfo)
Case $NM_SETFOCUS ; The control has received the input focus
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _SetFocus($aInfo)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _AnimButton($IDgui, $IDbtn, $delay=100);Animiert bilder als button, funktion an sich von BugFix
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc ;==> _AnimButton

Sirocool

und ausserdem bin ich neu in autoit programmieren will doch auch nur lernen und wenn keiner mir die fehler sagt kann man auch nicht lernen oder

Sirocool

und in der rar ist doch images drin und func close habe ich jetzt mit drin in zeile 128 sorry

also bei mir sit es so auch wwenn ich es runterladen tuhe so wie oben beim bildlink

nur das jetzt schon mal mit exit geht

wie gesagt wollte es nur etwas verschönern^^

Sirocool

Zitat von Raupi

Des Script läßt sich schonmal nicht Compilen , nur Fehlermeldungen . In deiner Rar fehlen auch die Datei/en im IMAGES Unterverzeichnis .

du musst die image bilder unter C:\artzt\images mit rein machen dann müsste es gehn

Sirocool

wollte mal für dich ver schöner aber leider habe ich jetzt bug drin^^

hier kannst dir das bild mal an schauen

http://s11b.directupload.net/file/d/1629/857rdjev_jpg.htm

ps schreibt mir mal bitte wo der fehler war und zeigt mir mal das ich auch weiter lernen kann

Spoiler anzeigen

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: Sirocool

Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
Dim $ver = "1.0.0"
#include <Inet.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
If FileExists("C:\artzt\images\bg.bmp") Then
_Haupt()
Else
DirCreate("C:\artzt\images\")
FileInstall("images\Close.bmp","C:\artzt\images\close.bmp")
FileInstall("images\bg.bmp","C:\artzt\images\bg.bmp")
Sleep(500)
_Haupt()
EndIf
Func _Haupt()
$Form1 = GUICreate("Artzt v.1.0.0", 900, 600, -1, -1,$WS_POPUP)
GUISetBkColor("C:\artzt\images\bg.gif")
$Pic6 = GUICtrlCreatePic("C:\artzt\images\close.bmp", 858, 0, 42, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Pic7 = GUICtrlCreatePic("C:\artzt\images\bg.bmp", 0, 0, 900, 600, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$PageControl1 = GUICtrlCreateTab(8, 56, 900, 600)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Patienten")
$Listview1 = GUICtrlCreateListView("Nr|Vorname|Nachname|Geburtsdatum|PLZ / Wohnort| Straße", 340, 361, 559, 200)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
; ### hier Kontextmenü für ListView einfügen:
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_del = GUICtrlCreateMenuItem('Patient Löschen', $mnu)
; ### Ende Kontextmenü
$Label1 = GUICtrlCreateLabel("Vorname:", 345, 105, 73, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Nachname:", 600, 105, 85, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 420, 105, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 700, 105, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Geburtsdatum:", 345, 169, 111, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("DD.MM.YYYY", 420, 169, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("PLZ / Wohnort:", 600, 169, 106, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 700, 169, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Straße:", 345, 233, 57, 24)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Input5 = GUICtrlCreateInput("", 420, 233, 161, 22)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Neuen Patienten speichern", 700, 233, 161, 30, 0)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$TabSheet3 = GUICtrlCreateTabItem("Termine")
GUICtrlCreateTabItem("")
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1] ; Window-Handle
Case $Form1
Switch $nMsg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $Pic6
_AnimButton($Form1, $Pic6)
_Close()
Case $PageControl1
If GUICtrlRead($PageControl1) = 0 Then

ElseIf GUICtrlRead($PageControl1) = 1 Then

ElseIf GUICtrlRead($PageControl1) = 2 Then

EndIf
Case $Button1
$lastNum += 0
$Vorname = GUICtrlRead($Input1)
$Nachname = GUICtrlRead($Input2)
$Geburtsdatum = GUICtrlRead($Input3)
$PLZWohnort = GUICtrlRead($Input4)
$Strasse = GUICtrlRead($Input5)
IniWrite($INI, "Numbers", "last", $lastNum)
IniWrite($INI, "Patienten", $lastNum, $Vorname & '|' & $Nachname & '|' & $Geburtsdatum & '|' & $PLZWohnort & '|' & $Strasse)
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "DD.MM.YYYY")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5, "")
; Array mit Patienten-Daten neu einlesen
$aPatienten = IniReadSection($INI, "Patienten")
Case $mnu_del
; Eintrag aus INI löschen:
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($INI, "Patienten", $del_key)
; Array mit Patienten-Daten neu einlesen
$aPatienten = IniReadSection($INI, "Patienten")
; entfernt Eintrag aus Liste:
_GUICtrlListView_DeleteItemsSelected($Listview1)
EndSwitch
EndSwitch
WEnd

_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aPatienten) -1
GUICtrlCreateListViewItem($aPatienten[$i][0] & '|' & $aPatienten[$i][1], $Listview1)
Next
EndFunc

Func _LeftDblClick($Info) ; Inhalt der angeklickten Spalte wird in GUI gezeigt
Local $indx_Item = $Info[3], $indx_Sub = $Info[4]
GUICtrlSetData($lb_Patient, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $indx_Item, $indx_Sub))
GUISetState(@SW_SHOW, $Form2)
EndFunc

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $LVN_COLUMNCLICK ; A column was clicked
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
;~ _ColumnClick($aInfo)
Case $LVN_DELETEITEM ; An item is about to be deleted
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
;~ _ItemDeleted($aInfo)
Case $LVN_HOTTRACK ; Sent by a list-view control when the user moves the mouse over an item
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
Local $aInfo[11] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "Param")]
Return 0 ; allow the list view to perform its normal track select processing.
;Return 1 ; the item will not be selected.
;~ _HottTrackItem($aInfo)
Case $LVN_KEYDOWN ; A key has been pressed
Local $tInfo = DllStructCreate($tagNMLVKEYDOWN, $ilParam)
Local $aInfo[5] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "VKey"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _KeyDown($aInfo)
Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _LeftClick($aInfo)
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_KILLFOCUS ; The control has lost the input focus
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _LostFocus($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
; Return 1 ; not to allow the default processing
Return 0 ; allow the default processing
;~ _RightClick($aInfo)
Case $NM_RDBLCLK ; Sent by a list-view control when the user double-clicks an item with the right mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
;~ _RightDblClick($aInfo)
Case $NM_RETURN ; The control has the input focus and that the user has pressed the ENTER key
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _InputFocusReturn($aInfo)
Case $NM_SETFOCUS ; The control has received the input focus
Local $aInfo[3] = [$hWndFrom, _
$iIDFrom, _
$iCode]
;~ _SetFocus($aInfo)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

Exit
Func _AnimButton($IDgui, $IDbtn, $delay=100);Animiert bilder als button, funktion an sich von BugFix
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc ;==> _AnimButton

Sirocool

Zitat von Jautois

So, habe den Code gepostet (siehe 1. Post).

Bugs, es dürften noch ein paar sein, bitte sofort hier melden.. Danke!

dein code kommt fehler meldung #include <ModernMenuRaw.au3> da ist ürgendwo was faul bekomme ihn nicht zum starten

Sirocool

das ist der befehl dazu
FileDelete

oder machst du so

FileRecycle("C:\Bot\images\GuildWars\images")

Beiträge von Sirocool

Browser Guard

brauche mal hilfe bei was

"Arzt" Programm

"Arzt" Programm

"Arzt" Programm

"Arzt" Programm

"Arzt" Programm

"Arzt" Programm

"Arzt" Programm

"Arzt" Programm

"Arzt" Programm

"Arzt" Programm

Thread-Watcher - [ v1.0.3 & Updater]

"Arzt" Programm