Classe TListBox

Cria um objeto do tipo lista de itens com barra de rolagem.

Hierarquia

TControl
- TListBox

Construtores

Propriedades

Métodos

Exemplos

#INCLUDE "TOTVS.CH"

USER FUNCTION TListBox()
    DEFINE DIALOG oDlg TITLE "Exemplo TListBox" FROM 180,180 TO 550,700 PIXEL
        aItems := {'Item 1','Item 2','Item 3','Item 4'}
        nList := 1

        // Usando o New
        oList1 := TListBox():New(001,001,{|u|if(Pcount()>0,nList:=u,nList)},aItems,100,100,;
                                 {||Alert("Mudou de linha")},oDlg,,,,.T.)

        // Usando o Create
        oList2 := TListBox():Create(oDlg,001,110,{|u|if(Pcount()>0,nList:=u,nList)},;
                                    aItems,100,100,,,,,.T.)
    ACTIVATE DIALOG oDlg CENTERED
RETURN

Resultado do Exemplo

Abrangência

Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Árvore de páginas