在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:Dim SaveAll As StringPrivate Sub Form_ Load () Show

admin2009-09-28  25

问题 在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:Dim SaveAll As StringPrivate Sub Form_ Load ()    Show    Text1.Text=" "    Text1.SetFocusEnd SubPrivate Sub Command1_ Click()    Text1. Text=LCase(SaveAll)+SaveAllEnd SubPrivate Sub Form_ KeyPress (KeyAscii As Integer)    SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为 ______。

选项 A、vbVB
B、不显示任何信息
C、VB
D、出错

答案A

解析 KeyPreview属性,返回或设置一个值,以决定是否在控件的键盘事件之前激活窗体的键盘事件。键盘事件为:KeyDown、KeyUp和KeyPress。当KeyPreview的值为True时窗体先接收键盘事件,然后是活动控件接收事件;为False时(缺省值)活动控件接收键盘事件,而窗体不接收。
   KeyPress将每个字符的大、小写形式作为不同的键代码解释,即作为两种不同的字符。
   本题中,由于Form的KeyPreview属性为True,窗体先接收键盘事件。当键入V时,窗体的KeyPress事件产生,此时KeyAscii=119,Chr(KeyAscii)=V,SaveAll=V,当键入B时,KeyAscii=98,Chr(KcyAscii)=B,SaveAll=VB,Text1中的内容为vbVB。
转载请注明原文地址:https://jikaoti.com/ti/rCq0FFFM
0

最新回复(0)