设在窗体上有个文本框,然后编写如下的事件过程 Private Sub Text1_KeyDown(KeyCode As Integer,
设在窗体上有个文本框,然后编写如下的事件过程
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后,如果按【Shift+F2】,则在文本框中显示得是
A.Alt+F2
B.BBBBB
C.随机出几个数
D.文本框平均内容无变化