(1)在窗体上画一个列表框,名称为Listl,通过属性窗口向列表框中添加3个项目,分别为“Iternl”、“Item2”和“1tem3”。编写适当的事件过程。使程序运行后,如果双击。Form1空白处,则清空列表框中的内容。程序运行时窗体界面如图15一1、1

admin2010-07-13  25

问题 (1)在窗体上画一个列表框,名称为Listl,通过属性窗口向列表框中添加3个项目,分别为“Iternl”、“Item2”和“1tem3”。编写适当的事件过程。使程序运行后,如果双击。Form1空白处,则清空列表框中的内容。程序运行时窗体界面如图15一1、15—2所示。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sjl.vbp,窗体文件名为sjl.frm。
    (2)在窗体上画两个命令按钮,名称分别为Command1、Command2、标题分别为“启用”、“禁用”,一个名称为Textl的Text控件。请编写适当的事件过程,使得程序在运行时,单击“启用”按钮,Text1会变为有效,而当单击“禁用”命令按钮Textl变为无效。程序中不得使用任何变量,程序运行时的窗体界面如图15—3、15—4所示。

    注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。

选项

答案(1)列表框控件用于显示可供单一或多个选择的列表项,给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按“Ctrl+Enter”组合键换行再输入下一项),也可在程序运行时通过代码“列表框名.AddItem“项目”加入,清除窗体内容可通过Cls方法来实现。 根据题意,新建“标准EXE”工程,将一个List控件添加到窗体中,其名称为Listl,在属性窗VI的list属性中添加“heml”、“Item2”和“Item3”,每输入一个后按“Ctrl+Enter”组合键换行输入下一个元素,当输入完成后,按回车键,则元素添加完成,双击Forml的空白处,进入代码编写窗口,编写如下代码: Private Sub Form_DblClick() Dim i As Integer For i=Lstl.ListCount-1 To 0 Step-1 ’先删除索引大的项,防止i溢出 Listl.RemoveItem i’移除索引指定项 Next i End Sub 单击[*]按钮运行程序,并按要求保存。 (2)命令按钮(CommandButton)常用来建立实现某种命令,通过命令按钮的Caption属性设置其标题;控件是否有效由其Enabled属性来设置,值为True表示有效,值为False表示无效;单击命令按钮将触发其Click事件。 要实现程序运行时单击某个按钮使文本框变为无效,只需在编写该按钮的Click事件过程中修改文本框的Enabled属性值即可。 根据题意,新建“标准EXE”工程,将一个文本框控件和两个命令按钮添加到窗体中,文本框的名称为Textl,命令按钮的名称分别为Commandl和Command2,Caption属性分别为“启用”和“禁用”。双击Commandl进入代码窗口,编写如下代码: Private Sub Commandl_Click() Textl.Enabled=True ’启用Textl End Sub Private Sub Command2_Click() Textl.Enabled=False ’禁用Textl End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/Byg0FFFM
0

随机试题
最新回复(0)