Problems Resizing Tab Control with code

[BJ]

I have a form with a tab control sstab1. On each tab is a list box and a picture. When I resize them with code they get all screwed up and I can't figure out what's going on. It seems all the items I resize work fine except they appear on what ever tab is showing when the form loads.

Here is my code.

Private Sub Form_Load()
answer = MsgBox("Resize?", vbYesNo, "Resize?")
If answer = vbYes Then
sstab1.Height = 6394
sstab1.Width = 8419
sstab1.Left = 450
sstab1.Top = 1200

Lis0.Width = 3619
Lis0.Height = 4950
Lis0.Top = 1125
Lis0.Left = 4350

Image1.Height = 3056
Image1.Left = 4500
Image1.Top = 1800
Image1.Width = 3056

Lis1.Height = 4950
Lis1.Left = 4350
Lis1.Top = 1125
Lis1.Width = 3619

Image2.Height = 2531
Image2.Left = 300
Image2.Top = 1950
Image2.Width = 3300
End If
End Sub

Does anyone have any suggestions on how to resize this with code?

Thanks
BJ

[MartinLiss]

It may be that the problem is not in the resizing, but rather that VB thinks the objects are on the form itself rather than the tab control. I've had that happen to me, especially when I copy an object. You can determine this by looking at the form in notepad. If you can determine that that is the problem, you can correct it in notepad, but make sure to make a backup copy of the form first.

------------------
Marty

[BJ]

That was neat. I never knew you could open a form in notepad. Too bad I don't know what to look for though. How can I tell if it is part of the tabcontrol or the form?

Thanks Alot
BJ

[MartinLiss]

Here is a simple form that has a tab control with 3 tabs. There is a label on the form and a label on each tab.

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin TabDlg.SSTab SSTab1 ' START OF TAB CONTROL
      Height          =   1935
      Left            =   960
      TabIndex        =   0
      Top             =   720
      Width           =   3135
      _ExtentX        =   5530
      _ExtentY        =   3413
      _Version        =   393216
      Tab             =   2
      TabHeight       =   520
      TabCaption(0)   =   "Tab 0"
      TabPicture(0)   =   "Form1.frx":0000
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "lblTab0"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "Tab 1"
      TabPicture(1)   =   "Form1.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "lblTab1"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).ControlCount=   1
      TabCaption(2)   =   "Tab 2"
      TabPicture(2)   =   "Form1.frx":0038
      Tab(2).ControlEnabled=   -1  'True
      Tab(2).Control(0)=   "lblTab2"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).ControlCount=   1
      Begin VB.Label lblTab2 
         Caption         =   "I'm on tab 2"
         Height          =   255
         Left            =   840
         TabIndex        =   4
         Top             =   840
         Width           =   1575
      End
      Begin VB.Label lblTab1 
         Caption         =   "I'm on tab 1"
         Height          =   255
         Left            =   -74040
         TabIndex        =   3
         Top             =   720
         Width           =   975
      End
      Begin VB.Label lblTab0 
         Caption         =   "I'm on Tab 0"
         Height          =   375
         Left            =   -74400
         TabIndex        =   2
         Top             =   720
         Width           =   1095
      End
   End 'END OF TAB CONTROL
   Begin VB.Label lblOnTheForm 
      Caption         =   "I'm on the form"
      Height          =   255
      Left            =   360
      TabIndex        =   1
      Top             =   240
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()


End Sub

Each control has a Begin and an End blocks. I have added commants at the Begin and End for the tab control, and you can see that the control named lblOnTheForm is outside that block.


------------------
Marty

[This message has been edited by MartinLiss (edited 11-10-1999).]

[LG]

Hi,BJ.
Go to property page for tab control. Choose Custom.In a General Tab set Current Tab:0.
Click OK. That's it. Your code will work fine.
Larisa

[BJ]

First, Changing the current tab, changes what goes wrong with the tab control. Each time I change the current tab to something new, something different goes wrong with the current tab. So, it has something to do with current tab, but setting it to 0 didn't fix it.

Second, I think my items are on the tab control. So, that must not be the problem. Can I take the code from my form in notepad and copy it into my program and just change the size values to get what I need? Here is what it says. I just don't know what to copy and what to leave out.

Begin TabDlg.SSTab sstab1
Height = 5115
Left = 360
TabIndex = 0
TabStop = 0 'False
Top = 720
Width = 6735
_ExtentX = 11880
_ExtentY = 9022
_Version = 327681
Tabs = 6
Tab = 3
TabHeight = 520
BackColor = 12648447
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "Breads"
TabPicture(0) = "Form1.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "List3"
Tab(0).Control(1)= "Image4"
Tab(0).ControlCount= 2
TabCaption(1) = "Meat Dishes"
TabPicture(1) = "Form1.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "List1"
Tab(1).Control(1)= "Image5"
Tab(1).ControlCount= 2
TabCaption(2) = "Vegetable Dishes"
TabPicture(2) = "Form1.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "List2"
Tab(2).Control(1)= "Image6"
Tab(2).ControlCount= 2
TabCaption(3) = "Desserts"
TabPicture(3) = "Form1.frx":0054
Tab(3).ControlEnabled= -1 'True
Tab(3).Control(0)= "Image1"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "List4"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).ControlCount= 2
TabCaption(4) = "Cakes and Pies"
TabPicture(4) = "Form1.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Image2"
Tab(4).Control(1)= "List5"
Tab(4).ControlCount= 2
TabCaption(5) = "Miscellaneous"
TabPicture(5) = "Form1.frx":008C
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Image3"
Tab(5).Control(1)= "List6"
Tab(5).ControlCount= 2

Sorry If I sound like an idiot,

BJ

[This message has been edited by BJ (edited 11-11-1999).]

[LG]

May be I am wrong, but all this code just the description of the properties , that you set at design time. You can check it. Put controls on your tab. Go to File -Print and select Form as Text. I have tried to put all your controls on a Tab and after I finished desigh I set Current Tab to 0, and it works fine. But if I don't do it, then the last tab would be all messed up.
Larisa

[MartinLiss]

If you want to, send me a Zip file that contains your project and I'll see if I can figure out what's wrong.

------------------
Marty

[Joacim Andersson]

The problem is that even if the ssTab control looks like it has one container per tab it haven't. The control just move the items on the tabs that aren't visible far out to the left. What your code is doing is moving them back so thay are all visible whatever tab is selected.

What you want to do is to first check which tab is active and then move/resize only the controls on that tab.

answer = MsgBox("Resize?", vbYesNo, "Resize?")
If answer = vbYes Then
sstab1.Height = 6394
sstab1.Width = 8419
sstab1.Left = 450
sstab1.Top = 1200

Select case sstab1.Tab
Case 0
Lis0.Width = 3619
Lis0.Height = 4950
Lis0.Top = 1125
Lis0.Left = 4350

Image1.Height = 3056
Image1.Left = 4500
Image1.Top = 1800
Image1.Width = 3056

Case 1
Lis1.Height = 4950
Lis1.Left = 4350
Lis1.Top = 1125
Lis1.Width = 3619

Image2.Height = 2531
Image2.Left = 300
Image2.Top = 1950
Image2.Width = 3300
End Select
End If

Good luck!

------------------
Joacim Andersson
[email protected]
[email protected]
www.YellowBlazer.com

[BJ]

Joacim you seem to know whats wrong, but at the moment it is still a little over my head.

Martin I tried to email you my program but it didn't go through. You can download it here http://members.xoom.com/vbprogram/TestResize.zip

It's not my program but it is my test code. I tried to make it simple.

Thanks
BJ

[BJ]

Martin,

You are a life saver. Probably, no one could have known that was a bug without looking at it. Thanks for taking the time to help me. If you ever need to get into heaven, call me I'll be your reference. Thanks to everyone else also.

BJ

[MartinLiss]

I downloaded your code and I have the solution to your problem , but first of all let me say that the behavior of images when moved on a tab control is bizarre to say the least. I think that it is a bug that if you have the time should be reported to MS. In any case here is the soultion: On each tab, cut the listbox and image, draw a frame on the tab, and paste back the listbox and image. The frames will need to be visible, but you could leave the captions blank. You will also need to add sizing logic for the frames. You might also want to change your code as follows:

    Dim nIndex As Integer
    
    'resizes the tab control and all of it's objects
    answer = MsgBox("Resize?", vbYesNo, "Resize?")
    If answer = vbYes Then
        For nIndex = 0 To Me.Controls.Count - 1
            If TypeOf Me.Controls(nIndex) Is ListBox Then
                Me.Controls(nIndex).Move 3300, 500, 3619, 4300
            ElseIf TypeOf Me.Controls(nIndex) Is Image Then
                Me.Controls(nIndex).Move 300, 1200, 2756, 2981
            ElseIf TypeOf Me.Controls(nIndex) Is Frame Then
                Me.Controls(nIndex).Move 500, 1000, 7300, 5000
            End If
        Next nIndex
    End If

    sstab1.Height = 6394
    sstab1.Width = 8419
    sstab1.Left = 450
    sstab1.Top = 1200

------------------
Marty

[This message has been edited by MartinLiss (edited 11-13-1999).]

[MikeGarvin]

Martin, It's me again. I am stuck on this business about resizing controls on an sstb. I use 6 frames on 5 tabs. If I understand correctly, I need in my form_resize event to set each tab so it is in focus, and then set/correct the left property of each control to compensate the -75000? Is this correct?

What I do then is to look to see which Frame I'm on that needs to be resized, then set the focus on the correct tab inside the sstab and finally change the left value which is here fixed at 190.

It's all driving me quite mad, but I would be grateful if you could confirm this. Thanks.

If Ctl.Name = "Frame001" Then
                If a >= 0 And a <= 4 Then
                    Ctl.Container.Tab = a
                ElseIf a >= 5 And a <= 9 Then
                    Ctl.Container.Tab = a - 5
                ElseIf a >= 10 And a <= 14 Then
                    Ctl.Container.Tab = a - 10
                ElseIf a >= 15 And a <= 19 Then
                    Ctl.Container.Tab = a - 15
                ElseIf a >= 20 And a <= 24 Then
                    Ctl.Container.Tab = a - 20
                End If
                a = a + 1
                Ctl.Move 190 * ScaleX, j(1) * ScaleY, j(2) * ScaleX, j(3) * ScaleY
            end if