在考生文件夹下有一个工程文件sj5.vbp,其窗体上有一个命令按钮,名称为Commandl,标题为“添加”;一个文本框,名称为Textl。程序运行前,文本框的编辑区为空白;一个列表框,名称为Listl。 在文本框中输入文本,若单击“添加”按钮

admin2009-03-26  34

问题 在考生文件夹下有一个工程文件sj5.vbp,其窗体上有一个命令按钮,名称为Commandl,标题为“添加”;一个文本框,名称为Textl。程序运行前,文本框的编辑区为空白;一个列表框,名称为Listl。   
    在文本框中输入文本,若单击“添加”按钮,文本框中的文本被作为一个列表项被加入到列表框中,清空Textl,同时“添加”按钮变为无效;若在Textl输入内容,则使“添加”按钮变为有效,双击Listl中的某一项则删除该项。程序运行时的窗体界面如图56—5所示。

    要求:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性,最后把修改后的文件以原来的文件名存盘。

选项

答案本题主要考查通过代码设置控件属性及简单事件编程。 列表框的Addhem和Removehem方法,用来在运行期间改变列表框的内容。Addhem方法用来在列表框中插入一行文本,其格式为:列表框.Addhem项目字符串[索引值]。“索引值”可以指定插入项在列表框中的位置,表中的项目从0开始计数。如果省略“索引值”,则文本被放在列表框的尾部。这一方法只能单个地向表中添加项目。 Removeltem方法用来删除列表框中指定的项目,格式为:列表框.Removehem索引值,这一方法每次只能删除一个项巨。补充后的代码如下: Private Sub Commandl_Click() Listl.Addhcm Textl.Text ’添加项 Textl.Text="" Commandl.Enabled=False End Sub Private Sub Listl_DblClick() Listl.Removehem Listl.ListIndex’删除选中项 End Sub Private Sub Textl_Change() If Textl.Text=""Then’查看Textl中是否有内容 Commandl.Enabled=False ’无则禁用Command Else Commandl.Enabled=True’有则启用Command End If End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)