在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在窗体Form上有一个名为Listl的列表框,列表框中有若干列表项,通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮,名称分别是Commandl和Command2,标题

admin2009-03-26  28

问题 在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在窗体Form上有一个名为Listl的列表框,列表框中有若干列表项,通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮,名称分别是Commandl和Command2,标题分别是“全选”和“保存”(如图41—6所示)。要求在程序运行时,单击“全选”按钮则将Listl中的全部列表项选中,然后单击“保存”按钮,将Listl中的全部列表项写入文本文件out5.txt中,并将out5.txt保存在考生文件夹下。

    注意:该程序不完整,请在有问号“?”的地方填入正确内容,然后删除问号“?”及所有注释符“’”,但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的数据文件也保存到考生文件夹下,否则没有成绩。

选项

答案向列表框中添加项目可以用Addltem方法,也可以在属性窗口中进行,本题是在属性窗口实现的。列表框的Text属性勾最后一次选中的表项的文本,Listlndex属性是已被选中的表项的位置。如果没有选中任何项,Listlndex的值将设置为一。双击Commandl命令按钮进入代码窗口,编写如下代码: Private Sub Commandl_Click() Dim i As Integer For i=0 To Listl.ListCount-1 Listl.Selected(i)=True Next i End Sub Private Sub Command2_Click() Dim i As Integer Open App.Path&"\out5.txt"For Output As l For i=0 To Listl.ListCount-1 Listl.Listlndex=i Print#1,Listl.Text, Listl.Selected(i)=False Next i Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/PV1p777K
0

最新回复(0)