Consultor Eletrônico



Kbase 107: Como utilizar o OCX TreeView
Autor   Adriano Correa - CAT
Acesso   Público
Publicação   22/02/2001
O procedimento abaixo foi testado com o OCX da Microsoft, versão 6.0 e Progress versão 9.1D07, modo WIN32 API.

Uma vez que o OCX foi instanciado no Programa, inclua os seguintes comandos:

No bloco Definitions:

DEF VAR chtreeview AS COM-HANDLE.

No main-block:

ASSIGN chtreeview = chctrlframe:treeview.
ctrlFrame:NAME = "CtrlFrame":U .

Para limpar os itens do TreeView, utilize o comando:

chtreeview:nodes:CLEAR().

Para adicionar itens ao TreeView, utilize os comandos:

chtreeview:nodes:ADD(,,"idpai","Label Ítem").
chtreeview:nodes:ADD("idpai",4,"idfilho","Label Ítem").

O segundo parâmetro, com o valor 4, é obrigatório para sub-itens.