设在窗体上有一个文本框,然后编写如下的事件过程:
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 ="abl"
End If
End Sub
程序运行后,清除文本框中原有内容,如果按Shift +F2键,则在文本框中显示的是( )。
发布于 2022-05-11 09:59:53
登录后免费查看答案
关注者
0
被浏览
14