|登录 |注册

查看: 2547|回复: 7
打印 上一主题 下一主题

【转帖+精华】vb 的hotkey的程序码

[复制链接]
goodhermit95
2008-8-18 09:53 PM
我只懂有这些
vbKeyLButton (1)
vbKeyRButton (2)
vbKeyCancel (3)
vbKeyMButton (4)
vbKeyBack (8)
vbKeyTab (9)
vbKeyClear (12)
vbKeyReturn (13)
vbKeyShift (16)
vbKeyControl (17)
vbKeyMenu (18)
vbKeyPause (19)
vbKeyCapital (20)
vbKeyEscape (27)
vbKeySpace (32)
vbKeyPageUp (33)
vbKeyPageDown (34)
vbKeyEnd (35)
vbKeyHome (36)
vbKeyLeft (37)
vbKeyUp (38)
vbKeyRight (39)
vbKeyDown (40)
vbKeySelect (41)
vbKeyPrint (42)
vbKeyExecute (43)
vbKeySnapshot (44)
vbKeyInsert (45)
vbKeyDelete (46)
vbKeyHelp (47)
vbKeyNumlock (144)
vbKeyScrollLock (145)


Alphabetic Key Code Constants

VbKeyA (65)
VbKeyB (66)
VbKeyC (67)
VbKeyD (68)
VbKeyE (69)
VbKeyF (70)
VbKeyG (71)
VbKeyH (72)
VbKeyI (73)
VbKeyJ (74)
VbKeyK (75)
VbKeyL (76)
vbKeyM (77)
VbKeyN (78)
VbKeyO (79)
VbKeyP (80)
VbKeyQ (81)
VbKeyR (82)
VbKeyS (83)
VbKeyT (84)
VbKeyU (85)
VbKeyV (86)
VbKeyW (87)
VbKeyX (88)
VbKeyY (89)
VbKeyZ (90)



Numeric Key Constants


vbKey0 (48)
vbKey1 (49)
vbKey2 (50)
vbKey3 (51)
vbKey4 (52)
vbKey5 (53)
vbKey6 (54)
vbKey7 (55)
vbKey8 (56)
vbKey9 (57)


Numeric Keypad Key Constants

vbKeyNumpad0 (96)
vbKeyNumpad1 (97)
vbKeyNumpad2 (98)
vbKeyNumpad3 (99)
vbKeyNumpad4 (100)
vbKeyNumpad5 (101)
vbKeyNumpad6 (102)
vbKeyNumpad7 (103)
vbKeyNumpad8 (104)
vbKeyNumpad9 (105)
VbKeyMultiply (106)
VbKeyAdd (107)
VbKeySeparator (108)
VbKeySubtract (109)
VbKeyDecimal (110)
VbKeyDivide (111)



Function Key Constants

vbKeyF1 (112)
vbKeyF2 (113)
vbKeyF3 (114)
vbKeyF4 (115)
vbKeyF5 (116)
vbKeyF6 (117)
vbKeyF7 (118)
vbKeyF8 (119)
vbKeyF9 (120)
vbKeyF10 (121)
vbKeyF11 (122)
vbKeyF12 (123)
vbKeyF13 (124)
vbKeyF14 (125)
vbKeyF15 (126)
vbKeyF16 (127)
其他不知道怎样弄哪
提示: 作者被禁止或删除 内容自动屏蔽
goodday
2008-8-19 02:52 AM


  1. Public Class Form1

  2.     Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
  3.         If e.KeyCode = Keys.F4 Then
  4.             Me.Close()
  5.         End If
  6.     End Sub



  7.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  8.     End Sub


  9. End Class

复制代码
goodday
2008-8-19 02:53 AM
记着一定是

Handles Me.KeyDown

其他的没有

回复 #4 goodday 的帖子

goodhermit95
2008-8-19 12:14 PM
哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈
我弄到了
很多书都没有这个,害我弄来弄去不可以
goodday
2008-8-20 07:21 PM

你没问我哦
你的损失

回复 #6 goodday 的帖子

goodhermit95
2008-8-20 08:12 PM
你最近才上线的啊
goodday
2008-8-26 12:14 AM
忙翻了,老板 给很多job
您需要登录后才可以回帖 登录 | 注册

JBTALKS.CC |联系我们 |隐私政策 |Share

GMT+8, 2025-3-10 08:11 PM , Processed in 0.084213 second(s), 25 queries .

Powered by Discuz! X2.5 © 2001-2012 Comsenz Inc.

本论坛言论纯属发表者个人意见,与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved

Dedicated Server powered by iCore Technology Sdn. Bhd.

合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.
回顶部