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