Private Sub text1_keypress(k As Integer) '当Text1控件中有按键操作时触该事件
If k < Asc("0") Or k > Asc("9") Then '如果按键不在0-9之间
k = 0 '放弃此次按键,k指按键的Ascii代码
Else
label1.Caption = Chr(k) + labell.Caption '否则将相应的数字添加到Label1.caption的首部
End If
End Sub
K是按键的一个值了,在text1中按不同的按键会有不同的属性值
从而触发不同的事件,比如说在text1中按回车键,则K的值就为13
k代表按键的asc码值。
程序是这样的
如果按键的asc码 比0小,或比9大
则 k=0
其他情况则
让abel1标签的caption= 所按的那个键代表的字符 + labell标签原来的caption
键盘上你按下一个键后,每个键都有一个数值代替。
0到9 是指数字键9
程序判断的你是不是按下了数字键。
如果你按下了其他键,赋值为0