frmhotkey.frm

一个不错的数控源码是vb的

VERSION 5.00
Begin VB.Form frmHotkey 
   Caption         =   "快捷键设置"
   ClientHeight    =   4815
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6405
   LinkTopic       =   "Form1"
   ScaleHeight     =   4815
   ScaleWidth      =   6405
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox lstHotkey 
      Height          =   2220
      Left            =   840
      TabIndex        =   1
      Top             =   2040
      Width           =   3615
   End
   Begin VB.Label Label1 
      Caption         =   "从下面的列表中选择将要进行快捷键设置的项目，按下所需设置的键，等待计算机响应。。。"
      Height          =   975
      Left            =   960
      TabIndex        =   0
      Top             =   600
      Width           =   3135
   End
End
Attribute VB_Name = "frmHotkey"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Initial

Private Sub Form_Load()
    Dim i As Integer
    
    lstHotkey.Clear
    lstHotkey.AddItem "功能键--------------快捷键"
    For i = 0 To 20
        lstHotkey.AddItem hotKey(i, 0) & "-----------" & hotKey(i, 1)
    Next i
End Sub

Private Sub lstHotkey_Click()
    Dim i As Integer
    
    i = lstHotkey.ListIndex
    If i >= 0 Then
        hotKeyName = i
        frmSelectHotkey.Show 1
    End If
End Sub