Seltsam

    HI Ich hätte da ein paar probleme!

    1. Ich möchte das $hTabSheet3 sichtbar wird auch wenn man den button "New" Im Tab Behandlung ausführt. Es öffnet sich momentan nur wenn man einmal hin und her klickt sprich den tab wechselt.

    2. Irgendwas passt mit der scroll bar nit. Sie er verändert die breite der edits wenn sie "erscheint" und das soll sich nicht. Die edits sollen immer gleich groß sein. Außerdem wird der "Schieber" zu schnell klein. Ich weiß nit ob man da was ändern kann ggschweige denn wie.

    3. Wenn man speichert wird im behandlungsteil eine editreie mit dem inhalt 0 geseichert und ich weiß nit warum!

    Ich fänd es nett wenn mir das jemand erklären und, oder mir bei meinen problemen helfen könnte!

    (Das include weiter unten)

    Schon mal danke im vorraus!

    Spoiler anzeigen
    [autoit]


    #include <ScrollBarConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiButton.au3>
    #include <StructureConstants.au3>
    #include <GUIScrollBars.au3>
    #include <GUIScroll.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiTab.au3>
    Global $iEdits = 1, $hEdit[1][6], $iTop = 5
    $Kundenkartei = GUICreate("Kundenkartei", 1400, 1000)
    $Load = GUICtrlCreateButton("Load", 30, 16, 75, 25)
    $Save = GUICtrlCreateButton("Save", 130, 16, 75, 25)
    $New = GUICtrlCreateButton("New" , 230, 16, 75, 25)
    $Rechnung = GUICtrlCreateButton("Rechnung", 330, 16, 75, 25)
    _GUICtrlButton_Enable($Rechnung, False)
    $PageControl1 = GUICtrlCreateTab(40, 65, 1300, 900)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    $TabSheet1 = GUICtrlCreateTabItem("Besitzer ") ;Besitzer
    $Name = GUICtrlCreateLabel("Name", 56, 128, 46, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Vorname = GUICtrlCreateLabel("Vorname", 56, 188, 68, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Hausnummer = GUICtrlCreateLabel("Hausnummer", 56, 308, 96, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $weg = GUICtrlCreateLabel("Straße", 56, 248, 51, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Postleitzahl = GUICtrlCreateLabel("Postleitzahl", 56, 368, 83, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Ort = GUICtrlCreateLabel("Ort", 56, 428, 26, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Tele = GUICtrlCreateLabel("Tele.", 56, 488, 39, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $Mobil = GUICtrlCreateLabel("Mobil-tele.", 56, 548, 78, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $NameIn = GUICtrlCreateInput("", 210, 128, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $VornameIn = GUICtrlCreateInput("", 210, 188, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $StraIn = GUICtrlCreateInput("", 210, 248, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $PostleitzahlIn = GUICtrlCreateInput("", 210, 368, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $OrtIn = GUICtrlCreateInput("", 210, 428, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TeleIn = GUICtrlCreateInput("", 210, 488, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $MobilIn = GUICtrlCreateInput("", 210, 548, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $HausnummerIn = GUICtrlCreateInput("", 210, 308, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TabSheet2 = GUICtrlCreateTabItem("Tier ") ;Tier
    $TName = GUICtrlCreateLabel("Name", 56, 128, 46, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TTierart = GUICtrlCreateLabel("Tierart", 56, 188, 49, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TRasse = GUICtrlCreateLabel("Rasse", 56, 248, 49, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TGb = GUICtrlCreateLabel("Geburtztag", 56, 308, 80, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TGeschlecht = GUICtrlCreateLabel("Geschlecht", 56, 368, 81, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TKennzeichen = GUICtrlCreateLabel("Kennzeichen", 56, 428, 93, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TTranspondernummer = GUICtrlCreateLabel("Transpondernummer", 56, 488, 142, 21)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TNameIn = GUICtrlCreateInput("", 210, 128, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TTierartIn = GUICtrlCreateInput("", 210, 188, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TRasseIn = GUICtrlCreateInput("", 210, 248, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TGbIn = GUICtrlCreateInput("", 210, 308, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TGeschlechtIn = GUICtrlCreateInput("", 210, 368, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TKennzeichenIn = GUICtrlCreateInput("", 210, 428, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TTranspondernummerIn = GUICtrlCreateInput("", 210, 488, 329, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    $TabSheet3 = GUICtrlCreateTabItem("Behandlung ") ;Behandlung
    $hAdd = GUICtrlCreateButton("Hinzufügen", 430, 16, 75, 25)
    GUICtrlCreateTabItem("")
    $hTabSheet3 = GUICreate("HilfsTab 3", 1270, 820, 55, 130, BitOR($WS_POPUP, $WS_VSCROLL, $WS_CLIPSIBLINGS), $WS_EX_MDICHILD, $Kundenkartei)
    GUICtrlSetBkColor($hTabSheet3,0xFFFFFF)
    GUISetState(@SW_SHOW, $Kundenkartei)
    Scrollbar_Create($hTabSheet3, $SB_VERT, 10 + ($iEdits-5)*70)
    Scrollbar_Step(20, $hTabSheet3, $SB_VERT)
    GUISetState(@SW_HIDE, $hTabSheet3)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hAdd
    ReDim $hEdit[UBound($hEdit) + 1][6] ;<=============== warscheins noch von mir
    _newEdit($iEdits)
    $iEdits += 1
    _GUIScrollBars_SetScrollRange($hTabSheet3, $SB_VERT, 0, 5 + 10+($iEdits-5)*70)
    Case $PageControl1
    If _GUICtrlTab_GetCurSel($PageControl1) = 2 Then
    GUISetState(@SW_SHOW, $hTabSheet3)
    Else
    GUISetState(@SW_HIDE, $hTabSheet3)
    EndIf
    Case $Save
    $hSave = InputBox("Save", "Unter welchem Titel soll die Kundenkartei gespeichert werden?")
    IniWrite("TEMP" ,"temp","temp", $hSave )
    IniWrite($hSave, "Edits", "Count", $iEdits)
    for $i = 0 to $iEdits -1 ;<=======================
    _SaveEdit($i)
    Next
    IniDelete( "TEMP" , "temp" )
    Case $Load
    $hload = InputBox("Load", "Welche Kundenkartei soll geladen werden?")
    IniWrite( "TEMP" , "temp" , "temp" , $hload )
    Global $iEdits = IniRead($hload, "Edits", "Count", 1)
    Global $hEdit[$iEdits][6], $iTop = 5
    ConsoleWrite($iEdits & @CRLF)
    For $i = 0 To $iEdits - 1
    _newEdit($i)
    Next
    for $i = 0 to $iEdits -1 ;<=======================
    _loadEdit($i)
    Next
    IniDelete( "TEMP" , "temp" )
    Case $New
    _New()
    EndSwitch
    WEnd
    Func _newEdit($iEditNr)
    GUISwitch($hTabSheet3)
    ConsoleWrite($iEditNr & @CRLF)
    $hEdit[$iEditNr][0] = GUICtrlCreateEdit("", 36, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
    $hEdit[$iEditNr][1] = GUICtrlCreateEdit("", 216, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
    $hEdit[$iEditNr][2] = GUICtrlCreateEdit("", 396, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
    $hEdit[$iEditNr][3] = GUICtrlCreateEdit("", 576, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
    $hEdit[$iEditNr][4] = GUICtrlCreateEdit("", 756, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
    $hEdit[$iEditNr][5] = GUICtrlCreateEdit("", 936, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
    $iTop += 80
    GUISwitch($Kundenkartei)
    EndFunc ;==>_newEdit
    Func _loadEdit($iEditNr)
    $iload = IniRead( "TEMP" , "temp" , "temp" , "" )
    GUICtrlSetData($hEdit[$iEditNr][0],IniRead($iload,"Edit" & $iEditNr & "0" ,"Edit", ""))
    GUICtrlSetData($hEdit[$iEditNr][1],IniRead($iload,"Edit" & $iEditNr & "1" ,"Edit", ""))
    GUICtrlSetData($hEdit[$iEditNr][2],IniRead($iload,"Edit" & $iEditNr & "2" ,"Edit", ""))
    GUICtrlSetData($hEdit[$iEditNr][3],IniRead($iload,"Edit" & $iEditNr & "3" ,"Edit", ""))
    GUICtrlSetData($hEdit[$iEditNr][4],IniRead($iload,"Edit" & $iEditNr & "4" ,"Edit", ""))
    GUICtrlSetData($hEdit[$iEditNr][5],IniRead($iload,"Edit" & $iEditNr & "5" ,"Edit", ""))

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetData($NameIn,IniRead($iload,"Name", "Edit", "" ))
    GUICtrlSetData($VornameIn,IniRead($iload,"Vorname", "Edit", "" ))
    GUICtrlSetData($StraIn,IniRead($iload,"Straße", "Edit", "" ))
    GUICtrlSetData($PostleitzahlIn,IniRead($iload,"Postleitzahl", "Edit", "" ))
    GUICtrlSetData($OrtIn,IniRead($iload,"Ort", "Edit", "" ))
    GUICtrlSetData($TeleIn,IniRead($iload,"Tele", "Edit", "" ))
    GUICtrlSetData($MobilIn,IniRead($iload,"Mobil", "Edit", "" ))
    GUICtrlSetData($HausnummerIn,IniRead($iload,"Hausnummer", "Edit", "" ))
    GUICtrlSetData($TNameIn,IniRead($iload,"TName" ,"Edit", "" ))
    GUICtrlSetData($TTierartIn,IniRead($iload,"TTier" ,"Edit", "" ))
    GUICtrlSetData($TRasseIn,IniRead($iload,"TRasse" ,"Edit", "" ))
    GUICtrlSetData($TGbIn,IniRead($iload,"TGB" ,"Edit", "" ))
    GUICtrlSetData($TGeschlechtIn,IniRead($iload,"TGeschlecht" ,"Edit", "" ))
    GUICtrlSetData($TKennzeichenIn,IniRead($iload,"TKenzeichen" ,"Edit", "" ))
    GUICtrlSetData($TTranspondernummerIn,IniRead($iload,"TTransponder" ,"Edit", "" ))
    EndFunc
    Func _SaveEdit($iEditNr)
    ConsoleWrite("Zeilen: " & UBound($hEdit) & "Spalten: " & UBound($hEdit,2) & "Dim: " & UBound($hEdit,0) & @CRLF)
    $iSave = IniRead( "TEMP" , "temp" , "temp" , "" )
    IniWrite($iSave,"Edit" & $iEditNr & "0" ,"Edit", GUICtrlRead($hEdit[$iEditNr][0]))
    IniWrite($iSave,"Edit" & $iEditNr & "1" ,"Edit", GUICtrlRead($hEdit[$iEditNr][1]))
    IniWrite($iSave,"Edit" & $iEditNr & "2" ,"Edit", GUICtrlRead($hEdit[$iEditNr][2]))
    IniWrite($iSave,"Edit" & $iEditNr & "3" ,"Edit", GUICtrlRead($hEdit[$iEditNr][3]))
    IniWrite($iSave,"Edit" & $iEditNr & "4" ,"Edit", GUICtrlRead($hEdit[$iEditNr][4]))
    IniWrite($iSave,"Edit" & $iEditNr & "5" ,"Edit", GUICtrlRead($hEdit[$iEditNr][5]))

    [/autoit] [autoit][/autoit] [autoit]

    IniWrite($iSave,"Name", "Edit", GUICtrlRead($NameIn))
    IniWrite($iSave,"Vorname", "Edit", GUICtrlRead($VornameIn))
    IniWrite($iSave,"Straße", "Edit", GUICtrlRead($StraIn))
    IniWrite($iSave,"Postleitzahl", "Edit", GUICtrlRead($PostleitzahlIn))
    IniWrite($iSave,"Ort", "Edit", GUICtrlRead($OrtIn))
    IniWrite($iSave,"Tele", "Edit", GUICtrlRead($TeleIn))
    IniWrite($iSave,"Mobil", "Edit", GUICtrlRead($MobilIn))
    IniWrite($iSave,"Hausnummer", "Edit", GUICtrlRead($HausnummerIn))
    IniWrite($iSave,"TName" ,"Edit", GUICtrlRead($TNameIn))
    IniWrite($iSave,"TTier" ,"Edit", GUICtrlRead($TTierartIn))
    IniWrite($iSave,"TRasse" ,"Edit", GUICtrlRead($TRasseIn))
    IniWrite($iSave,"TGB" ,"Edit", GUICtrlRead($TGbIn))
    IniWrite($iSave,"TGeschlecht" ,"Edit", GUICtrlRead($TGeschlechtIn))
    IniWrite($iSave,"TKenzeichen" ,"Edit", GUICtrlRead($TKennzeichenIn))
    IniWrite($iSave,"TTransponder" ,"Edit", GUICtrlRead($TTranspondernummerIn))
    EndFunc
    Func _New()
    GUIDelete($hTabSheet3)
    $hTabSheet3 = GUICreate("HilfsTab 3", 1270, 820, 55, 130, BitOR($WS_POPUP, $WS_VSCROLL, $WS_CLIPSIBLINGS), $WS_EX_MDICHILD, $Kundenkartei)
    GUICtrlSetBkColor($hTabSheet3,0xFFFFFF)
    GUISetState(@SW_SHOW, $Kundenkartei)
    Scrollbar_Create($hTabSheet3, $SB_VERT, 10 + ($iEdits-5)*80)
    Scrollbar_Step(20, $hTabSheet3, $SB_VERT)
    GUISetState(@SW_HIDE, $hTabSheet3)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetData($NameIn,IniRead("TEMP","Name", "Edit", "" ))
    GUICtrlSetData($VornameIn,IniRead("TEMP","Vorname", "Edit", "" ))
    GUICtrlSetData($StraIn,IniRead("TEMP","Straße", "Edit", "" ))
    GUICtrlSetData($PostleitzahlIn,IniRead("TEMP","Postleitzahl", "Edit", "" ))
    GUICtrlSetData($OrtIn,IniRead("TEMP","Ort", "Edit", "" ))
    GUICtrlSetData($TeleIn,IniRead("TEMP","Tele", "Edit", "" ))
    GUICtrlSetData($MobilIn,IniRead("TEMP","Mobil", "Edit", "" ))
    GUICtrlSetData($HausnummerIn,IniRead("TEMP","Hausnummer", "Edit", "" ))
    GUICtrlSetData($TNameIn,IniRead("TEMP","TName" ,"Edit", "" ))
    GUICtrlSetData($TTierartIn,IniRead("TEMP","TTier" ,"Edit", "" ))
    GUICtrlSetData($TRasseIn,IniRead("TEMP","TRasse" ,"Edit", "" ))
    GUICtrlSetData($TGbIn,IniRead("TEMP","TGB" ,"Edit", "" ))
    GUICtrlSetData($TGeschlechtIn,IniRead("TEMP","TGeschlecht" ,"Edit", "" ))
    GUICtrlSetData($TKennzeichenIn,IniRead("TEMP","TKenzeichen" ,"Edit", "" ))
    GUICtrlSetData($TTranspondernummerIn,IniRead("TEMP","TTransponder" ,"Edit", "" ))
    EndFunc

    [/autoit]

    2 Mal editiert, zuletzt von Stormrider (29. Mai 2010 um 20:29)

    naja ich wollte ebenmal dein skript nur ausführen um den fehler überhaupt festestellen zu können nur leider fehlt mir das include GUIScroll.au3.
    Wenn du hilfe erwartest wäre es schon von vorteil, dass du ein skript reinstellst, welchem man wenigstens läuft ;)

    Das finden von Rechtschreibfehlern muss sofort und unverzüglich dem Autor gemeldet werden. Das eigennützige Verwenden dieser Rechtschreibfehler ist strengstens untersagt und kann mit Freiheitsenzug bestraft werden.

    StringRegExpTo2DArray