home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#4.7#0"; "FlatStrip5.ocx"
- Begin VB.Form frmClientArea
- BorderStyle = 3 'Fixed Dialog
- Caption = "Client Area Demonstration"
- ClientHeight = 7080
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 7845
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "ClientArea.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 472
- ScaleMode = 3 'Pixel
- ScaleWidth = 523
- StartUpPosition = 2 'CenterScreen
- Begin VB.TextBox txtTab
- BorderStyle = 0 'None
- Height = 1005
- Index = 0
- Left = 1665
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 6
- Text = "ClientArea.frx":014A
- Top = 4770
- Width = 4155
- End
- Begin VB.ComboBox cboAlignment
- Height = 315
- ItemData = "ClientArea.frx":0150
- Left = 3915
- List = "ClientArea.frx":015A
- Style = 2 'Dropdown List
- TabIndex = 5
- Top = 6525
- Width = 2265
- End
- Begin VB.ComboBox cboTabPosition
- Height = 315
- ItemData = "ClientArea.frx":0179
- Left = 180
- List = "ClientArea.frx":0189
- Style = 2 'Dropdown List
- TabIndex = 3
- Top = 6525
- Width = 3525
- End
- Begin VB.CommandButton cmdClose
- Cancel = -1 'True
- Caption = "C&lose"
- Default = -1 'True
- Height = 330
- Left = 6480
- TabIndex = 0
- Top = 6525
- Width = 1140
- End
- Begin FlatStripDemonstration.pucTextTip pucTextTip1
- Height = 1950
- Left = 180
- TabIndex = 1
- Top = 900
- Width = 7440
- _ExtentX = 13123
- _ExtentY = 3440
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Text = $"ClientArea.frx":01C7
- End
- Begin FlatStripCtl.FlatStrip ftsDemo
- Height = 3120
- Left = 180
- Top = 3015
- Width = 7440
- _ExtentX = 13123
- _ExtentY = 5503
- ActiveTab = 1
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- TabCount = 3
- Tab1Caption = "Tab #1"
- Tab1Selected = -1 'True
- Tab2Caption = "Tab #2"
- Tab3Caption = "Tab #3"
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&Alignment:"
- Height = 195
- Index = 1
- Left = 3915
- TabIndex = 4
- Top = 6300
- Width = 765
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&TabPosition:"
- Height = 195
- Index = 0
- Left = 180
- TabIndex = 2
- Top = 6300
- Width = 885
- End
- Begin FlatStripDemonstration.pucLogoPane pucLogoPane1
- Align = 1 'Align Top
- Height = 750
- Left = 0
- Top = 0
- Width = 7845
- _ExtentX = 13838
- _ExtentY = 1323
- Picture = "ClientArea.frx":0492
- End
- Attribute VB_Name = "frmClientArea"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub cboAlignment_Click()
- ftsDemo.Alignment = cboAlignment.ListIndex
- End Sub
- Private Sub cboTabPosition_Click()
- ftsDemo.TabPosition = cboTabPosition.ListIndex
- End Sub
- Private Sub cmdClose_Click()
- Unload Me
- End Sub
- Private Sub Form_Load()
- Dim Item As FlatTab
- cboTabPosition.ListIndex = ftsDemo.TabPosition
- cboAlignment.ListIndex = ftsDemo.Alignment
- 'attach clients
- For Each Item In ftsDemo.FlatTabs
- 'create
- If (Item.Index - 1) Then
- Load txtTab(Item.Index - 1)
- End If
- txtTab(Item.Index - 1).Text = "This is the client for tab " & _
- Item.Index & " which has been attached to the tab " & _
- "via the ResizeClient property. As you can see, the " & _
- "TextBox is automatically sized to fit the client area " & _
- "of the FlatStrip control, and is also automatically " & _
- "show or hidden as required."
- 'attach
- Set Item.ResizeClient = txtTab(Item.Index - 1)
- Next
- End Sub
-