[ganeshvkl]

hi
please tell, how to change the Tab Caption of SSTab at run time in Visual Basic 6.0

[smartchap]

Dear Ganesh

Add a command button in the form or in each Tab of SSTab. Say name of SSTab is SSTab1. Now put this command line in the click event of the command button:

SSTab1.Caption = "New Name"

If command button is outside SSTab1 then it will change caption of all the tabs at a time, if it is inside a tab then the caption of that particular tab only will get changed at run time. Hope it will solve your problem.

Always Believe in God.

[ganeshvkl]

Originally Posted by smartchap

Dear Ganesh

Add a command button in the form or in each Tab of SSTab. Say name of SSTab is SSTab1. Now put this command line in the click event of the command button:

SSTab1.Caption = "New Name"

If command button is outside SSTab1 then it will change caption of all the tabs at a time, if it is inside a tab then the caption of that particular tab only will get changed at run time. Hope it will solve your problem.

Always Believe in God.

thanks SmartChap

hi
but i want to change the tab caption of SSTab according to textbox input at run time. for example if i give input three to text box, that creat three tab and Caption . otherwise if give two to text box that change the two tab and caption.
i change the textbox input frequently.

by
ganesh

[smartchap]

Dear Ganesh

Please try this:

Me.SSTab1.Tab = Val(Text1.Text)
'Set caption of the enabled tab = text in textbox, at run time:
Me.SSTab1.Caption = Text1.Text

Remember value in textbox must not be more than number of tabs in SSTab1 minus 1. Hope it solves ur query.

[ganeshvkl]

Originally Posted by ganeshvkl

hi
please tell, how to change the Tab Caption of SSTab at run time in Visual Basic 6.0

hi
but i want to change the tab caption of SSTab according to textbox input at run time. for example if i give input three to text box, that creat three tab and Caption . otherwise if give two to text box that change the two tab and caption.
i change the textbox input frequently.

by
ganesh

[smartchap]

Mr. Ganesh
If I understood u properly try this code:

Private Sub Command1_Click()
If Val(Text1.Text) = 0 Then Text1.Text = "": Text1.SetFocus: Exit Sub
Me.SSTab1.Tabs = Val(Me.Text1.Text)
For i = 1 To Me.Text1.Text
Me.SSTab1.Tab = i - 1 'because tab no starts from 0.
Me.SSTab1.Caption = i
Next
End Sub

Hope it will work as per ur desire. If it is the solution plz reply so that thread is closed.

[QVeen72]

Hi,

Try This :

Expand|Select|Wrap|Line Numbers

1. Dim i As Integer
2. If  Val(Text1.Text)<=0 Then Text1.Text= "1"
3. SSTab1.Tabs =Val(Text1.Text)
4. For i = 0 To Val(Text1.Text)-1
5.     SSTab1.TabCaption(i) = "Tab Number : " & i
6. Next
7.  

Regards
Veena

[smartchap]

Dear QVeen
I think ur code is a replica of mine. Only thing is it has been shortened. Anyhow it is good.