问题:[问答题]
操作步骤
(1)在VisualBasic集成环境选择“文件”→“打开工程”命令,在对话框中选择ylc5.vbp工程文件,单击“确定”按钮打开。
(2)在工具箱中选择ListBox控件,在窗体上创建该控件,命名为List1。在工具箱中选择TextBox控件,在窗体中创建并命名为Text1,标题为空。
2.行为编码
在代码窗口选择Form对象的MouseDown事件,其行为代码如下:
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle)
SelectCaseButton
’若按下的是鼠标左键
Case1
’将文本框中的内容加入列表框
List1.Addltem,(Text1.Text)
’清空文本框
Text1.Text=""
’若按下的是鼠标右键
Case2
’删除列表框中与文本框相同的内容
Fori=0ToList1.ListCount-1
IfList1.List(i)=Text1.TextThen
List1.Removeltem(i)
ExitFor
EndIf
Nexti
EndSelect
EndSub
3.存盘保存
执行“文件”→“保存工程”命令,工程文件名为ylc5.vbp,窗体文件名为ylc5.frm。
● 参考解析
(1)本题考查考生对ListBox控件的属性控制和操作,特别对鼠标按键的控制进行了仔细的考查。(2)注意使用ListBox控件的AddItem、RemoveItem方法、鼠标消息的控制。(3)本题是根据键码的值,使用Select语句来判断按下的是鼠标左键或右键。