我安装的VB怎么没有通用对话框?哪里去了?部件里没!难道是精简版的缘故?

2024-11-17 07:45:05
推荐回答(3个)
回答1:

按照你说的部件里没,那就是精简版的缘故,解决办法:
1.下载控件"comdlg32.ocx"
2.用代码直接调用系统动态链接库,比如下面的代码
Dim f, s: s = String(260, Chr(0))
Set f = CreateObject("MSComDlg.CommonDialog")
With f
.Flags = &H4
.MaxFileSize = 260
.InitDir = "g:\"
.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt"
.FilterIndex = 2
'.DefaultExt = .Filter
.ShowSave
s = .FileName
End With
If s <> "" Then Label1.Caption = s
Set f = Nothing

回答2:

你可以打开程序-然后在“文件”“新建工程”里面,就可以找到,出现这样的情况可能是你运用第一次程序的时候点击了下“次不在提示”。

回答3:

需要添加勾选的部件才能使用通用对话框