您的位置：程序门 -> .net技术 -> vb.net

如何点击按钮出现浏览文件的窗口

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何点击按钮出现浏览文件的窗口

发表于：2007-09-27 19:08:16 楼主

就是我们平时用软件的时候要打开文件,会弹出的包括文件名,文件类型,以及查找范围啊这样的窗口

发表于：2007-09-27 19:10:551楼得分:0

file控件

发表于：2007-09-27 20:04:432楼得分:0

openfiledialog和savefiledialog

发表于：2007-09-28 13:24:073楼得分:0

openfiledialog和savefiledialog
过滤filter

发表于：2007-09-28 15:07:234楼得分:0

private sub button1_click（byval sender as system.object, byval e as system.eventargs) handles button1.click
openfiledialog1.showdialog（)
end sub

发表于：2007-09-28 15:57:555楼得分:0

private sub btnbrowse_click（byval sender as object, byval e as system.eventargs) handles btnbrowse.click
dim openfiledialog as openfiledialog = new openfiledialog

with openfiledialog
.defaultext = ".jpg "
.checkfileexists = true
.multiselect = false
.filter = "image files（*.bmp,*.jpg,*.ico,*.gif) ¦*.bmp;*.jpg;*.ico;*.gif "
.title = "请选择一个图片格式的文件 "
.showreadonly = false
.showhelp = false
end with

if openfiledialog.showdialog = windows.forms.dialogresult.ok then
dim bkimg as image = new bitmap（openfiledialog.filename)
end if
end sub

发表于：2007-09-28 16:25:346楼得分:0

先在窗体上添加openfiledialog控件，按钮事件如下：
private sub btnbrowse_click（byval sender as object, byval e as system.eventargs) handles btnbrowse.click
dim opfile as new openfiledialog
try
with opfile
' 有关属性默认值的解释，
' 请参见 btnretrivefilenames_click。

' 检查以确保选择的文件存在。否则对话框显示
' 一个警告。
.checkfileexists = false
' 检查以确保选择的路径存在。否则对话框显示
' 一个警告。
.checkpathexists = false

' 获取或设置默认扩展名。不包括前面的“.”。
.defaultext = "jpg "

' 是否返回链接引用的文件？如果为 false，则仅返回选择的链接
' 文件。如果为 true，则返回链接到 lnk 文件的文件。
.dereferencelinks = false

' 与在 vb6 中完全一样，使用一组筛选器对，中间用“ ¦”隔开。
' 每个筛选器对均由一个“说明 ¦文件规范”组成。各个筛选器对
' 之间使用“ ¦”隔开。不需要在结尾使用“ ¦”。也可以设置 filterindex 属性，以选择默认
' 筛选器。第一个筛选器的编号为 1（而不是 0）。默认值为 1。
.filter = _
"位图（*.bmp;*.dib) ¦*.bmp;*dib ¦jepg （*.jpg) ¦*.jpg ¦gif （*.gif) ¦*.gif ¦所有文件 ¦*.* "

.multiselect = false

' 是否在选择文件时还原原始
' 目录？如果为 false，则当前目录
' 更改为在其中选择文件的目录。
' 将其设置为 true 可将当前文件夹
' 放置在开始时该文件夹所在的位置。
' 默认值为 false。
.restoredirectory = true

' 是否显示“help”（帮助）按钮和“read-only”（只读）复选框？
.showhelp = true
.showreadonly = false

' 是否在选中“read-only”（只读）复选框的情况下开始？
' 这仅在 showreadonly 为 true 时有效。
.readonlychecked = false

.title = "选择图片 "

' 是否仅接受有效的 win32 文件名？
.validatenames = true
if .showdialog = windows.forms.dialogresult.ok then
try
dim ma_picname as string = my.computer.filesystem.getfileinfo（.filename).name
catch fileexception as exception
throw fileexception
end try
end if
end with
catch ex as exception
msgbox（ex.message, msgboxstyle.exclamation, me.text)
end try
end sub

其他资讯