以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:路径选择窗口做法(问题已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6444)

--  作者:migold
--  发布时间:2010/4/3 10:59:00
--  求助:路径选择窗口做法(问题已解决)

图片点击可在新窗口打开查看此主题相关图片如下:路径选择.jpg
图片点击可在新窗口打开查看
如图:求助代码与做法
[此贴子已经被作者于2010-4-3 16:05:59编辑过]

--  作者:yangming
--  发布时间:2010/4/3 11:29:00
--  

看帮助文件此段

OpenFileDialog

打开文件对话框。

属性

  • Title

    对话框标题
     
  • InitialDirectory

    打开对话框时,最初显示的目录。
     
  • FileName

    在对话框中选定的文件名。 
     
  • Filter

    设置文件名筛选器。筛选器用符号“|”分为两个部分,前面是筛选器说明,后面是筛选器模式。
    例如要选择文本文件,可设为:
    文本文件|*.txt
    一个筛选器可以包括多个筛选模式,不同的模式之间用分号隔开,例如:
    图形文件|*.bmp;*.jpg;*.gif
    可以同时设置多个过滤器,用符号“|”隔开即可,例如:
    Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb

方法

  • ShowDialog

    显示打开文件对话框。Show的返回值是DialogResult型枚举,如果用户单击的是确定按钮,则返回DialogResult.OK,如果单击的是“取消”按钮,则返回DialogResult.Cancel。

示例

请将下面的代码复制到命令窗口执行:

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter=
"Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If
dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show(
"你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End
If



--  作者:migold
--  发布时间:2010/4/3 16:04:00
--  
我在帮助中找到
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then

End If
根本上解决了,谢谢2楼楼主