chetcn0948
CommonDialog:通用对话框对话框有:“打开”“颜色”“保存”“字体”“打印”“帮助”对话框,VB英文术语分别为“showopen”“showcolor”“showsave”“showprinter”“showhelp”朋友,一般的VB中没有这个对话框,你可以在“工程”中点击“部件”来添加对话框(Microsoft Common Dialog Control),接下来,在窗体中添加一个按钮控件和一个通用对话框,代码如下(方法2简便易学):方法1:Private Sub Command1_Click() CommonDialog1.Action =1End Sub方法2:Private Sub Command1_Click() CommonDialog1.ShowOpen ' 显示“打开”对话框End Sub
开心准新娘
CommonDialog控件画好后,共有6种方法:ShowColor '显示颜色对话框ShowFont '显示字体对话框ShowHelp '显示帮助ShowOpen '显示打开文件对话框ShowPrinter '显示打印机对话框ShowSave '显示保存对话框你可以逐一试试它们的作用。给你个例子:Private Sub Command1_Click()Dim R As StringCommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CommonDialog1.ShowSave '显示打开文件对话框R = CommonDialog1.FileNameOpen R For Output As #1Print #1, 122345CloseEnd Sub