www.ymjm.net > VB CommonDiAlog如何才能选择一个文件夹,返回其路...

VB CommonDiAlog如何才能选择一个文件夹,返回其路...

做了一例,仅供参考.朋友.Private Sub Form_Load()ShowMe.AutoRedraw = TrueCommonDialog1.ShowOpen'注意:在打开时要选择到文件,下面的过程会自动获取你要的文件夹路径s = CommonDialog1.FileNames = StrReverse(s)n = InStr(s, "\")s = Mid(s, n + 1)s = StrReverse(s)Print sEnd Sub

hwnd代表一个窗口的句柄,在这儿表示调用浏览文件夹的窗体的句柄.如果在VB的窗体中使用,可以将窗体的句柄传给它.而在模块、类模块或者VBA中可以用0来代替.

CommonDialog1.InitDir = App.path & "\" '默认打开文件路径 满意采纳哈.

vb6.0使用commondialog 控件弹出对话框选择文件路径.通过使用 commondialog 控件的 showopen 和 showsave 方法可显示“打开”和“另存为”对话框.两个对话框均可用以指定驱动器,目录,文件扩展名和文件名.除对话的标题不同外,

Private Sub Command1_Click() CommonDialog1.ShowOpen Text1 = CommonDialog1.FileName End Sub

VB的通用对话框通过Filter 属性筛选用户所需的文件类型,再用Instr函数读取CommonDialog 控件获得FileName 属性取得的路径和文件名的逗号(.)位置.用Mid函数取出文件的扩展名获知所读取文件的类型.Filter 属性(公共对话框),返回

就是要把 Text1中指定的目录,设置为公共对话框的初始目录?这样就行(必须指定“有效的目录”,才会有作用) CommonDialog1.InitDir = Text1.Text CommonDialog1.ShowOpen

工具箱默认没有common dialog control,需要通过“工具”--“部件”中的“控件”标签,选中“microsoft common dialog control 6.0“,才能让common dialog control控件显示在工具箱中.然后点击此控件按钮,在窗体上拖放一个common

添加commondialog1、label1 CommonDialog1.Filter = "All files (*.*)|*.*" '默认打开文件类型 CommonDialog1.FilterIndex = 1 CommonDialog1.InitDir = App.path & "\" '默认打开文件路径 CommonDialog1.Filename = "" '默认打开的文件名 CommonDialog1.CancelError = False CommonDialog1.ShowOpen lable1.Caption = CommonDialog1.FileName

在窗体上添加 CommonDialog 外再添两个按钮和一个文本框,把下列代码粘贴过去即可.说明:按钮1带参数【1】调用过程【mSelectOrSave】,实现选择指定路径下的文件功能; 按钮2带参数【2】调用过程【mSelectOrSave】,实现将信息

友情链接:bycj.net | qimiaodingzhi.net | hbqpy.net | lyxs.net | zhnq.net | 网站地图

All rights reserved Powered by www.ymjm.net

copyright ©right 2010-2021。
www.ymjm.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com