How to Add Grid in SSTAb at Runtime VB6.0 ?

[ganeshvkl]

hi ,

My Project is VB6.0 , My Requirement is Tab 0 , i have one grid , the grid and Tab has to be generated at run time and placed in appropriate Tabs. In that i created tabs and Grid at run time , but i could not place the Grid in appropriate Tab. It's Urgent.........

Thanx in Adv

Ganesh

[smartchap]

Can u explain it properly. If possible add code for how u created tab & grid but couldn't place in right tab.

[ganeshvkl]

How to add controls(Grid,labelbox,textbox ) in multible Tabs(Tab 0,Tab 1,Tab 2 ) of SSTab at run time.

[ganeshvkl]

Can u explain it properly. If possible add code for how u created tab & grid but couldn't place in right tab.

hi

How to add controls(Grid,labelbox,textbox ) in multible Tabs(Tab 0,Tab 1,Tab 2 ) of SSTab at run time.

[ganeshvkl]

Can u explain it properly. If possible add code for how u created tab & grid but couldn't place in right tab.

How to add controls(Grid,labelbox,textbox ) in multible Tabs(Tab 0,Tab 1,Tab 2 ) of SSTab at run time.

[ganeshvkl]

Can u explain it properly. If possible add code for how u created tab & grid but couldn't place in right tab.

How to add controls(Grid,labelbox,textbox ) in multible Tabs(Tab 0,Tab 1,Tab 2 ) of SSTab at run time.


SSTabDia.TabsPerRow = 3
SSTabDia.Tabs = 3

For i = 1 To 3

Load lbl_Dia(i)
Set lbl_Dia(i).Container = SSTabDia

lbl_Dia(i).Move 160 + (i * 1100), 720

With lbl_Dia(i)
.Visible = True
.ZOrder
End With

Load txt_wgt(i)
Set txt_wgt(i).Container = SSTabDia
txt_wgt(i).Move 160 + (i * 1100), 1200
txt_wgt(i).Visible = True
txt_wgt(i).ZOrder

Next

[QVeen72]

Hi,


Well.. Its quite Tricky...
What you have to do is In Form'Load event write :

SSTab1.Tabs = 5
SSTab1.TabsPerRow = 5
 

And in Form's Activate Event Load the Controls...:

    Dim i As Integer
    For i = 1 To 4
        SSTab1.Tab = i
        Load Text1(i)
        Text1(i).Visible = True
        Text1(i).Left = 400
        Text1(i).Top = 500
        Text1(i).Text = i
        Set Text1(i).Container = SSTab1
    Next
 

Note : In above code, Line Number 3 is very Important..
Before setting the Container of Control, Tab need to be changed..

I guess, after Changing the SSTab's Number of tabs,
Some time is required to Re-Paint itself...

Regards
Veena

[ganeshvkl]

Hi,


Well.. Its quite Tricky...
What you have to do is In Form'Load event write :

SSTab1.Tabs = 5
SSTab1.TabsPerRow = 5
 

And in Form's Activate Event Load the Controls...:

    Dim i As Integer
    For i = 1 To 4
        SSTab1.Tab = i
        Load Text1(i)
        Text1(i).Visible = True
        Text1(i).Left = 400
        Text1(i).Top = 500
        Text1(i).Text = i
        Set Text1(i).Container = SSTab1
    Next
 

Note : In above code, Line Number 3 is very Important..
Before setting the Container of Control, Tab need to be changed..

I guess, after Changing the SSTab's Number of tabs,
Some time is required to Re-Paint itself...

Regards
Veena

hi veena
its working fine thanks a lot