⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmmain.frm

📁 该软件实现键盘锁定功能
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Begin VB.Form frmMain 
   BackColor       =   &H00FFC0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "键盘锁定"
   ClientHeight    =   3915
   ClientLeft      =   1950
   ClientTop       =   1530
   ClientWidth     =   9045
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3915
   ScaleWidth      =   9045
   StartUpPosition =   2  '屏幕中心
   Begin VB.CheckBox Check3 
      BackColor       =   &H00FFC0C0&
      Caption         =   "默认值是否保存到文件"
      Height          =   375
      Left            =   5280
      TabIndex        =   111
      Top             =   2880
      Width           =   1215
   End
   Begin VB.CommandButton Command6 
      BackColor       =   &H00C0C0FF&
      Caption         =   "清除密码"
      Height          =   375
      Left            =   1320
      Style           =   1  'Graphical
      TabIndex        =   116
      Top             =   3480
      Width           =   975
   End
   Begin VB.CommandButton suoding 
      BackColor       =   &H00C0C0FF&
      Caption         =   "锁定电脑"
      Height          =   375
      Left            =   2400
      Style           =   1  'Graphical
      TabIndex        =   115
      Top             =   3480
      Width           =   975
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00C0C0FF&
      Caption         =   "设置密码"
      Height          =   375
      Left            =   240
      Style           =   1  'Graphical
      TabIndex        =   113
      Top             =   3480
      Width           =   975
   End
   Begin VB.CommandButton Command5 
      BackColor       =   &H00C0C0FF&
      Caption         =   "退出"
      Height          =   375
      Left            =   7920
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   3480
      Width           =   975
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H00C0C0FF&
      Caption         =   "保存当前为默认值"
      Height          =   375
      Left            =   5640
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   3480
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C0C0FF&
      Caption         =   "全不选"
      Height          =   375
      Left            =   4560
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   3480
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0C0FF&
      Caption         =   "全选"
      Height          =   375
      Left            =   3480
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3480
      Width           =   975
   End
   Begin VB.CheckBox chkDisable 
      BackColor       =   &H00FFC0C0&
      Caption         =   "是否启用"
      Height          =   375
      Left            =   5280
      TabIndex        =   0
      Top             =   2520
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "选择禁用的按键"
      Height          =   3375
      Left            =   120
      TabIndex        =   1
      Top             =   0
      Width           =   8775
      Begin VB.CheckBox rzong 
         BackColor       =   &H00FFC0C0&
         Caption         =   "]}"
         Height          =   255
         Left            =   5640
         TabIndex        =   118
         Top             =   1200
         Width           =   495
      End
      Begin VB.CheckBox lzong 
         BackColor       =   &H00FFC0C0&
         Caption         =   "[{"
         Height          =   255
         Left            =   5160
         TabIndex        =   117
         Top             =   1200
         Width           =   495
      End
      Begin VB.Timer Timer3 
         Enabled         =   0   'False
         Interval        =   50
         Left            =   8280
         Top             =   480
      End
      Begin VB.Timer Timer2 
         Enabled         =   0   'False
         Interval        =   50
         Left            =   8280
         Top             =   1320
      End
      Begin VB.Timer Timer1 
         Enabled         =   0   'False
         Interval        =   50
         Left            =   8160
         Top             =   1920
      End
      Begin VB.CheckBox Check4 
         BackColor       =   &H00FFC0C0&
         Caption         =   "禁用任务管理器"
         Height          =   255
         Left            =   2760
         TabIndex        =   112
         Top             =   1800
         Width           =   1815
      End
      Begin VB.CheckBox Check2 
         BackColor       =   &H00FFC0C0&
         Caption         =   "交换鼠标左右键"
         Height          =   255
         Left            =   1080
         TabIndex        =   110
         Top             =   1800
         Width           =   1575
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFC0C0&
         Caption         =   "esc"
         Height          =   255
         Left            =   120
         TabIndex        =   109
         Top             =   840
         Width           =   615
      End
      Begin VB.Frame Frame2 
         BackColor       =   &H00FFC0C0&
         Caption         =   "小键盘"
         Height          =   855
         Left            =   120
         TabIndex        =   90
         Top             =   2400
         Width           =   4935
         Begin VB.CheckBox Check101 
            BackColor       =   &H00FFC0C0&
            Caption         =   "Enter"
            Height          =   255
            Left            =   3960
            TabIndex        =   107
            Top             =   480
            Width           =   855
         End
         Begin VB.CheckBox Check100 
            BackColor       =   &H00FFC0C0&
            Caption         =   "Num lock"
            Height          =   255
            Left            =   2520
            TabIndex        =   106
            Top             =   480
            Width           =   1050
         End
         Begin VB.CheckBox Check99 
            BackColor       =   &H00FFC0C0&
            Caption         =   "/"
            Height          =   255
            Left            =   2040
            TabIndex        =   105
            Top             =   480
            Width           =   375
         End
         Begin VB.CheckBox Check98 
            BackColor       =   &H00FFC0C0&
            Caption         =   "*"
            Height          =   255
            Left            =   1560
            TabIndex        =   104
            Top             =   480
            Width           =   375
         End
         Begin VB.CheckBox Check97 
            BackColor       =   &H00FFC0C0&
            Caption         =   "-"
            Height          =   255
            Left            =   1080
            TabIndex        =   103
            Top             =   480
            Width           =   375
         End
         Begin VB.CheckBox Check96 
            BackColor       =   &H00FFC0C0&
            Caption         =   "+"
            Height          =   255
            Left            =   600
            TabIndex        =   102
            Top             =   480
            Width           =   375
         End
         Begin VB.CheckBox Check95 
            BackColor       =   &H00FFC0C0&
            Caption         =   "9"
            Height          =   255
            Left            =   4440
            TabIndex        =   101
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check94 
            BackColor       =   &H00FFC0C0&
            Caption         =   "8"
            Height          =   255
            Left            =   3960
            TabIndex        =   100
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check93 
            BackColor       =   &H00FFC0C0&
            Caption         =   "7"
            Height          =   255
            Left            =   3480
            TabIndex        =   99
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check92 
            BackColor       =   &H00FFC0C0&
            Caption         =   "6"
            Height          =   255
            Left            =   3000
            TabIndex        =   98
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check91 
            BackColor       =   &H00FFC0C0&
            Caption         =   "5"
            Height          =   255
            Left            =   2520
            TabIndex        =   97
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check90 
            BackColor       =   &H00FFC0C0&
            Caption         =   "4"
            Height          =   255
            Left            =   2040
            TabIndex        =   96
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check89 
            BackColor       =   &H00FFC0C0&
            Caption         =   "3"
            Height          =   255
            Left            =   1560
            TabIndex        =   95
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check88 
            BackColor       =   &H00FFC0C0&
            Caption         =   "2"
            Height          =   255
            Left            =   1080
            TabIndex        =   94
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check87 
            BackColor       =   &H00FFC0C0&
            Caption         =   "1"
            Height          =   255
            Left            =   600
            TabIndex        =   93
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check86 
            BackColor       =   &H00FFC0C0&
            Caption         =   "0"
            Height          =   255
            Left            =   120
            TabIndex        =   92
            Top             =   240
            Width           =   375
         End
         Begin VB.CheckBox Check85 
            BackColor       =   &H00FFC0C0&
            Caption         =   "."
            Height          =   255
            Left            =   120
            TabIndex        =   91
            Top             =   480
            Width           =   375
         End
      End
      Begin VB.CheckBox Check84 
         BackColor       =   &H00FFC0C0&
         Caption         =   "/?"
         Height          =   255
         Left            =   4680
         TabIndex        =   89
         Top             =   1560
         Width           =   495
      End
      Begin VB.CheckBox Check83 
         BackColor       =   &H00FFC0C0&
         Caption         =   ".>"
         Height          =   255
         Left            =   5160
         TabIndex        =   88
         Top             =   1920
         Width           =   495
      End
      Begin VB.CheckBox Check82 
         BackColor       =   &H00FFC0C0&
         Caption         =   ",<"
         Height          =   255
         Left            =   4560
         TabIndex        =   87
         Top             =   1920
         Width           =   615
      End
      Begin VB.CheckBox m 
         BackColor       =   &H00FFC0C0&
         Caption         =   "M"
         Height          =   255
         Left            =   4200
         TabIndex        =   86
         Top             =   1560
         Width           =   375
      End
      Begin VB.CheckBox n 
         BackColor       =   &H00FFC0C0&
         Caption         =   "N"
         Height          =   255
         Left            =   3720
         TabIndex        =   85
         Top             =   1560
         Width           =   375
      End
      Begin VB.CheckBox b 
         BackColor       =   &H00FFC0C0&
         Caption         =   "B"
         Height          =   255
         Left            =   3240
         TabIndex        =   84
         Top             =   1560
         Width           =   375
      End
      Begin VB.CheckBox v 
         BackColor       =   &H00FFC0C0&
         Caption         =   "V"
         Height          =   255
         Left            =   2760
         TabIndex        =   83
         Top             =   1560
         Width           =   375
      End
      Begin VB.CheckBox c 
         BackColor       =   &H00FFC0C0&
         Caption         =   "C"
         Height          =   255
         Left            =   2280
         TabIndex        =   82
         Top             =   1560
         Width           =   375
      End
      Begin VB.CheckBox x 
         BackColor       =   &H00FFC0C0&
         Caption         =   "X"
         Height          =   255
         Left            =   1800
         TabIndex        =   81
         Top             =   1560

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -