O HMG Reference limita-se a mostrar somente a sintaxe, alguém sabe como posso manipular um componente Tab Control?
Uso formulário onde o tab control inicia com a propriedade visible := .F., consigo checar em tempo real essa propriedade usando if (Main.Tab_principal.Visible), mas não consigo saber quantas abas estão abertas pela propriedade Main.Tab_principal.PageCount, da erro de compilação. Vejam meu código.
Procedure cad_Empresas
Local i := 0
Local lEmUso := .F.
if ( Main.Tab_principal.Visible )
FOR i := 1 TO Main.Tab_principal.PageCount // Aki da erro, não sei qual o metodo ou propriedade acessar para saber quantas abas estão abertas.
if Main.Tab_principal.Captions(i) = "Empresas"
lEmUso := .T.
Exit
end
Next
if (lEmUso) // Se já está em uso, seta o foco pra aba que o usuário chamou pelo menu principal
Main.Tab_principal.Value := i
else
Main.Tab_principal.AddPage ( Main.Tab_principal.PageCount+1 , "Empresas" )
Main.Tab_principal.Value := Main.Tab_principal.PageCount
Main.Tab_principal.Visible := .T.
end
else
// O Tab está vazio, é a primeira aba
Main.Tab_principal.AddPage ( 1 , "Empresas" )
Main.Tab_principal.Value := 1
Main.Tab_principal.Visible := .T.
end
Main.Tab_principal.Show
Return
Onde posso achar tutoriais com exemplos melhores do que na HMG Reference?
Clip-Abraço
