TAB com BROWSE

[Hasse]

Bom dia amigos.

Um DBF popula o Browse abaixo em um TAB / PAGE, conforme código abaixo.
Quero abrir 2 ou mais arquivos, cada um em uma ABA diferente.
A minha ideia é inserir mais PAGE´s denominados de cPage_2, cPage_3, e assim por diante, até um limite de 6 ou 7 DBF´s.
As propriedades de cada PAGE devem constar em ARRAY´s individuais para cada PAGE ?
Todos os PAGE´s devem ser inicializados vazios ao inciar o aplicativo, ou somente na abertura dos DBF´s subsequentes ?
Como se faz isso ?

Código: Selecionar todos

DEFINE TAB Tab_1 OF oWndDBF AT 30,15 WIDTH oWndDBF.width  - 38 HEIGHT oWndDBF.height - 137 VALUE 1 FONT "Arial" SIZE 9 TOOLTIP "" FLAT  ON CHANGE Nil
   *
   PAGE cPage_1
      *
      @ 26, 00 BROWSE Browse_1 OF oWndDBF ;
      WIDTH  oWndDBF.width  - 40          ;
      HEIGHT oWndDBF.height - 137         ;
      HEADERIMAGE aCabImg                 ;
      HEADERS aHdr                        ;
      WIDTHS aLong                        ;
      WORKAREA &c_Dbf_1                   ;
      FIELDS aNomb                        ;
      JUSTIFY aJust                       ;
      VALUE 0                             ;
      EDIT INPLACE                        ;
      APPEND                              ;
      FONT "MS Sans Serif" SIZE 8         ;
      TOOLTIP ""                          ;
      ON CHANGE VerRecord( cBase )        ;
      IMAGE { "br_no", "br_ok" }          ;
      LOCK                                ;
      FONTCOLOR aFntClr                   ;
      BACKCOLOR aBackClr                  ;
      DELETE
      *
   END PAGE
   *
END TAB

[MSDN]

Hasse,

Veja esses dois exemplos :

C:\minigui\SAMPLES\BASIC\TAB
C:\minigui\SAMPLES\BASIC\Tab_2

No segundo exemplo, além de mostrar visualmente como inserir mais uma aba, se vc clicar com o botão direito em cima de uma aba existente, ele abre um menu de contexto perguntando se quer deletar aquela aba.

E respondendo sua pergunta sobre os DBFs, vc pode trabalhar com quantas tabelas quiser, e fazer o que for preciso, inclusive interagindo entre as abas, a MiniGUI não enxerga aba por aba, nem leva em consideração o TAB, só para efeito visual mesmo, por exemplo :

Vc tem 3 abas :
ABA 1 - cadastro de fornecedores (browse ou grid)
ABA 2 - produtos comprados do fornecedor (browse ou grid)
ABA 3 - um gráfico com as compras feitas

Para enviar ou pegar informação, seria mais ou menos assim :

nCodigo := form_fornecedores.tbox_codigo.value ( ABA 1 )
nQtdeComprada := form_fornecedores.tbox_qtd_comprada.value ( ABA 2 )

[Hasse]

Boa tarde Marcelo.

Pesquisarei e analisarei os citados exemplos.

Em caso de dúvidas volto ao assunto.

Obrigado pela colaboração.