(1)在名称为Froml的窗体上放置一个名称为Drivel的驱动列表框控件、一个名称为Dir1的目录列表框控件和一个名称为Filel的文件列表框控件。程序运行时,可以对系统中的文件进行浏览。程序运行时的窗体界面如图58—1所示。 注意:程序中不得使

admin2010-07-13  17

问题 (1)在名称为Froml的窗体上放置一个名称为Drivel的驱动列表框控件、一个名称为Dir1的目录列表框控件和一个名称为Filel的文件列表框控件。程序运行时,可以对系统中的文件进行浏览。程序运行时的窗体界面如图58—1所示。
    注意:程序中不得使用任何变量;保存时必须存放在考生文件夹下,窗体文件名为sjl.frm,工程文件名为sjl.vbp。
    (2)在名称为Forml的窗体上画一个命令按钮,名称为Commandl、标题为“无效”,请编写适当的事件过程,使得在运行时,如果单击命令按钮,则Textl文本框变为无效(即不可用),双击窗体,该文本框变为有效(即可用)。程序中不得使用任何变量。程序运行的效果如图58—2所示。

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

选项

答案 (1)根据题意,新建“标准EXE”工程,将一个驱动器列表框控件、一个目录列表框控件和一个文件列表框控件添加到窗体中,驱动器列表框的名称为Drivel,目录列表框的名称为Dirl,文件列表框的名称为Filel。双击Drivel进入代码窗口,编写如下代码: Private Sub Dirl_Change() Filel.Path=Dirl.Path’将Filel与Dirl关联起来 End Sub Private Sub Dirl_Click() Filel.Path=Dirl.Path’将Filel与Dirl关联起来 End Sub Private Sub Drivel_Change() Dirl.Path=Drivel.Drive’将Dirl与Drivel关联起来 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,新建“标准EXE”工程,将一个文本框控件和一个命令按钮添加到窗体中,文本框的名称为Textl,命令按钮的名称为Commandl、Caption属性为“无效”,设置完成后双击Commandl进入代码窗口,编写如下代码: Private Sub Commandl_Click() Textl.Enabled=False’将Textl变为不可用 End Sub Private Sub Form_DblClick() Textl.Enabled=True’双击窗El将Textl变为可用 End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)