| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2086 人关注过本帖
标题:求助,怎么用VB屏蔽键盘特殊键输入
只看楼主 加入收藏
★摘★星★
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-31
收藏
 问题点数:0 回复次数:4 
求助,怎么用VB屏蔽键盘特殊键输入

有谁知道怎么用VB限制键盘输入啊
比如:使按下windows徽标键不起作用 (也就是不让开始菜单弹出)
另外其它组合键也要禁用。应该怎么做?

[此贴子已经被作者于2006-4-1 13:50:57编辑过]

搜索更多相关主题的帖子: 键盘 输入 
2006-03-31 20:20
feeling
Rank: 4
来 自:福建厦门
等 级:贵宾
威 望:10
帖 子:105
专家分:0
注 册:2006-3-29
收藏
得分:0 

具体的键码,请查看相应的代号...
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim keyascii As Integer = Asc(e.KeyChar)
Select Case keyascii

Case Is < 32
...
Case 65 To 90
...
Case 97 To 122
...
Case Else
keyascii = 0
MessageBox.Show("登陆名,只能是英文字符!--谢谢合作!", "人事管理系统--信息提示!", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select

End Sub


互相学习! 不要放弃!时刻相信自己! 信心,是我们撑起世界的\'武器\'! 只怕你不肯学,而不怕自己学不会!
2006-03-31 20:38
★摘★星★
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-31
收藏
得分:0 
非常感谢这位朋友的热心帮助,各键码值我已知道,也懂得了要用selete 语句来判断按了哪个键.只是select语句体不知道该怎么写.敬请各位指教!

2006-04-01 08:56
feeling
Rank: 4
来 自:福建厦门
等 级:贵宾
威 望:10
帖 子:105
专家分:0
注 册:2006-3-29
收藏
得分:0 

Dim keyascii As Integer = Asc(e.KeyChar)
Select Case keyascii

Case 13
MsgBox("你已按下了Enter键!")
Case 33
Msgbox("你已按下了" & keyascii.tostring() & "键")
  Case 55
...

Case Else
keyascii = 0
MessageBox.Show("others!", "Informations!", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
If keyascii = 0 Then
e.Handled = True
TextBox1.Text = ""
TextBox1.Focus()
End If


互相学习! 不要放弃!时刻相信自己! 信心,是我们撑起世界的\'武器\'! 只怕你不肯学,而不怕自己学不会!
2006-04-01 11:29
★摘★星★
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-31
收藏
得分:0 
非常感谢你啊!

2006-04-01 11:51
快速回复:求助,怎么用VB屏蔽键盘特殊键输入
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022265 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved