键盘事件！求解释一下这个程序~ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 键盘事件！求解释一下这个程序~

标题：键盘事件！求解释一下这个程序~

只看楼主

easonzgf

等　级：新手上路
帖　子：18
专家分：0
注　册：2014-12-4
结帖率：75%

楼主

已结贴√ 问题点数：10 回复次数：4

键盘事件！求解释一下这个程序~

　　Private Sub Text1_KeyDown(KeyCode As Integer, ShiftAs Integer)
　　Const Alt=4
　　Const Key_F2=&H71
　　altdown%=(ShiftAnd Alt)> 0
　　f2down%=(KeyCode=Key_F2)
　　If altdown% And f2down%Then
　　Text1.Text="abl"
　　End If
　　EndSub

搜索更多相关主题的帖子: 键盘　

2014-12-06 20:07

xzlxzlxzl

来　自：湖北
等　级：贵宾
威　望：125
帖　子：1091
专家分：5825
注　册：2014-5-3

第 2 楼

得分:5

(Shift And Alt)> 0是关系运算，结果为True或False，当shift=4时,shift and alt=4,大于0，则altdown%=true=-1，否则altdown%=false=0。这段代码的意思是当text1获得焦点时，按下alt键不放，同时按下f2键，text1内容即为abl

2014-12-06 21:08

风吹过b

等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15

第 3 楼

得分:5

写这个代码的人，是个资深代码员吗？

　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
　　Const Alt=4               定义二个常量，分别是二个键的代码
　　Const Key_F2=&H71
　　altdown%=(Shift And Alt)> 0    控制键与 ALT 进行 AND 位运算，然后判断是否〉0，
　　f2down%=(KeyCode=Key_F2)       是否按下了F2
　　If altdown% And f2down%Then    逻辑运算，是否全是真
　　Text1.Text="abl"
　　End If
　　EndSub