您的位置：程序门 -> vb -> 控件

求一个commondialog的写法,怎么保存文件不完整

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

求一个commondialog的写法,怎么保存文件不完整

发表于：2007-09-15 23:01:19 楼主

'打开文件
private sub command1_click（)
'commondialog1.dialogtitle = " "
'commondialog1.initdir = "c:\ "
commondialog1.filter = "jpg（*.jpg) ¦*.jpg ¦bmp（*.bmp) ¦*.bmp "
'commondialog1.filename = " "
commondialog1.showopen
open commondialog1.filename for input as #1
text1.text = commondialog1.filename
close #1

if commondialog1.filename <> " " then
text1.text = commondialog1.filename
end if

end sub

'保存文件
private sub command2_click（)
'on error goto connerror
commondialog1.filter = "jpg（*.jpg) ¦*.jpg ¦bmp（*.bmp) ¦*.bmp "
commondialog1.showsave
aa = commondialog1.filename
if aa <> " " then
open aa for output as #1
print #1, text1.text
close 1
end if
'connerror
end sub

我用上面两个方法打开,保存文件的时候发现无法保存文件,发现保存图片的时候文件比原来小,图片无法打开,保存其他文件的时候内容没保存出去,不知道那里出错,调试也看不到错误问题,大家帮我看看,我是新手,搞不懂

发表于：2007-09-16 13:48:211楼得分:0

读写文件跟commondialog没有关系，commondialog只是将用户输入的文件名返回。检查你读写文件的代码。

发表于：2007-09-16 18:57:222楼得分:0

汗一个

图片文件能用读取文本的读取保存吗？

发表于：2007-09-16 22:32:323楼得分:0

'要保存图片,要用二进制读写.

'打开文件
dim pic（) as byte
private sub command1_click（)
'commondialog1.dialogtitle = " "
'commondialog1.initdir = "c:\ "
commondialog1.filter = "jpg（*.jpg) ¦*.jpg ¦bmp（*.bmp) ¦*.bmp "
'commondialog1.filename = " "
commondialog1.showopen
dim l as long, filepath as string
filepath = commondialog1.filename
l = filelen（filepath)
redim pic（l - 1)
open filepath for binary as #1
get #1, , pic '图片文件存放在pic里
close #1
end sub

'保存文件
private sub command2_click（)
'on error goto connerror
commondialog1.filter = "jpg（*.jpg) ¦*.jpg ¦bmp（*.bmp) ¦*.bmp "
commondialog1.showsave
aa = commondialog1.filename
if aa <> " " then
open aa for binary as #1
put #1, , pic
close #1
end if
'connerror
end sub

下一篇：datalist刷新
上一篇：有用过安瑞尔短信开发控件（arrowersms.ocx)的朋友没啊？？？

其他资讯