2. 计算机
  3. 设计如图3-6所示的表单(列表框应用)：在文本框中输入内容，单击“确定”按钮加入到列表框中，对于重复内容，列表框中只列出一项。在列表框中选定项，该选项自动显示在另一个文本框中，选中的项目可删除。当未在列表框中选定项时，“删除”按钮和“全部清除”按钮不可用。

设计如图3-6所示的表单(列表框应用)：在文本框中输入内容，单击“确定”按钮加入到列表框中，对于重复内容，列表框中只列出一项。在列表框中选定项，该选项自动显示在另一个文本框中，选中的项目可删除。当未在列表框中选定项时，“删除”按钮和“全部清除”按钮不可用。

admin2009-02-15  70
问题 设计如图3-6所示的表单(列表框应用)：在文本框中输入内容，单击“确定”按钮加入到列表框中，对于重复内容，列表框中只列出一项。在列表框中选定项，该选项自动显示在另一个文本框中，选中的项目可删除。当未在列表框中选定项时，“删除”按钮和“全部清除”按钮不可用。
选项
答案操作步骤如下： ①在表单中创建2个“标签”控件、2个“文本框”、1个“列表框”控件和4个 “命令按钮”控件，并选择好位置和大小。 ②设置控件的字体和字号。 ⑧表单控件的主要属性见表3-2。 [*] ④添加列表框Listl的Click事件代码，该事件代码如下： for i=l to this.listcount if this.selected(i) thisform.text2.value=this.list(i) endif endfor thisform.command2.enabled=.t. ⑤添加“确定”按钮Command1的Click事件代码，该事件代码如下： thisform.listl.additem(alltrim(thisform.textl.value)) thisform.listl.refresh thisform.textl.value=" " thisform.textl.setfocus() thisform.command3.enabled=.t. thisform.command4.enabled=.t. ⑥添加“删除”按钮Command3的Click事件代码，该事件代码如下： for i=l to thisform.listl.listcount if thisform.listl.selected(i) tid=i endif endfor =messagebox ( "第"+str (tid, 2) +’已被选中’, 0+16+64, "删除") thisform.listl.removeitem(tid) =messagebox ("此条信息已被删除", 0+16+64, "确定" ) if thisform.listl.listcount=0 thisform.command3.enabled=.f. thisform.command4.enabled=.f. thisform.text2.value=’’ return endif if thisform.listl.listcount＞=tid thisform.listl.selected(tid)=.t. else thisform.listl.selected(thisform.listl.listcount)=.t. endif thisform.text2.value=thisform.listl.list(tid) thisform.listl.gotfocus() ⑦添加“全部清除”按钮Conunand4的Click事件代码，事件代码如下： for i=thisform.listl.listcount to 1 setp -1 thisform.listl.removeitem(i) endfor thisform.command3.enabled=.f. thisform.command4.enabled=.f. thisform.text2.value=’’ thisform.listl.refresh ⑧添加“退出”按钮Command5的Click事件代码，事件代码为； release thisform
解析
转载请注明原文地址:https://kaotiyun.com/show/tqKZ777K
本试题收录于： 二级VF题库NCRE全国计算机二级分类
0

二级VF

NCRE全国计算机二级

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