Facebook Sharer
选择您要替换的背景颜色:
【农历新年】背景图片:
个性化设定
 注册  找回密码
查看: 2508|回复: 7
打印 上一主题 下一主题

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

[复制链接]

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11

跳转到指定楼层
1#
发表于 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)
其他不知道怎样弄哪




收藏收藏0
头像被屏蔽

0

主题

0

好友

1611

积分

禁止发言

2#
发表于 2008-8-18 11:30 PM |只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

13

主题

0

好友

2113

积分

白金长老

Rank: 10

3#
发表于 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

复制代码


回复

使用道具 举报

13

主题

0

好友

2113

积分

白金长老

Rank: 10

4#
发表于 2008-8-19 02:53 AM |只看该作者
记着一定是

Handles Me.KeyDown

其他的没有


回复

使用道具 举报

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11

5#
发表于 2008-8-19 12:14 PM |只看该作者

回复 #4 goodday 的帖子

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈
我弄到了
很多书都没有这个,害我弄来弄去不可以


回复

使用道具 举报

13

主题

0

好友

2113

积分

白金长老

Rank: 10

6#
发表于 2008-8-20 07:21 PM |只看该作者

你没问我哦
你的损失


回复

使用道具 举报

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11

7#
发表于 2008-8-20 08:12 PM |只看该作者

回复 #6 goodday 的帖子

你最近才上线的啊


回复

使用道具 举报

13

主题

0

好友

2113

积分

白金长老

Rank: 10

8#
发表于 2008-8-26 12:14 AM |只看该作者
忙翻了,老板 给很多job


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

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

GMT+8, 2024-11-26 03:41 AM , Processed in 0.152041 second(s), 27 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

Ultra High-performance Dedicated Server powered by iCore Technology Sdn. Bhd.
Domain Registration | Web Hosting | Email Hosting | Forum Hosting | ECShop Hosting | Dedicated Server | Colocation Services
本论坛言论纯属发表者个人意见,与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved
合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.
回顶部