SELECIONAR SSTAB PELO TOOLBAR

JORGESALES 27/06/2015 18:19:25
#448232
Gostaria de selecionar a guia da sstab de acordo com a Tag do botão do Toolbar,
eu coloquei tags 1,2,3... até a 10 e queria que fosse feito de forma dinamica
mais ou menos assim:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
     sstab1.tab = toolbar1.tag
End Sub

Sei que estou fazendo errado, mas imaginem uma sstab com 20
guias, seria bom uma seleção de forma dinamica.
Grato a todos que possam ajudar.
Ah, outra coisa, isso seria a tal da orientação ao objeto?
Vejo muito falar a respeito mas não sei direito o que é.
TUNUSAT 28/06/2015 10:01:46
#448245 Resposta escolhida
JORGESALES,

Interessante sua proposta.

Experimentei com [Ô]Textbox[Ô] e funcionou:
Private Sub Command1_Click()
    SSTab1.Tab = Command1.Tag
End Sub

Private Sub Command2_Click()
    SSTab1.Tab = Command2.Tag
End Sub

Private Sub Command3_Click()
    SSTab1.Tab = Command3.Tag
End Sub


Mas estava relembrando, pois faz um tempão que não uso, como usar o [Ô]Toolbar[Ô].
- O [Ô]Toolbar[Ô] precisa estar associado com um [Ô]Imagelist[Ô] em [Ô]Properties[Ô] / [Ô]General[Ô] dentro da combobox [Ô]Imagelist[Ô].
- O [Ô]Toolbar[Ô] possui uma lista de [Ô]buttons[Ô] em [Ô]Properties[Ô] / [Ô]Buttons[Ô].

Pelo que eu entendi, quem tem o [Ô]index[Ô] é o botão (Button) e não a [Ô]Imagelist[Ô] (só existe uma Imagelist) ...
... tente assim (funcionou aqui):

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    SSTab1.Tab = Button.Index
End Sub


Descobri um problema. Você precisa GARANTIR que existe um [Ô]Index[Ô] para uma [Ô]SSTab[Ô]. Se você passar um número de índice (Index) de Botão (Button) para para uma SSTab que não existe, por exemplo: Um Index de botão [ô]4[ô] para tab que só vai até [ô]3[ô], vai dar erro e abortar seu processamento se não for tratado o referido erro. Mensagem:

------------------------------------------------
Run-time error [ô]380[ô]:

Invalid property value
------------------------------------------------

Veja também:

===========================================================================
How do we select tabs in the ssTabcontrol now?
http://stackoverflow.com/questions/8079591/how-do-we-select-tabs-in-the-sstabcontrol-now
===========================================================================
Using the SSTab Control
https://msdn.microsoft.com/en-us/library/aa733699(v=vs.60).aspx
===========================================================================

[][ô]s,
Tunusat.
JORGESALES 28/06/2015 10:48:42
#448247
Tunusat meu amigo, você é um gênio, muito obrigado por mais esta ajuda
eu tenho muitas ideias mas preciso saber como executa-las, bom saber
que posso sempre contar com a sua ajuda.
Tópico encerrado , respostas não são mais permitidas
Voltar