clwn.net
当前位置:首页 >> [VB] 怎样让CommonDiAlog控件打开文件夹 >>

[VB] 怎样让CommonDiAlog控件打开文件夹

commondialog只是一个可视化的定义文件路径的控件当你用commondialog找到并确定了这个文件后返回给控件的是一个文件路径你需要用其他的代码或者控件来打开或使用修改这个被找到的文件文件的路径被返回在commondialog.FileName里打个比方,比如你找到一个文件:D:\1.mp3那么,如果你想打开播放这个文件,commondialog是不能完成的它只能完成对这个文件路径的定位如果你想播放,还需要添加其他代码来实现

用API吧,如下,可以选择文件夹并返回路径'单击command3,用WINDOWS API 函数浏览文件夹并返回路径到text2Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As LongPrivate Declare Function

commondialog1.Filter = "文本文件(.txt)|*.txt"Filter属性是commondialog控件打开文件类型的过滤,可以是一种,也可以是多种:commondialog1.Filter = "文本文件(.txt)|*.txt|Word文件(.doc)|*.doc|Jpg文件(.jpg)|*.jpg"

添加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只能用来获取文件名你可以用 open "d:\1.txt" for input as #1的方式来获取d:\1.txt的数据进入1缓冲区 然后用text去获取缓冲区的数据就OK了

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

你好!我这里显示没问题啊,是全部路径,是不是你的TEXT太短了?拉长点试试 那就不知道了,我这里显示一切正常,是完整路径 如果对你有帮助,望采纳.

Private Sub Command1_Click() CommonDialog1.ShowOpen WindowsMediaPlayer1.URL = CommonDialog1.FileName End Sub 添加CommonDialog控件 和 WindowsMediaPlayer 代码如上

显示文件:就是打开文件?打开文件=控件名.ShowOpen保存文件=控件名.ShowSave

好象不可以,那个好象要用到api

网站首页 | 网站地图
All rights reserved Powered by www.clwn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com