5.15.5 ADDITEM: Item hinzufügen


		Format: Call ADDITEM using Control Neuerwert.

Control muß mit Listbox, Combobox oder Listview deklariert worden sein.

Der Neueintrag wird am Ende mit dem nächsten freien Indexwert eingefügt.

Handelt es sich bei dem Control um eine TreeView können auch folgende Formate verwendet werden:


		Format: CALL ADDITEM USING Treecontrol Neuereintrag Itemfeld.

Itemfeld ist ein nicht mit FILLER benanntes Feld, das mit USAGE ITEM in dem Treecontrol deklariert wurde.

Der neue Eintrag wird unter dem Itemfeld an letzter Stelle hinzugefügt.


		Format: CALL ADDITEM USING Treecontrol Neuereintrag Feld

Feld beinhaltet eine Zeichenkette,die die oberste Ebene bis zu der Ebene, bei der die Einfügung erfolgen soll, folgendermaßen spezifiziert:

Inhalt von Feld:

Level1-Name/Level2-Name/...../Leveln-Name

z.B. für obige Struktur 'Ast1/Blatt3' um unter Blatt3 einen neuen Eintrag zu erzeugen.


       identification division.
       environment division.
       data division.
       working-storage section.
       01 dialog        usage maindialog left -1 top -1
                              width 200 title 'Treeview-Control'
                              height 200 font 'ms sans serif'
                              closebox.
       02 Tree          usage treeview left 10 top 10 width 150 
                        height 120 id 1.
        03 tree-aus     pic x(10).            // Selection
        03 it1          usage item title 'Item1'.
         04 it11        usage item title 'Item11'.
         04 it12        usage item title 'Item12'.
          05 it121      usage item title 'Item2'.
          05 it122      usage item icon '#:2' title 'Item3'.
         04 it13        usage item title 'Item13'.
        03 it2          usage item title 'Item2'.
        03 it3          usage item title 'Item3'.


       02 ok            pic 9 usage pushbutton left 45 top 165
                                        height 22 width 80 
                              title 'Ende' id 3.
       02 stat          pic x(10) usage static left  10 top 140
                              height 15 width 100.
       01 bnr           pic 9(5).
        02 bid          pic 99.
        02 blnr         pic 999.


       PROCEDURE DIVISION.
        display dialog.
      *
      * Dynamisches Hinzufügen für Treeviews:
      * 
      *  call additem using treeview Neueselement Ast
      *  
      *  
        call additem using tree 'Item31' it122.
        call additem using tree 'Item32' 'Item1/Item12/Item3'.
        call additem using tree 'Item4'.
       loop.
        call waitbox using bnr dialog.
        if bid = 3 or bnr < 0 stop run.
        move tree-aus to stat.
        display stat.
        go to loop.

Beispiel: treeview.cob

Siehe auch: DELETEITEM FINDITEM GETCURSEL GETITEM SELECTITEM UPDATEITEM

Zurück zu Item löschen

Hoch zu Acc-Cobol: Auswahlelemente

Weiter zu GETITEM: Item abfragen