vbAccelerator - Contents of code file: fBitmapTest.frm

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "*\APopMenu6.vbp"
Begin VB.Form frmBitmaps 
   Caption         =   "Form1"
   ClientHeight    =   4500
   ClientLeft      =   4350
   ClientTop       =   2310
   ClientWidth     =   5790
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   4500
   ScaleWidth      =   5790
   Begin cPopMenu6.PopMenu ctlPopMenu 
      Left            =   300
      Top             =   2160
      _ExtentX        =   1058
      _ExtentY        =   1058
      HighlightCheckedItems=   0   'False
      TickIconIndex   =   0
   End
   Begin VB.PictureBox picVBAccel 
      AutoSize        =   -1  'True
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   60
      Picture         =   "fBitmapTest.frx":0000
      ScaleHeight     =   330
      ScaleWidth      =   1275
      TabIndex        =   1
      Top             =   0
      Width           =   1335
   End
   Begin MSComctlLib.StatusBar sbrMain 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   0
      Top             =   4185
      Width           =   5790
      _ExtentX        =   10213
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            Enabled         =   0   'False
            TextSave        =   "CAPS"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ilsBitmaps 
      Left            =   900
      Top             =   2160
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   13
      MaskColor       =   8421376
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   6
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "fBitmapTest.frx":0559
            Key             =   "mnuFile(1)"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "fBitmapTest.frx":0653
            Key             =   "mnuEdit(1)"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "fBitmapTest.frx":074D
            Key             =   "mnuEdit(0)"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "fBitmapTest.frx":0847
            Key             =   "mnuFile(0)"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "fBitmapTest.frx":0941
            Key             =   "mnuEdit(2)"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "fBitmapTest.frx":0A3B
            Key             =   "mnuFile(3)"
         EndProperty
      EndProperty
   End
   Begin VB.Label lblInfo 
      Caption         =   $"fBitmapTest.frx":0B35
      Height          =   1035
      Left            =   60
      TabIndex        =   3
      Top             =   480
      Width           =   5655
   End
   Begin VB.Label lblVBAccel 
      Caption         =   "Visit vbAccelerator - the VB Programmer's Resource -
       at http://vbaccelerator.com"
      Height          =   375
      Left            =   1440
      TabIndex        =   2
      Top             =   0
      Width           =   3975
   End
   Begin VB.Menu mnuFileTOP 
      Caption         =   "&File"
      Begin VB.Menu mnuFile 
         Caption         =   "&Open"
         Index           =   0
      End
      Begin VB.Menu mnuFile 
         Caption         =   "&Save"
         Enabled         =   0   'False
         Index           =   1
      End
      Begin VB.Menu mnuFile 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu mnuFile 
         Caption         =   "&Close"
         Index           =   3
      End
   End
   Begin VB.Menu mnuEditTOP 
      Caption         =   "&Edit"
      Begin VB.Menu mnuEdit 
         Caption         =   "Cu&t"
         Index           =   0
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuEdit 
         Caption         =   "&Copy"
         Index           =   1
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuEdit 
         Caption         =   "&Paste"
         Enabled         =   0   'False
         Index           =   2
         Shortcut        =   ^V
      End
   End
End
Attribute VB_Name = "frmBitmaps"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub ctlPopMenu_ItemHighlight(ItemNumber As Long, bEnabled As Boolean,
 bSeparator As Boolean)
    sbrMain.Panels(1).Text = "Highlighted " & ctlPopMenu.Caption(ItemNumber)
    sbrMain.Panels(2).Text = "Enabled:" & bEnabled
    sbrMain.Panels(3).Text = "Separator:" & bSeparator
End Sub

Private Sub Form_Load()
Dim i As Long
    ctlPopMenu.ImageList = ilsBitmaps
    ctlPopMenu.SubClassMenu Me
    
    For i = 1 To ctlPopMenu.Count
        If InStr(ctlPopMenu.MenuKey(i), "TOP") = 0 Then
            If (ctlPopMenu.Caption(i) <> "-") Then
                ctlPopMenu.ItemIcon(i) =
                 ilsBitmaps.ListImages(ctlPopMenu.MenuKey(i)).Index - 1
            End If
        End If
    Next i
    sbrMain.Panels(1).Text = "Test"
    
End Sub