在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview设置为True(在激活对象上的控件键盘事件之前,优先激活键盘事件,即Form优先)然后编写如下代码:Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Ucase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll= SaveAll+Chr(KeyAscii)End Sub程序运行后,在键


在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview设置为True(在激活对象上的控件键盘事件之前,优先激活键盘事件,即Form优先)然后编写如下代码:Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Ucase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll= SaveAll+Chr(KeyAscii)End Sub程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框显示为()。

A.abcdefg

B.不显示任何信息

C.ABCDEFG

D.出错

正确答案:OpenForm


Tag:VisualBasic程序设计 窗体 键盘 时间:2021-11-29 15:20:55

相关答案

热门答案