VB备忘录（12） 通用对话框

对话框有：

1、inputbox

2、msgbox

3、通用通话框

通用通话框

部件：microsoft common dialog control 6.0

分为五种：

打开showopen

另存为 showsave

颜色 showcolor

字体 showfont

打印 showprinter

帮助 showhelp

注意： msgbox popupmenu showopen它们都有“挂起特征”，即对本过程以下的代码有静止作用，直到响应完毕。

来一个实验看一下三个不同。

添加一个计时器，在这三个弹出时的效果看一下，响应时，另一个过程的计时器是否仍然运行：

可以看到上面三种情况时，对于其它过程，只有PoppupMenu允许其它继续运行，而msgbox和commondialog却使其挂起，静止。

showopen的属性中：

filter过滤文件

filename 当点击相关文件后会返回文件名值（含路径），若点取消则返回空串。

多选

用flags标志来进行选择。

多选文件时，多个文件之间用的是空格进行分隔。这样就遇到一个问题，有些文件名中间也有空格，产生了干扰，怎么办呢？

还有一个cdlOFNExplore进行组合。这样组合选择后的结果就是，分隔符不是空格，而是空字符。

空字符： ASC码为0的字符。chr(0)

下面进行多个字符的选择，专门选择其中一个含有空格的文件名：

Private Sub Command1_Click()
    Dim s As String,a As Variant,i As Integer
    CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
    CommonDialog1.ShowOpen
    s = CommonDialog1.FileName
    a = Split(s,Chr(0))
    For i = 0 To UBound(a)
        List1.AddItem a(i)
    Next i
End Sub

另一个值得注意的是，showfont须设置flags，否则提示“没有安装字体，请从控制面板进行安装”

有两个可选择：

cdlCFBoth 屏幕和打印字体

cdlCFPrinterFonts 打印字体

cdlCFScreenFonts 屏幕字体

即：

commondialog1.flags=cdlCFprinterFonts ' 也可为cdlCFboth或cdlCFScreenFonts

commondialog1.showfont

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!