教学产学研中心.pptVIP

3.编写程序的初始化代码 　　在窗体的设计阶段双击窗体，在窗体的form_load（）事件中添加下列代码： Private Sub Form_load() Drive1.enabled=true 　 Dir1.enabled=true File1.enabled=true 　　设置控件的有效状态 File1.pattern=*.exe　设置过滤器，使之只显示可执行文件 Drive1.drive=c:\ 　　设置控件的初始驱动器为C盘 End Sub 　　程序说明： 程序首先通过Drive1.enabled=true，Dir1.enabled=true，File1.enabled=true来设置控件的有效状态，然后设置文件的过滤器为＊.exe和控件的初始驱动器为c:\，这样只有在c盘下面的以＊.exe结尾的可执行文件才能够显示出来。 ;4.响应DriveListBox控件的Change事件 Private Sub Drive1_change() Dir1.path=Drive1.Drive 改变驱动器，使目录列表框中的内容跟着所选驱动器的变化而变化 End Sub 　　程序说明： 在程序的运行阶段，改变驱动器时，就会激活DriveListBox控件的Drive1_Change()事件，然后通过Dir1.path=Drive1.Drive来使DriveListBox控件显示改变驱动器