Question

VB6.0，怎么画出通用对话框？

题目是这样的：在窗体上画一个名称为CD1的通用对话框，通过属性窗口设置CD1的初始路径为C:\,默认的文件名为None

我从部件里添加了通用对话框，然后旁边多出来这几个选项，可是到底怎么画？怎么设置初始路径？求高人详细指点！

Answer 1

1、打开易语言，选择“新建Windows窗口程序”。

2、在基本组件栏里拖拽编辑框、按钮和通用对话框到程序中。

3、单击选中通用对话框，在左边的属性栏中看到“过滤器”一栏，我们按图片上的要求输入文本。

4、输入以下代码：如果真 (通用对话框1.打开 ())，编辑框1.内容 ＝ 通用对话框1.文件名。

5、就可以猛戳工具栏中的“运行”按钮。

6、可以把这个小程序改成很多软件，如播放器。改完了如果想保存这个软件，可以点编译。

Answer 2

VB6.0使用通用对话框需要在工具栏添加部件，如下所示：

添加Microsoft Common Dialog后工具栏上就会显示通用对话框图标，如下所示：

然后选择通用对话框，在窗口中拖放，如下所示：

再通过属性窗口设置相应属性即可，如下所示：

添加命令按钮，添加测试代码：

Private Sub Command1_Click()
    CD1.ShowOpen
End Sub

打开通话框后，运行效果如下：

Answer 3

通用对话框不是这个

部件里是Microsoft Common Dialog 注意是Dialog不是Common Controls

勾选之后只会多出来一个控件，拖到窗体上命名为cd
然后如果要弹出保存并显示用户选择的路径就是
cd.showsave
msgbox cd.filename

如果要弹出颜色就是cd.showcolor

设置标题啊什么的也都在cd的属性里面可以设置的 比如dialogTitle就是标题
filter就是过滤器

追问

突然发现我的是精简版的，没有Microsoft Common Dialog ...
请问可以提供一个与win7兼容的VB6中文版下载地址吗，我的是win7，企业版没法用...

追答

企业版完全可以用没有任何兼容问题，你无视它的兼容性警告就OK了。
【它有一个步骤会检查已安装软件，这个步骤如果你磁盘很大的话会检查很长时间没办法】

Windows 7 x86，Windows 7 x64均没有问题。

Answer 4

在右侧的工程管理窗中点右键，选“添加－添加窗体”在打开的“添加窗体对话框”中，选择“对话框”，点打开就可以了

Answer 5

你没加对，这些都不是，正确的应该是添加部件：Microsoft Common Dialog Control 6.0