2. 计算机
  3. 有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单

有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单

admin2012-10-09  51
问题 有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图23所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。
选项
答案1．操作步骤 (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语句来判断按下的是鼠标左键或右键。
转载请注明原文地址:https://kaotiyun.com/show/Q3hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)