注册 登录
编程论坛 VB6论坛

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

easonzgf 发布于 2014-12-06 20:07, 420 次点击
  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
4 回复
#2
xzlxzlxzl2014-12-06 21:08
(Shift And Alt)> 0是关系运算,结果为True或False,当shift=4时,shift and alt=4,大于0,则altdown%=true=-1,否则altdown%=false=0。这段代码的意思是当text1获得焦点时,按下alt键不放,同时按下f2键,text1内容即为abl
#3
风吹过b2014-12-06 21:11
写这个代码的人,是个资深代码员吗?

  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
#4
easonzgf2014-12-08 22:24
回复 2楼 xzlxzlxzl
谢谢你~
#5
easonzgf2014-12-08 22:24
回复 3楼 风吹过b
考试题~
1