注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在名称为Form1的窗体上放置一个名称为Drive1的Drive ListBox控件

admin2009-02-25  30

问题 注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
   请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
   (1) 在名称为Form1的窗体上放置一个名称为Drive1的Drive ListBox控件,一个名称为Dir1的 DirListBox控件和一个名称为Filel的FileListBox控件。程序运行时,可以对系统中的文件进行浏览;当双击File1中的文件名时,用MsgBox显示文件名(不显示路径名)。如图16-1所示。
   注意:程序中不得使用任何变量;保存时必须存放在考生文件夹下,窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
   (2) 在名称为Form1的窗体上放置一个名为Text1的文本框控件和一个名为Timer1的计时器控件,程序运行后,文本框中显示的是当前的时间,而且每一秒文本框中所显示的时间都会随时间的变化而改变。
   注意:程序中不得使用任何变量;保存时必须存放在考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp,如图16-2所示。

选项

答案在窗体上建立好控件后,先设置控件属性,再编写事件过程。 文件系统控件有3种:驱动器列表框(DriveListBox),目录列表框(DirListBox)和文件列表框(FileListBox)。3个文件系统控件必须协调工作才能构成一个文件管理系统,当用户在驱动器列表框中选择一个新的列表框或在当目录列表框Path的属性改变都触发Change事件,将三者(利用本题中3个对象的名称)实现同步的代码为:File1.Path=Dir1.Path,Dir1.Path= Drive1.Drive。双击触发DblClick事件弹出MsgBox显示文件名,其格式为:MsgBox提示[,按钮][,标题]。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表16-1。 [*]   第二步:编写程序代码。   参考代码:     Option ExpliCit     Private Sub Dir1_Change()       File1.Path=Dir1.Path     End Sub     Private Sub Drive1_Change()       Dir1.Path=Drive1.Drive     End Sub     Private Sub File1_dblClick()       MsgBox Filel.FileName     End Sub     Private Sub Form_Load()      Dir1.Path=Drive1.Drive      File1.Path=Dir1.Path     End Sub   第三步:调试并运行程序。   第四步:按题目要求存盘。   (2)在窗体上建立好控件后,先设置控件的属性,再编写事件过程。   时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执行相应程序代码,其Interval属性决定时间间隔的长短,以毫秒为单位,所以要实现每一秒文本框的时间改变只要使该属性设置为1000即可,要使程序运行后取得当前时间可用Time函数取得,程序用到的Str函数将其中的内容转化为字符串。解题步骤:   第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表16-2。 [*] 第三步:调试并运行程序。 第四步:按题目要求存盘。

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

最新回复(0)