标题:[求助]怎样保存装载的图片?
只看楼主
tanghuawei
Rank: 4
来 自:美丽的湖南
等 级:业余侠客
威 望:3
帖 子:531
专家分:220
注 册:2006-3-16
结帖率:100%
 问题点数:0 回复次数:6 
[求助]怎样保存装载的图片?
请各位高手帮忙,我在应用程序中利用CommonDialog.filename打开文件,然后Picture1.picture = LoadPicture(filename),在Picture1中可以显示图片,但是当我关闭应用程序之后,图片就不见了,要怎样做才可以在下次打开时还可以看到原来的图片呢?
搜索更多相关主题的帖子: 装载 保存 
2006-10-07 11:09
学习VB才2天
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1653
专家分:0
注 册:2006-5-4
得分:0 

外接程序---外接程序管理器--------VB资源管理器
添加资源文件
编号 101
文件类型选择位图

保存资源文件 (就和窗体属性一样..)
picture1.picture =loadrespicture(101,vbbitmap)

保存文件 OK


[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]
2006-10-07 12:22
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\多图片显示\{BB0D8D25-E73F-44D2-9A78-6C478D55EF6C}0.jpg")
Open "d:\abc.txt" For Output As #1
Print #1, "D:\多图片显示\{BB0D8D25-E73F-44D2-9A78-6C478D55EF6C}0.jpg"
Close
End Sub

Private Sub Form_Load()
If (Dir("d:\abc.txt") <> "") Then
Open "d:\abc.txt" For Input As #1
Dim FileName As String
Line Input #1, FileName
Picture1.Picture = LoadPicture(Trim(FileName))
Close
End If
End Sub


我的msn: myfend@
2006-10-07 12:31
tanghuawei
Rank: 4
来 自:美丽的湖南
等 级:业余侠客
威 望:3
帖 子:531
专家分:220
注 册:2006-3-16
得分:0 
如果我要清除.txt里面的内容呢?要怎么做?

汽车尾气检测网络系统QQ:357766186__MSN:MSNTHW19850316@
2006-10-07 14:01
学习VB才2天
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1653
专家分:0
注 册:2006-5-4
得分:0 
text1.cls

[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]
2006-10-07 14:11
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
不知道楼上的.弄懂了没有...
Cls方法只能清除由Print,Line等画出来的东西.
先不要说经常把别人的问题搞错...
...连什么控件.有什么方法也弄错....有点误人子弟.

[此贴子已经被作者于2006-10-7 14:26:17编辑过]


我的msn: myfend@
2006-10-07 14:22
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
Open "d:\abc.txt" For Output As #1
Print #1, ""
Close

我的msn: myfend@
2006-10-07 14:25



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-94605-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.295311 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved