VisualBasic60程序设计吴昌平第十章节幻灯片.pptVIP

【例10.11】设计一个如图10-17所示的“打开可执行文件”的管理界面。 其它控件属性均使用默认值。 程序如下： Dim fullName As String Private Sub Combo1_Click() File1.Pattern = Combo1.Text End Sub Private Sub Command1_Click() File1_DblClick End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Dir1_Change() Text1.Text = Dir1.Path File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Text1.Text = Drive1.Drive Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() If Right$(Dir1.Path, 1) = \ Then sep = Else sep = \ End If fullName = Dir1.Path + sep + File1.FileName Text1.Text = fullName End Sub Private Sub File1_DblClick() fid = Shell(fullName, 1) End Sub Private Sub Form_Load() Combo1.AddItem *.exe Combo1.AddItem *.com Combo1.AddItem *.bat End Sub 10.5 工具栏 工具栏为用户提供了对于应用程序中最常用的菜单命令的快速访问，进一步增强了应用程序的菜单界面，现在已成为Windows应用程序的标准功能。 在线教务辅导网： 更多课程配套课件资源请访问在线教务辅导网 馋死 PPT研究院 POWERPOINT ACADEMY * * * * 2．使用通用对话框的方法 在实际应用中，除了可以通过对通用对话框的Action属性设置明确对话框的类型外，还可以使用VB提供的一组方法来打开不同类型的通用对话框。这些方法如下。 ShowOpen：打开对话框。 ShowSave：另存为对话框。 ShowColor：颜色对话框。 ShowFont：字体对话框。 ShowPrinter：打印机对话框。 ShowHelp：帮助对话框。 如果在程序中有下面的语句： Commondialog1.ShowOpen 或 Commondialog1.Action = 1 在运行到上面的语句时，系统就会调出“打开”对话框。 10.2.2 “打开”对话框 在程序运行时，通用对话框的Action属性被设置为1，就立即弹出打开文件对话框（如图10-7所示）。打开文件对话框并不能真正打开一个文件，它仅仅提供一个打开文件的用户界面，供用户选择所要打开的文件，打开文件的具体工作还是要通过编程来完成。 对于“打开”文件对话框，主要有下面几项属性需要设置。 （1）对话框标题（DialogTitle）属性 （2）文件名称（FileName）属性 （3）FileTitle（文