vbAccelerator - Contents of code file: frmTest.frm

VERSION 5.00
Object = "{A2FCE68E-ACA2-4A09-9C2D-F53E1195D5FC}#1.0#0"; "vbalHkCt6.ocx"
Begin VB.Form frmAccelTest 
   Caption         =   "Accelerator Test"
   ClientHeight    =   3705
   ClientLeft      =   4230
   ClientTop       =   3240
   ClientWidth     =   5760
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmTest.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3705
   ScaleWidth      =   5760
   Begin vbalHkCt6.vbalHookControl ctlAccelerator 
      Left            =   4920
      Top             =   2940
      _ExtentX        =   1191
      _ExtentY        =   1058
      Enabled         =   0   'False
   End
   Begin VB.ListBox lstAcceleratorEvents 
      Height          =   1815
      Left            =   120
      TabIndex        =   1
      Top             =   1020
      Width           =   5535
   End
   Begin VB.Label lblInfo 
      Caption         =   $"frmTest.frx":1272
      Height          =   975
      Left            =   60
      TabIndex        =   0
      Top             =   120
      Width           =   5655
   End
   Begin VB.Menu mnuEditTop 
      Caption         =   "&Edit"
      Begin VB.Menu mnuEdit 
         Caption         =   "Cu&t"
         Index           =   0
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu mnuGoTOP 
      Caption         =   "&Go"
      Begin VB.Menu mnuGo 
         Caption         =   ""
         Index           =   0
      End
   End
End
Attribute VB_Name = "frmAccelTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub ctlAccelerator_Accelerator(ByVal nIndex As Long, bCancel As Boolean)
Dim sActive As String
   
   ' Show the accelerator we got and also whether the form is currently
   ' the system active form:
   If Not ctlAccelerator.IsActive Then
      sActive = "[InActive]"
   End If
   lstAcceleratorEvents.AddItem "Accelerator: " & ctlAccelerator.Key(nIndex) &
    " " & sActive & ""
   lstAcceleratorEvents.ListIndex = lstAcceleratorEvents.NewIndex
   
End Sub

Private Sub Form_Load()
   
   ' Create some accelerators at runtime:
   Load mnuEdit(1)
   mnuEdit(1).Visible = True
   mnuEdit(1).Caption = "&Copy" & vbTab & "Ctrl+C"
   Load mnuEdit(2)
   mnuEdit(2).Visible = True
   mnuEdit(2).Caption = "&Paste" & vbTab & "Ctrl+V"
   
   mnuGo(0).Caption = "&Back" & vbTab & "Alt+Left Arrow"
   Load mnuGo(1)
   mnuGo(1).Visible = True
   mnuGo(1).Caption = "&Next" & vbTab & "Alt+Right Arrow"
   Load mnuGo(2)
   mnuGo(2).Visible = True
   mnuGo(2).Caption = "&Up One Level"
   Load mnuGo(3)
   mnuGo(3).Visible = True
   mnuGo(3).Caption = "-"
   Load mnuGo(4)
   mnuGo(4).Visible = True
   mnuGo(4).Caption = "&Home Page" & vbTab & "Alt+Home"
   Load mnuGo(5)
   mnuGo(5).Visible = True
   mnuGo(5).Caption = "&vbAccelerator..." & vbTab & "Alt+Enter"
   
   
   
   With ctlAccelerator
      .AddAccelerator vbKeyC, vbCtrlMask, "COPY"
      .AddAccelerator vbKeyV, vbCtrlMask, "PASTE"
      .AddAccelerator vbKeyLeft, vbAltMask, "BACK"
      .AddAccelerator vbKeyRight, vbAltMask, "NEXT"
      .AddAccelerator vbKeyHome, vbAltMask, "HOME"
      .AddAccelerator vbKeyReturn, vbAltMask, "VBACCELERATOR"
      .Enabled = True
   End With
   
End Sub

Private Sub mnuEdit_Click(Index As Integer)
   ' Menu Event:
   Debug.Print "MenuEdit_Click " & Index
End Sub