Hallo!
Nachdem ich mein Projekt fast fertig habe, bin ich auf eine kleine "Unangenehmheit" gestossen:
In einer GUI habe ich 3 Eingabefelder und hier kann ich nicht mehr mit der TAB-Taste in das nächste springen!
Gibt es da einen Parameter bei der Erstellung der GUI der zubeachten ist (ich bin da leider nicht so ganz Sattelfest)?
func kassenbuch_gui ()
local $y_pos
local $x_pos
local $ret, $tmp
$ret = ini_file_read ($inifile)
if $ret = -1 then
MsgBox (16, "Warnung", "Datei " & $inifile & " nicht gefunden!" & @crlf & @crlf & "Programm kann fortgesetzt werden")
$y_pos = 20
$x_pos = 20
else
$x_pos = gettok ($ret, "|" , 1)
$y_pos = gettok ($ret, "|" , 2)
endif
;Eigenes Fenster für Runtime Log (wird nicht in einer Datei aufgezeichnet)
$logview_fenster = GUICreate("logviewer", 500, 300, 10, 10, BitOR($ES_READONLY,$ES_WANTRETURN))
$logvier_edit = _GUICtrlRichEdit_Create($logview_fenster, "", 0, 0, 495, 280, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
GUISetState($GUI_HIDE, $logview_fenster)
;Eigenes Fenster für den Bericht
$Bericht = GUICreate("Bericht", 700, 500, 10, 10, BitOR($ES_READONLY,$ES_WANTRETURN))
$Obj = ObjCreate("Shell.Explorer.2")
$browser = GUICtrlCreateObj($Obj, 0, 0, 695, 440)
$exit = GUICtrlCreateButton("Exit", 600, 445, 75, 25)
GUISetState(@SW_HIDE)
$kassenbuch = GUICreate($titel, 820, 650, $x_pos, $y_pos)
$menu_datei = GUICtrlCreateMenu("&Datei")
$menu_laden = GUICtrlCreateMenuItem("Laden", $menu_datei)
$menu_speichern = GUICtrlCreateMenuItem("Speichern", $menu_datei)
$menu_speichernals = GUICtrlCreateMenuItem("Speichern als", $menu_datei)
$menu_ende = GUICtrlCreateMenuItem("Ende", $menu_datei)
$info = GUICtrlCreateMenu("&Info")
$info_about = GUICtrlCreateMenuItem("About", $info)
$kalender = GUICtrlCreateMonthCal($heute, 5, 460, 191, 164)
$info_lable = GUICtrlCreateLabel("Info", 5, 0, 1000, 30)
GUICtrlSetFont($info_lable, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor ($info_lable, 0x0000ff)
$gruppe1 = GUICtrlCreateGroup("Eingabefeld", 200, 460, 615, 97)
$Einnahme = GUICtrlCreateRadio("Einnahme", 210, 480, 97, 33)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Ausgabe = GUICtrlCreateRadio("Ausgabe", 210, 510, 100, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$feld1 = GUICtrlCreateInput ("Textfeld", 320, 510, 120, 21)
$feld2 = GUICtrlCreateInput("", 460, 510, 60, 21)
$feld3 = GUICtrlCreateInput("", 530, 510, 60, 21)
$text_lable1 = GUICtrlCreateLabel("Kunde", 320, 490, 120, 19)
$text_lable2 = GUICtrlCreateLabel("Arbeit €", 460, 490, 120, 19)
$text_lable3 = GUICtrlCreateLabel("Verkauf €", 530, 490, 120, 19)
$text_lable4 = GUICtrlCreateLabel("Kategorie", 600, 490, 120, 19)
$kategorie = GUICtrlCreateCombo("", 600, 510, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$CBS_SORT,$CBS_DROPDOWNLIST ))
GUICtrlSetData ($kategorie, "|" & $kategorie_daten)
GUICtrlCreateGroup($kategorie, -99, -99, 1, 1)
$gruppe2 = GUICtrlCreateGroup("Steuerung", 200, 550, 615, 60)
$enter = GUICtrlCreateButton("Enter", 216, 570, 75, 25)
$clear = GUICtrlCreateButton("Clear", 312, 570, 75, 25)
$sort = GUICtrlCreateButton("Sortieren", 408, 570, 75, 25)
$nachunten = GUICtrlCreateButton("nach unten", 504, 570, 75, 25)
$Berichte = GUICtrlCreateButton("Bericht", 600, 570, 75, 25)
$logview = GUICtrlCreateButton("Logview", 704, 570, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$gruppe3 = GUICtrlCreateGroup("Anzeige", 5, 32, 810, 430)
$ListView1 = GUICtrlCreateListView("Datum EN|Datum DE|E/A|Text |WERT1|WERT2|Kategorie ", 10, 56, 800, 400)
$contextmenu = GUICtrlCreateContextMenu ($ListView1)
$bearbeiten = GUICtrlCreateMenuitem ("bearbeiten", $contextmenu)
$loeschen = GUICtrlCreateMenuitem ("löschen", $contextmenu)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
endfunc
Alles was Grafisch ist wird teilweise durch eine INI-File bestimmt (Position der GUI, Inhalt vom Combofeld,...) der Rest ist statisch.
Genau gesagt geht es um das $feld1 bis $feld3 !
Habt Ihr einen Tipp für mich?
lg
Racer
Ach ja: Bei der Eingabe ist mir aufgefallen das im Eingabefeld unregelmäßig die Backspace-Taste bzw. die Cursortasten nicht mehr funktionieren!