frmmain.frm

大量优秀的vb编程

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "键盘信息"
   ClientHeight    =   3192
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3192
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "退出程序"
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   2640
      Width           =   1332
   End
   Begin VB.Label Label1 
      Caption         =   "键盘信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   16.2
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   1200
      TabIndex        =   5
      Top             =   240
      Width           =   1572
   End
   Begin VB.Label lblcaretflash 
      Caption         =   "Label1"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   2280
      Width           =   4095
   End
   Begin VB.Label lblrepeatdelay 
      Caption         =   "Label1"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   1800
      Width           =   4455
   End
   Begin VB.Label lblrepeatspeed 
      Caption         =   "Label1"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   1320
      Width           =   4455
   End
   Begin VB.Label lblkeyboard 
      Caption         =   "Label1"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   840
      Width           =   4455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    End
End Sub

Private Sub Form_Load()
Dim r As Long
Dim t As String
Dim k As Long
Dim q As Long
k = GetKeyboardType(0)
If k = 1 Then t = "PC or compatible 83-key keyboard"
If k = 2 Then t = "Olivetti 102-key keyboard"
If k = 3 Then t = "AT or compatible 84-key keyboard"
If k = 4 Then t = "Enhanced(IBM) 101-102-key keyboard"
If k = 5 Then t = "Nokia 1050 keyboard"
If k = 6 Then t = "Nokia 9140 keyboard"
If k = 7 Then t = "Japanese keyboard"
lblkeyboard = "键盘类型: " & t
q = SystemParametersInfo(SPI_GETKEYBOARDDELAY, 0, r, 0)
lblrepeatdelay = "键盘重复敲击延迟时间 = " & r & " 秒"
q = SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, r, 0)
scrRepeatSpeed = r
lblrepeatspeed = "键盘重复敲击速度 = " & r & " 字符/秒"
scrCaretFlash = GetCaretBlinkTime
lblcaretflash = "插入符光标的闪烁速度 = " & GetCaretBlinkTime & "ms"
End Sub