computer 版 (精华区)

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:如何用程序控制CommandDlg控件，使它可以选取一组
发信站: 听涛站 (Fri Mar 10 19:09:19 2000), 转信

CommandDlg是VB5提供的控件，可用于文件名的获取，经常被用于打开文件/保存文件/另
存挝 件等操作，以获得用户输入的文件名。不过CommandDlg缺省的状态下只能读取一个
文件名。因此，我们通过设置CommandDlg的一个属性Flags来达到获取一组文件名的目的
。程序段如下：
Function GetMultiFileName() As String
On Error Resume Next
'初始化文件路径
CommandDlg1.Filter = "图片文件[*.BMP]|*.BMP"
CommandDlg1.Filename = "" '初始化文件名
CommandDlg1.DialogTitle = "请选择图片文件名"
CommandDlg1.FLAGS = cdlOFNAllowMultiselect
CommandDlg1.FLAGS = cdlOFNAllowMultiselect
CommandDlg1.Action = 1 '调用 WINDOWS 文件操作功能
If Err <> vbCancel Then '如果不是选择取消（CANCEL）
GetMultiFileName = CommandDlg1..Filename
Else
GetMultiFileName =""
End If
Debug.Print "选择结果是："+GetMultiFileName
End Function


--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。