www.ymjm.net > VB 关于CommonDiAlog1的文件名的问题

VB 关于CommonDiAlog1的文件名的问题

第一个问题:CommonDialog有个FILENAME属性,是获取选择的文件名的,如果点了取消,则为空,所以里面加一句:If CommonDialog1.FileName = "" Then MsgBox "请选择文件!"End If问题2、3:读文本文件,将相关姓名、成绩赋给

过滤文件类型,用 Filter 属性 CommonDialog1.Filter = "图像文件|*.jpg;*.gif;*.png;*.bmp|所有文件|*"

文件名是 commondialog1.filetitle commondialog1.filename 包括路径的

错误的是a,commondialog控件的showopen方法最终并不会打开任何文件,而是通过filename属性返回备选文件的完整路径及文件名

Private Sub Command1_Click() CommonDialog1.DialogTitle = "打开文件" CommonDialog1.Filter = "All Files(*.*)|*.*" CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer CommonDialog1.ShowOpen Dim p, s If Len(

如果打开commondialog,即使没有选择文件,点取消或打叉后commomdialog1.filename=""用另一个变量取文件名,判断再决定是否播放假如要播放的变量是 i, 先用 临时变量 j 取文件名j=commomdialog1.filenameif j"" then i=j

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

把date类型转换在字符型就可以了.

CommonDialog1.ShowSave '显示保存对话框If CommonDialog1.FileName <> "" Then '这个是为了避免点击取消还继续执行下面语句用的,先判断下有没选择保存路径If Dir(CommonDialog1.FileName) <> "" Then '搜索所保存的文件路径,

打开之前把文件名中的扩展名去掉:If CommonDialog1.FileTitle <> "" Then CommonDialog1.FileName = Split(CommonDialog1.FileTitle, ".")(0)

友情链接:ndxg.net | mcrm.net | | yydg.net | fpbl.net | 网站地图

All rights reserved Powered by www.ymjm.net

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