vbAccelerator - Contents of code file: mfrmTest.frm

VERSION 5.00
Object = "{8245A918-4CF7-11D2-8E21-10B404C10000}#8.1#0"; "vbalIml.ocx"
Object = "{418F6080-7954-11D2-805B-00C04FA4EE99}#2.1#0"; "vbalSbar.ocx"
Begin VB.MDIForm mfrmTest 
   BackColor       =   &H8000000C&
   Caption         =   "vbAccelerator Status Bar Tester (MDI)"
   ClientHeight    =   5970
   ClientLeft      =   2460
   ClientTop       =   2805
   ClientWidth     =   9420
   Icon            =   "mfrmTest.frx":0000
   LinkTopic       =   "MDIForm1"
   Begin vbalSbar.vbalStatusBar sbrTest 
      Align           =   2  'Align Bottom
      Height          =   435
      Left            =   0
      TabIndex        =   0
      Top             =   5535
      Width           =   9420
      _ExtentX        =   16616
      _ExtentY        =   767
      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
      BackColor       =   -2147483633
      SimpleStyle     =   0
   End
   Begin vbalIml.vbalImageList ilsIcons 
      Left            =   60
      Top             =   120
      _ExtentX        =   953
      _ExtentY        =   953
      Size            =   5640
      Images          =   "mfrmTest.frx":0442
      KeyCount        =   6
      Keys            =   ""
   End
   Begin VB.Menu mnuFileTop 
      Caption         =   "&File"
      Begin VB.Menu mnuFile 
         Caption         =   "&Close"
         Index           =   0
      End
   End
   Begin VB.Menu mnuViewTOP 
      Caption         =   "&View"
      Begin VB.Menu mnuView 
         Caption         =   "&Status Bar"
         Checked         =   -1  'True
         Index           =   0
      End
   End
End
Attribute VB_Name = "mfrmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
Dim i As Long
Dim eStyle As ESTBRPanelStyle
Dim sText As String
Dim iImg As Long
Dim iMinWIdth As Long

   sbrTest.ImageList = ilsIcons
   For i = 1 To 5
      iImg = -1
      iMinWIdth = 64
      If (i = 2) Then
         eStyle = estbrIns
         sText = "Test item " & i
      ElseIf (i = 3) Or (i = 4) Then
         eStyle = estbrStandard
         iImg = Rnd * ilsIcons.ImageCount
         If (i = 4) Then
            sText = "Icon/Text"
         Else
            sText = ""
            iMinWIdth = 12
         End If
      Else
         eStyle = estbrStandard
         sText = "Test item " & i
      End If
      sbrTest.AddPanel eStyle, sText, , iImg, iMinWIdth, (i = 1), (i <> 3), ,
       "Item" & i
   Next i
   sbrTest.PanelIcon("Item3") = 1
   sbrTest.PanelToolTipText("Item3") = "Test Tool Tip"

End Sub

Private Sub mnuFile_Click(Index As Integer)
   Unload Me
End Sub

Private Sub mnuView_Click(Index As Integer)
Dim bs As Boolean
   bs = Not (mnuView(0).Checked)
   mnuView(0).Checked = bs
   sbrTest.Visible = bs
End Sub