Classe: TListBox
Cria um objeto do tipo lista de itens com barra de rolagem.
TSrvObject -> TControl -> TListBox
Propriedade | Descrição | Tipo |
aItems | Indica a lista de itens para seleção. | Vetor |
nAt | Indica a posição do item selecionado. | Numérico |
Sempre que um item é selecionado, uma variável é atualizada com o conteúdo do item.
#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,,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
Exemplo da classe TListBox
Advanced Protheus 6.09
,
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas