We help IT Professionals succeed at work.

SSTab problem

nod31
nod31 asked
on
i have an SSTab with 3 tabs, Post,Purchases,Notes.

i want to put a lot of information on each one and am at the same time trying to minimize the size of the form, so i placed a VScrollBar on it at the righ hand side, but how can i get this to work in code so that i can scroll down and use more space?

PLEASE can u explain answers as i am a total newbie to VB!

thanx

nod31
Comment
Watch Question

Commented:
This should help.  Copy and Paste the following code into notepad and save it as Form1.frm - Then open it in VB or add it to a standard exe project in VB.

******** begin Form1.frm below

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3012
   ClientLeft      =   48
   ClientTop       =   348
   ClientWidth     =   3744
   LinkTopic       =   "Form1"
   ScaleHeight     =   3012
   ScaleWidth      =   3744
   StartUpPosition =   3  'Windows Default
   Begin TabDlg.SSTab SSTab1
      Height          =   2496
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   2964
      _ExtentX        =   5228
      _ExtentY        =   4403
      _Version        =   393216
      TabHeight       =   420
      TabCaption(0)   =   "Tab 0"
      TabPicture(0)   =   "Form1.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame1"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "Tab 1"
      Tab(1).ControlEnabled=   0   'False
      Tab(1).ControlCount=   0
      TabCaption(2)   =   "Tab 2"
      Tab(2).ControlEnabled=   0   'False
      Tab(2).ControlCount=   0
      Begin VB.Frame Frame1
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   2028
         Left            =   108
         TabIndex        =   1
         Top             =   360
         Width           =   2748
         Begin VB.VScrollBar VScroll1
            Height          =   1920
            Left            =   2556
            TabIndex        =   20
            Top             =   108
            Width           =   192
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check18"
            Height          =   192
            Index           =   17
            Left            =   108
            TabIndex        =   19
            Top             =   4572
            Width           =   2424
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check17"
            Height          =   192
            Index           =   16
            Left            =   108
            TabIndex        =   18
            Top             =   4320
            Width           =   2460
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check16"
            Height          =   192
            Index           =   15
            Left            =   108
            TabIndex        =   17
            Top             =   4068
            Width           =   2532
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check15"
            Height          =   228
            Index           =   14
            Left            =   108
            TabIndex        =   16
            Top             =   3816
            Width           =   2316
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check14"
            Height          =   192
            Index           =   13
            Left            =   108
            TabIndex        =   15
            Top             =   3564
            Width           =   2568
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check13"
            Height          =   228
            Index           =   12
            Left            =   108
            TabIndex        =   14
            Top             =   3276
            Width           =   2532
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check12"
            Height          =   228
            Index           =   11
            Left            =   108
            TabIndex        =   13
            Top             =   3024
            Width           =   2424
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check11"
            Height          =   264
            Index           =   10
            Left            =   108
            TabIndex        =   12
            Top             =   2736
            Width           =   2532
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check10"
            Height          =   228
            Index           =   9
            Left            =   108
            TabIndex        =   11
            Top             =   2484
            Width           =   2532
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check9"
            Height          =   264
            Index           =   8
            Left            =   108
            TabIndex        =   10
            Top             =   2232
            Width           =   2460
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check8"
            Height          =   192
            Index           =   7
            Left            =   108
            TabIndex        =   9
            Top             =   2016
            Width           =   2496
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check7"
            Height          =   264
            Index           =   6
            Left            =   108
            TabIndex        =   8
            Top             =   1728
            Width           =   2460
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check6"
            Height          =   264
            Index           =   5
            Left            =   108
            TabIndex        =   7
            Top             =   1476
            Width           =   2388
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check5"
            Height          =   264
            Index           =   4
            Left            =   108
            TabIndex        =   6
            Top             =   1224
            Width           =   2532
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check4"
            Height          =   192
            Index           =   3
            Left            =   108
            TabIndex        =   5
            Top             =   1008
            Width           =   2316
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check3"
            Height          =   192
            Index           =   2
            Left            =   108
            TabIndex        =   4
            Top             =   756
            Width           =   2460
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check2"
            Height          =   264
            Index           =   1
            Left            =   108
            TabIndex        =   3
            Top             =   468
            Width           =   2460
         End
         Begin VB.CheckBox Check1
            Caption         =   "Check1"
            Height          =   228
            Index           =   0
            Left            =   108
            TabIndex        =   2
            Top             =   216
            Width           =   2532
         End
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim OldScrollValue As Integer
Private Sub Form_Load()
With VScroll1
    .Min = 0
    .Max = (Check1(Check1.UBound).Top + Check1(Check1.UBound).Height) - Frame1.Height
    .SmallChange = Screen.TwipsPerPixelY * 10
    .LargeChange = .SmallChange
    OldScrollValue = .Value
End With
End Sub

Private Sub VScroll1_Change()
    ScrollIt
End Sub
Private Sub VScroll1_Scroll()
    ScrollIt
End Sub

Private Sub ScrollIt()

    Dim i As Integer
    Dim CkMax As Integer
    Dim NewScrollValue As Integer
   
    NewScrollValue = VScroll1.Value
    CkMax = Check1.UBound
   
    For i = 0 To CkMax
            Check1(i).Top = Check1(i).Top + OldScrollValue - NewScrollValue
    Next i
    OldScrollValue = NewScrollValue


End Sub


******** end Form1.frm

This demonstrates scrolling controls on a SSTab

Hope This Helps.

Wileecoy.
Are you talking about scrolling while working on the form or when it is running?

Explore More ContentExplore courses, solutions, and other research materials related to this topic.