XProfan

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Thomas
Freier

Der einfachste Weg geht über AddHotKey. Mini Beispiel
Kompilieren Markieren Separieren

cls
var dlg&=Create("Dialog",%hwnd,"",10,10,700,300)
var GridBox&=Create("GridBox", dlg&, "Eins;2;144;Zwei;2;144;Drei;2;144;Vier;2;144;NR;0;0", 0, 20, 20, width(dlg&)-40, height(dlg&)-70)
clearlist
MoveListToHandle(GridBox&)
AddString(GridBox&,"Eins | Zwei | Drei | Vier | 3")
AddString(GridBox&,"Zwei | Drei | Vier | Fünf | 1")
AddString(GridBox&,"Drei | Vier | Fünf | Sechs | 4")
AddString(GridBox&,"Vier | Fünf | Sechs | Sieben | 2")
AddHotKey 7001, 12, 0
AddHotKey 7001, 46, 0

while 1

    waitinput
    case %key=2:BREAK

    If Getfocus(GridBox&)

        If GetCurSel(GridBox&) > -1

            'ggf. MenuItem und Button
            case MenuItem(7001) OR MenuItem(7002): Messagebox("Entf gedrückt\nsoll der Datensatz Nr. " \
            +GetText$(GridBox&, GetCurSel(GridBox&), 4)\
            +"\ngelöscht werden","Hinweis",32)

        endif

        setfocus(GridBox&)

    endif

wend

end

Bei DBs "schleppe" ich in der letzten Spalte die Satznummer mit (alte Marotte). Veränderungen können dann immer unmittelbar über die Satznummer erfolgen.
AddHotKey hat auch seine Nachteile.

Sollte es wirklich eine Listbox gemeint sein und der Text nicht mehrfach in der DB gesucht werden soll, besteht bei mir der Listboxstring aus TEXT+Space(ausreichend)+"|"+DB-NR. Die Nummer dann per SubStr$($, -1, "|") ermitteln.

Gruß Thomas
Windows XP SP2, XProfan X2

holmol93

Heyhooo merci viumau!

Dass es so geht, hätte ich nicht gedacht, weil ich hatte das mit den Hotkeys schon ausprobiert

Und merci für das Beispiel mit der Gridbox!
Ich wusste garnicht, dass es so etwas gibt, weil ich meine Fenster im ROC zusammenbastle... Wenn ich mehrere Spalten hatte, habe ich immer 2 listboxen nebeneinander gestellt :O
(Ich weiss, listview.dll gibt es auch noch, aber die fand ich zu umständlich für das, was ich damit machen wollte. )

Vielen Vielen Dank!

Greeetz,

Danny

XProfan X2

Thomas
Freier

Eine Gridbox ala Listbox, also ohne Spaltenüberschrift geht mit:
Kompilieren Markieren Separieren

 $H commctrl.ph
'--Gridbox ohne Header:
setstyle Gridbox&,getstyle(Gridbox&) | ~LVS_NOCOLUMNHEADER

Gruß Thomas
Windows XP SP2, XProfan X2

holmol93

Hey

Ich find Gridboxen sind in der "Urfassung" eh eher das, was ich mir vorgestellt habe um Datensätze anzuzeigen...

Ich wollte für so etwas einfach nicht jedes mal ein Listview bemühen und weil ich nicht wusste, dass es Gridboxen gibt, habe ich zwangsläufig Listboxen dafür bemüht

Mein Programm loggt aber zB Logon Vorgänge im Programm für jeden Benutzer separat und wenn man dieses Logfile aufruft zeigt sich jetzt ein deutlicher Geschwindigkeitsvorteil im Vergleich zu Listboxen.
Da konnte man bei vielen Einträgen praktisch zuschauen, wie die geladen wurden :o)

Greeetz,

Danny

XProfan X2