| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1498 人关注过本帖
标题:图片如何保存
只看楼主 加入收藏
老顽童989
Rank: 2
来 自:湖北武汉
等 级:论坛游民
威 望:1
帖 子:56
专家分:20
注 册:2011-5-19
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:5 
图片如何保存
我编写了一个小程序:再窗体中放如两个图片框 Picture1 和 Picture2.在图片1中调入一个图片,
 将picture1 中的图像分解成9张图像,然后将这9张图像转放到 Picture2 中。
    程序代码如下:
   Private Sub Form_Click()
    N = 400: M = 400: K = 0
    For I = 0 To 8: K = K + 1: g = I \ 3: b = I Mod 3
  Picture2.PaintPicture Picture1.Picture, b * N, g * M, M, N, b * 400, g * 400, 400, 400, &HCC0020
  Next I
   运行成功。现在的问题是我要将Picture2存储到本地目录中。因为现在 Picture2 的属性变成了
       Picture2.PaintPicture 属性,不能按原 Picture2 的属性保存了。敬请大侠赐教。
搜索更多相关主题的帖子: 属性 运行 保存 图像 图片 
2022-03-24 18:03
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1925
专家分:2992
注 册:2009-12-22
收藏
得分:4 
图片附件: 游客没有浏览图片的权限,请 登录注册

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-03-24 18:07
老顽童989
Rank: 2
来 自:湖北武汉
等 级:论坛游民
威 望:1
帖 子:56
专家分:20
注 册:2011-5-19
收藏
得分:0 
yuma 版主 出的是什么啊???

我喜欢编程
2022-03-26 19:19
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4938
专家分:30047
注 册:2008-10-15
收藏
得分:8 
以下代码测试成功

Picture2.AutoRedraw = True                  '开自动重绘,以便 image 对象有数据
Picture2.PaintPicture Picture1.Picture, 0, 0, , , , , , , vbSrcCopy       '复制图像过去,结果在 image 里,不在 Picture 里
SavePicture Picture2.Image, "d:\1.jpg"      '保存 image 里的图像

授人于鱼,不如授人于渔
早已停用QQ了
2022-03-26 19:35
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4938
专家分:30047
注 册:2008-10-15
收藏
得分:8 
注意我在  如何导出vb程序的图像文件 4楼里指出来的二个对象的区别。

这样理解吧!
对于能绘图的 控件,如 Picture、from 对象,VB6 在里面建了二个图层。
这二个图层分别是: Image 和 Picture ,位置是 Picture 在底层。
Picture 只接受载入的图像,当然也能扩展,这里暂不提。
Image  接受贴图,用户命令绘图,AutoRedraw 命令针对的就是这层的开关。
    AutoRedraw 为真时,会在内存里建立图层,否则只在显示缓冲区里建立显示。当没内存里没建立图层,所以刷新、清屏,覆盖都会导致重新显示时没有地方读数据导致空白。


授人于鱼,不如授人于渔
早已停用QQ了
2022-03-26 19:43
老顽童989
Rank: 2
来 自:湖北武汉
等 级:论坛游民
威 望:1
帖 子:56
专家分:20
注 册:2011-5-19
收藏
得分:0 
谢谢版主!!!

我喜欢编程
2022-03-27 18:57
快速回复:图片如何保存
数据加载中...
 
   



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

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