XProfan

eh bien - tu as encore viele autre Problemchen dans Deinem Source - mais so ists un bisl besser (getfocus gesetzt).
Kompilieren Marque Séparation

Declare TabControl&,ende%, hd%, OK%, nz%, sp1%, lade1%, setze%
Declare index1%, tabnr%
Declare Memo1&,Memo2&,Memo3&,lv1&, lv2&, lv3&, lv4&, lv5&, klv&, lvdll&
Declare text1$, Edits$, sfile$
Edits$ = "01111111"
 $I Listview_Funktionen.inc

Proc SpeichereKlv

    Declare x&
    Declare bereich#

    IfNot sfile$ = ""

        x&=GetNeededMemory(klv&,1)
        Dim bereich#,x&
        x&=ListviewToCsv(klv&,bereich#,0,0)
        WriteFileQuick(addr(sfile$),bereich#,0,x&)
        Dispose bereich#

    EndIf

EndProc

Proc LadeKlv

    Declare bytes&
    Declare bereich#
    bytes&=@FileSize(sfile$)

    If bytes& > 0

        Dim bereich#,bytes&
        ReadFileQuick(addr(sfile$),bereich#,0,bytes&)
        CsvToListview(klv&,bereich#,bytes&,8)
        Dispose bereich#

    EndIf

EndProc

lvdll&=usedll("Listview.dll")
hd% = @Create("Dialog",%HWnd,"Tourenplan - Programm von H.Brill",10,10,%MaxX - 100,%MaxY - 100)
nz% = @Create("Button", hd%,  "Neue Zeile",10, 10, 80, 20)
sp1% = @Create("Button", hd%, "Speichern", 10, 40, 80, 20)
lade1% = @Create("Button", hd%, "Laden", 10, 70, 80, 20)
setze% = @Create("Button", hd%, "Setze", 10, 300, 80, 20)
Let klv&=CreateListview(hd%,%hinstance,0,$ffffff,-1,$31)
InsertColumn(klv&, " ", 20, 0)
InsertColumn(klv&, "Kdnr", 50, 0)
InsertColumn(klv&, "Name", 150, 0)
InsertColumn(klv&, "Wohnort", 150, 0)
InsertColumn(klv&, "Straße", 150, 0)
InsertColumn(klv&, "Telefon", 120, 0)
InsertColumn(klv&, "Verrechn.", 100, 0)
InsertColumn(klv&, "Preiszone", 100, 0)
ShowListview(klv&, 10, 100, 850, 150)
Let TabControl&=Create("TABCTRL",hd%,"Freitag",10,380,900,400)
InsertTab(TabControl&,0,"Donnerstag")
InsertTab(TabControl&,0,"Mittwoch")
InsertTab(TabControl&,0,"Dienstag")
InsertTab(TabControl&,0,"Montag")
Let lv1&=CreateListview(TabControl&,%hinstance,0,$ffffff,-1,$31)
InsertColumn(lv1&, " ", 20, 0)
InsertColumn(lv1&, "Kdnr", 50, 0)
InsertColumn(lv1&, "Name", 150, 0)
InsertColumn(lv1&, "Wohnort", 150, 0)
InsertColumn(lv1&, "Straße", 150, 0)
InsertColumn(lv1&, "Telefon", 120, 0)
InsertColumn(lv1&, "Verrechn.", 100, 0)
InsertColumn(lv1&, "Preiszone", 100, 0)
ShowListview(lv1&, 10, 40, 800, 200)
Let lv2&=CreateListview(TabControl&,%hinstance,0,$ffffff,-1,$31)
InsertColumn(lv2&, " ", 20, 0)
InsertColumn(lv2&, "Kdnr", 50, 0)
InsertColumn(lv2&, "Name", 150, 0)
InsertColumn(lv2&, "Wohnort", 150, 0)
InsertColumn(lv2&, "Straße", 150, 0)
InsertColumn(lv2&, "Telefon", 120, 0)
InsertColumn(lv2&, "Verrechn.", 100, 0)
InsertColumn(lv2&, "Preiszone", 100, 0)
ShowListview(lv2&, 10, 40, 800, 200)
Let lv3&=CreateListview(TabControl&,%hinstance,0,$ffffff,-1,$31)
InsertColumn(lv3&, " ", 20, 0)
InsertColumn(lv3&, "Kdnr", 50, 0)
InsertColumn(lv3&, "Name", 150, 0)
InsertColumn(lv3&, "Wohnort", 150, 0)
InsertColumn(lv3&, "Straße", 150, 0)
InsertColumn(lv3&, "Telefon", 120, 0)
InsertColumn(lv3&, "Verrechn.", 100, 0)
InsertColumn(lv3&, "Preiszone", 100, 0)
ShowListview(lv3&, 10, 40, 800, 200)
Let lv4&=CreateListview(TabControl&,%hinstance,0,$ffffff,-1,$31)
InsertColumn(lv4&, " ", 20, 0)
InsertColumn(lv4&, "Kdnr", 50, 0)
InsertColumn(lv4&, "Name", 150, 0)
InsertColumn(lv4&, "Wohnort", 150, 0)
InsertColumn(lv4&, "Straße", 150, 0)
InsertColumn(lv4&, "Telefon", 120, 0)
InsertColumn(lv4&, "Verrechn.", 100, 0)
InsertColumn(lv4&, "Preiszone", 100, 0)
ShowListview(lv4&, 10, 40, 800, 200)
Let lv5&=CreateListview(TabControl&,%hinstance,0,$ffffff,-1,$31)
InsertColumn(lv5&, " ", 20, 0)
InsertColumn(lv5&, "Kdnr", 50, 0)
InsertColumn(lv5&, "Name", 150, 0)
InsertColumn(lv5&, "Wohnort", 150, 0)
InsertColumn(lv5&, "Straße", 150, 0)
InsertColumn(lv5&, "Telefon", 120, 0)
InsertColumn(lv5&, "Verrechn.", 100, 0)
InsertColumn(lv5&, "Preiszone", 100, 0)
ShowListview(lv5&, 10, 40, 800, 200)
InitMessages(hd%)
SelectColumnEdits(klv&, addr(Edits$))
EnableEdits(klv&, 1)
EnableEdits(lv1&, 1)
EnableEdits(lv2&, 1)
EnableEdits(lv3&, 1)
EnableEdits(lv4&, 1)
EnableEdits(lv5&, 1)

If Equ(%key,2)

    Let ende%=1

EndIf

Clear OK%

WhileNot Ok%

    WaitInput

    If @GetFocus(nz%)

        SetItem klv&, "", "", "", "", "", "", "", ""
        setfocus (%hwnd)

    ElseIf @GetFocus(sp1%)

        sfile$ = @SaveFile$("Datei speichern", "TourNr.csv")
        SpeichereKlv
        setfocus (%hwnd)

    ElseIf @GetFocus(lade1%)

        sfile$ = @LoadFile$("Datei laden", "TourNr|*.csv")
        LadeKlv
        setfocus (%hwnd)

    ElseIf @GetFocus(setze%)

        index1% = GetSelectedLine(klv&)
        tabnr% = @GetActiveTab(TabControl&)
        Hier soll abhängig vom Reiter des Tabcontrols
        in das entsprechende Listview reinkopiert werden
        Case @Equ(tabnr%, 0) : CopyLineTo(klv&, lv1&, index1%, 0)
        Case @Equ(tabnr%, 1) : CopyLineTo(klv&, lv2&, index1%, 0)
        Case @Equ(tabnr%, 2) : CopyLineTo(klv&, lv3&, index1%, 0)
        Case @Equ(tabnr%, 3) : CopyLineTo(klv&, lv4&, index1%, 0)
        Case @Equ(tabnr%, 4) : CopyLineTo(klv&, lv5&, index1%, 0)
        setfocus (%hwnd)

    EndIf

    If @Equ(%key, 2)

        Ok% = 1

    EndIf

Wend

@DestroyWindow(hD%)
CloseMessages(hd%)
Fin

Salve, iF

20.01.2005 ▲

Frank
Abbing

allô Heinz,

uiui, là fonctionne mais einiges de travers.
Ist aussi überhaupt aucun Listview.dll-Frage, mais une allgemeine Profanfrage.

comment De toute façon: Um pour jeden Reiter des Tabcontrols une eigene Anzeige trop conservé, dois du naturellement deine Listviews (et naturellement aussi autre Controls) convenable un-et ausblenden!
seulement un Listview - cela, welches trop dem aktuellen Reiter est - darf justement angezeigt volonté. qui anderen dois du ausschalten (Showwindow). Ändert sich qui Reiter (Abfrage avec Profans TabChanged()), ensuite doit cela passende Listview eingeblendet volonté...

20.01.2005 ▲

H.Brill

allô Frank,
merci pour den Tipp.
Werde es ce soir la fois ausprobieren.

21.01.2005 ▲

H.Brill

Salut,
Habe enfin mon Problem gelöst et
peux weitermachen.
était seulement ne Kleinigkeit.

là hätte je encore ne Frage :

j'ai dans meinen verschiedenen Listviews Checkboxen
incorporé ($4). cela Sauver qui individuel Tage allez soweit
aussi. eh bien voudrais je aussi qui Conditions qui Checkboxen
avec abspeichern, um vous beim späteren magasin wieder genauso
pour chaque Listview trop avons.

Doit je en supplément chaque Listview avec GetChecked() abklappern
et dans un extra Dossier écrivons ou bien allez cela aussi einfacher ?

ou bien peux on là chez den Funktionen CsvToListview et
ListviewToCsv quoi faire (Verbesserungsvorschlag) ?

22.01.2005 ▲

Frank
Abbing

allô Heinz,

cela serait naturellement cela Csv-Format hinfällig faire, sodass autre Programme cet Fichiers pas plus richtig magasin könnten. voudrais je sur keinen le cas.
Du wirst pour den Checkboxen-Stand une zusätzliche Dossier besoin, evt. pourrait je pour deux Funktion faire, z.B. CheckboxStateToMem() et MemToCheckboxState().

H.Brill

allô Frank,
Solche deux Funktionen wären pas mal.
je denke, qui aussi autre quelque chose comme brauchen
peut, zumal on ensuite pas de main trop Fuß
mais avec deux Funktionen travailler peux.

Am besten, qui on es avec WriteFileQuick et ReadFileQuick
bequem sur Platte Sauver bzw. lesen peux.

peux es dir la fois überlegen.

Frank
Abbing

...Grubbelprubbel... oui, mach je...

Frank
Abbing

allô nochmal,

sommes dans qui fais, qui beiden Funktionen.