在考生文件夹下完成如下简单应用:
1.有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm),在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后,如果用鼠标左键单击窗体,则从键盘上输入要添加到列表框的项目;如果用鼠标右键单击窗体,则从键盘上输入要删除的项目,将其从列表中删除。程序的运行情况如图23所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为ylc5.vbp,窗体文件名为ylc5.frm。
参考答案:操作步骤
(1)在Visual Basic集成环境选择“文件”→“打开工程”命令,在对话框中选择ylc5.vbp工程文件,单击“确定”按钮打开。
(2)在工具箱中选择ListBox控件,在窗体上创建该控件,命名为List1。在工具箱中选择TextBox控件,在窗体中创建并命名为Text1,标题为空。
2.行为编码
在代码窗口选择Form对象的MouseDown事件,其行为代码如下:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_
X As Single,Y As Single)
Select Case Button
’若按下的是鼠标左键
Case 1
’将文本框中的内容加入列表框
List1.Addltem,(Text1.Text)
’清空文本框
Text1. Text=" "
’若按下的是鼠标右键
Case 2
’删除列表框中与文本框相同的内容
For i=0 To List1.ListCount-1
If List1.List(i)=Text1.Text Then
List1.Removeltem(i)
Exit For
End If
Next i
End Select
End Sub
3.存盘保存
执行“文件”→“保存工程”命令,工程文件名为ylc5.vbp,窗体文件名为ylc5.frm。
解析: (1)本题考查考生对ListBox控件的属性控制和操作,特别对鼠标按键的控制进行了仔细的考查。
(2)注意使用ListBox控件的AddItem、RemoveItem方法、鼠标消息的控制。
(3)本题是根据键码的值,使用Select语句来判断按下的是鼠标左键或右键。