TABSTRIP

USUARIO.EXCLUIDOS 27/07/2005 13:42:41
#96220
Olá..
é possivel deixar a tabstrip com visual de WinXP??
Akeles com borda laranja..etc..
Se possível como??

Obrigado
t+
TRUHILLO 27/07/2005 13:50:01
#96222
Dê uma olhada neste tabstrip que está no vbAccelerator.com:

vbAccelerator ComCtl32 Tab Control
USUARIO.EXCLUIDOS 27/07/2005 14:00:21
#96226
Valeu...
Vo testa..
USUARIO.EXCLUIDOS 27/07/2005 16:06:38
#96252
Surgiu uma duvida no modo de usa essa tab..
alguem poderia me da uma luz??

eh o seguinte..
ela não funciona como a tabstrip normal neh??
adicionei quatro tabs..
mas qdo clico sobre elas não aparece o frame que era pra aparecer..
ela suporta frames??

No aguardo..
Obrigado
t+
TRUHILLO 27/07/2005 16:24:58
#96261
Crie os frames em um array...

E no evento TabClick do Tabstrip acrescente isso:

Private Sub tabTest_TabClick(ByVal lTab As Long)
  For i  = 0 to Frame.Ubound
    Frame(i).Visible = False
  Next
  Frame(lTab).Visible = True
End Sub


O código acima faz um loop em todos os frames e seta Visible = false.
Depois pega o número da Tab q foi clicada e torna visível o Frame que possuir o mesmo número de índice.
USUARIO.EXCLUIDOS 27/07/2005 17:43:35
#96285
Opa...
Criei um array com 4 frames...(frame1(i :3))
Coloquei o codigo no evento mencionado(adaptando os respectivos nomes)..
No tabcontrol coloquei tbm 4 tabs...

With Me.TabControl1
    .AddTab "Beneficíarios", , , , 1
    .AddTab "Sinistros", , , , 2
    .AddTab "Diversos", , , , 3
    .AddTab "Observações", , , , 4
End With

mas qdo clico na tab 4, diz que naum existe matriz de controles numero quatro...
eu jah tentei coloca começando com 0(,,,0)
mas naum da tbm..

O q será q está errado..

Valeu pelas dicas
AUGUSTTO 27/07/2005 19:38:02
#96306
tenta assim :
With Me.TabControl1
.AddTab "Beneficíarios", , , , 0
.AddTab "Sinistros", , , , 1
.AddTab "Diversos", , , , 2
.AddTab "Observações", , , , 3
TRUHILLO 28/07/2005 07:35:07
#96340
Os números dos índices dos frames deve estar na mesma ordem dos números das tabs.
Comece todos com 0 (zero)

Assim o Tab(0) vai acionar o Frame(0) e assim por diante...
USUARIO.EXCLUIDOS 28/07/2005 09:13:47
#96352
Esse que eh o problema...
Eu tinha começado com 0...
Mas dai da a mensagem dizendo que não existe a matriz de controles 4..
Enatum coloquei um frame1(4).Visible=False
mas dae sempre tem um frame que não aparece....

O q pode ser??
TRUHILLO 28/07/2005 09:57:42
#96360
Vai ver você não está setando o Visible dos outros para False...

Private Sub tabTest_TabClick(ByVal lTab As Long) 
  For i  = 0 to Frame.Ubound 
    Frame(i).Visible = False 
  Next 
  Frame(lTab).Visible = True 
End Sub


Se não for esse o problema, poste o código que você usa para exibir os frames.
USUARIO.EXCLUIDOS 28/07/2005 10:28:47
#96368
Eh o seguinte...
Deu certo..
Primeiro...
Frame1(0).Visible = True
o restante false
Depois..
With Me.TabControl1
.AddTab "Beneficíarios", , , , 1
.AddTab "Sinistros", , , , 2
.AddTab "Diversos", , , , 3
.AddTab "Observações", , , , 4
End With

Coloquei mais um frame1(4) so pra constar e não dar o problema da matriz q jah falei..
Dae funciono blza..
Valew a ajuda de todos..
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar