在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview设置为True(在激活对象上的控件键盘事件之前,优先激活键盘事件,即Form优先)然后编写如下代码:DimSaveAllAsStringPrivateSubCommand1_Click()Text1.Text=Ucase(SaveAll)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后,在键盘上输入“abcdefg
在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview设置为True(在激活对象上的控件键盘事件之前,优先激活键盘事件,即Form优先)然后编写如下代码:DimSaveAllAsStringPrivateSubCommand1_Click()Text1.Text=Ucase(SaveAll)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框显示为()。
A.abcdefg
B.不显示任何信息
C.ABCDEFG
D.出错
正确答案:C
Tag:VisualBasic程序设计 窗体 键盘
时间:2021-05-06 20:09:00