社区
控件
帖子详情
VB 中怎么改变图片文件的大小
hzic9527
2007-07-26 05:22:29
求解:VB 中怎么改变图片文件的大小,不仅仅是达到显示时图片大小改变,还想要把文件属性(占用空间)的大小改变。目的是为了保存到数据库时提高交互速度。
...全文
1312
9
打赏
收藏
VB 中怎么改变图片文件的大小
求解:VB 中怎么改变图片文件的大小,不仅仅是达到显示时图片大小改变,还想要把文件属性(占用空间)的大小改变。目的是为了保存到数据库时提高交互速度。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
熊孩子开学喽
2007-07-31
打赏
举报
回复
一个客户端上传后,其他客户端也能看到了,不能只保存路径啊...
-----------------------------------------------------------
当然可以只保存路径,图片上载到服务器的路径,数据库中保存这个服务器路径就可以了。其他用户刷新记录后读取这个路径,也可以访问这个图片。
用户提交的可以是一个动作,也可以是多个动作,只要保持图片文件路径和数据库记录两者之间的关联,你的程序就不会乱套。并且因为数据库和图片是在同一个服务器上,使用直接路径和相对路径都可以找到图片,当然,为了节约服务器空间,可以限制上传的文件大小。
图片都往数据库里扔,数据库容量会飞速上长,而维护文件系统要比维护数据库系统简单得多,从维护角度来说也应该保存路径,而不是图片数据。
嗷嗷叫的老马
2007-07-31
打赏
举报
回复
添加两个图片框,PIC1,PIC2
PIC1里载入图片,设置AutoSize=True
然后调整好PIC2的大小,为你需要的大小....
接着.......
Private Sub Command1_Click()
With Pic2
.PaintPicture Pic1.Picture, 0, 0, .Width, .Height
Set .Picture = .Image
End With
SavePicture Pic2.Picture, "D:\123.bmp"
End Sub
只要调整好PIC2的大小,就行了.....
zhangle861010
2007-07-31
打赏
举报
回复
顶一下~!
学习中.....
lanman
2007-07-30
打赏
举报
回复
关注,我也有这方面的需求,现在初步准备不存数据库了。
laviewpbt
2007-07-27
打赏
举报
回复
改变图片文件的大小就要改格式,但是向前面有人提问说一定要改到300KB,那是不太科学和可能的。
Tiger_Zhao
2007-07-27
打赏
举报
回复
同意 cqq_chen(我是谁) ,将图片存放在指定的共享路径下可以大大提高性能。
hzic9527
2007-07-27
打赏
举报
回复
那我是多个客户端访问的,一个客户端上传后,其他客户端也能看到了,不能只保存路径啊,现在偶想了个办法,在保存前调用WINRAR把图片进行压缩,打开时进行解压缩。不过这样的话客户一定要装个WINRAR了。
cqq_chen
2007-07-26
打赏
举报
回复
存到数据库时提高交互速度。==>何不只存放路径呢?这种最快。
fxy_2002
2007-07-26
打赏
举报
回复
如果是 jpg,参考:
http://community.csdn.net/Expert/topic/5672/5672928.xml?temp=.48193
如果是其它图片,要改变大小只能缩放它的象素,比较麻烦。
VB
6运行时控件移动 右下角拖动
大小
有虚线框显示
VB
6运行时控件移动 右下角拖动
大小
有虚线框显示,有工程
文件
Vb
6四十多条新手制作或业余爱好者必看的
里面所含的内容有: 1、
vb
6MDPlay重复播放.txt 2、
vb
6MsgBox消息窗口.txt 3、
vb
6text自动换行.txt 4、
vb
6保存(读取)数据到注册表里.txt 5、
vb
6背景色透明.txt 6、
vb
6打开任意类型的
文件
.txt 7、
vb
6打开网页.txt 8、
vb
6单击按钮复制文本框内的内容.txt 9、
vb
6单击按钮最小化窗体.txt 10、
vb
6点击最大化最小化和关闭(有上角的)触发什么事件.txt 11、
vb
6调用API函数模拟按下Alt键.txt 12、
vb
6读写txt内容.txt 13、
vb
6根据MDPlay设计进度框.txt 14、
vb
6后台发送邮件.txt 15、
vb
6获取鼠标当前位置.txt 16、
vb
6检测程序是否运行.txt 17、
vb
6检测键盘的输入.txt 18、
vb
6检测
文件
是否存在.txt 19、
vb
6进度条的使用A.txt 20、
vb
6进度条的使用B.txt 21、
vb
6禁止
改变
窗口
大小
(允许最大化和最小化).txt 22、
vb
6模拟按键.txt 23、
vb
6模拟键盘输入的N种方法.txt 24、
vb
6判断鼠标左键被按下.txt 25、
vb
6屏幕任意截图.txt 26、
vb
6全局键盘钩子.txt 27、
Vb
6如何注册OCX控件.txt 28、
vb
6什么是键盘虚拟键?.txt 29、
vb
6使控件
大小
随窗体的变化而变化.txt 30、
vb
6使用ShellExecute调用RAR进行解压.txt 31、
vb
6释放资源
文件
.txt 32、
vb
6提取包含特定字符的行的内容.txt 33、
vb
6托盘+气泡(不用模块).txt 34、
vb
6拖动text文本框.txt 35、
vb
6拖动没有标题栏的窗口.txt 36、
vb
6信息收发软件的制作.txt 37、
vb
6循环整数的运用.txt 38、
vb
6用MDPlay播放音乐.txt 39、
vb
6用代码解压缩rar
文件
.txt 40、
vb
6用代码添加资源
文件
.txt 41、
vb
6在程序
中
调用资源
文件
.txt 42、
vb
6在数据库
中
保存变量.txt 43、
vb
6怎么生成不带引号的字符.txt 44、
vb
6制作时钟(时针、分针、秒针).txt 45、
vb
6
中
的text
中
输入的内容存为txt文本.txt 46、
vb
6
中
多个简单的命令.txt 47、
vb
6
中
怎样加载背景
图片
,能随窗体
大小
变化? .txt 以上内容纯属作者本人整理,内容的可靠性也经本作者亲手证实,请放心使用,珍惜作者的劳动成果。
VB
以拖动
文件
打开
文件
的示例.rar
VB
以拖动
文件
打开
文件
的示例,看到不少程序有这种效果,甚至现在WEB上也有这种效果了,记的QQ邮箱里就有拖动
文件
到指定区域添加附加的功能,本程序基于
VB
源码实现,将
文件
拖放到窗口区域内,窗口随着Picture控件自动
改变
大小
,即可打开一张
图片
显示在窗口
中
。
vb
提取查看thumbs.db
文件
中
的图像内容.rar
vb
提取查看thumbs.db
文件
中
的图像内容,
VB
6.0编写开发的Windows XP缩略图缓存
文件
查看提取工具,把有
图片
的
文件
夹
中
的Thumbs.db拖到下面的列表框
中
(在资源管理器的
文件
夹选项设置
中
要取消“隐藏受保护的系统
文件
(推荐)”,才可以看到XP的缓存缩略图
文件
Thumbs.db)。 实现原理部分需要说明的是:PSC原作者使用String类型来读取,这可能是英文操作系统上可以运行,但是在
中
文操作系统是错误的,在用 Preserve 关键字时,只能
改变
多维数组
中
最后一维的上界;所以,第1维存放数据,范围就是0(缩略图Jpg
大小
最大不会超过5KB),第2维根据项目的个数来表示的编号但是不能直接使用数组的形式来返回,必须用传址的方式返回 还有一种方法,是记录每个
图片
文件
项目的差异的偏移,及插入的非jpg数据块的大校 因为没有Thumbs.db的详细
文件
格式资料,无法获取
文件
的个数现在这个版本有一个问题,会有些
文件
看不到,因为查看
文件
内容发现,
中
间有些Jpg
文件
很短,只有几百字节,与
文件
数据前的
文件
大小
不符合,这样就会跳过一个
文件
,导致漏掉
文件
。 增加一个判断,每找到一个标志,跳过
文件
长度时,先判断该长度的
文件
尾是不是Jpg的
文件
尾标志,如果不是则从之前的位置继续搜索。一种情况:就是4位字节
文件
大小
的值,小于实际的
文件
大小
值,这就需要搜索修正在Thumbs.db
文件
里找到了全部对应
文件
的
文件
名,是用Unicode字符存储在里面的,有的是单独的一个,有的是几个连续一起。
VB
调用VC编写的DLL 实现
图片
360旋转源码.rar
VB
通过调用DLL实现
图片
实时旋转,可360度旋转,掩码色
改变
,甚至可以调整
图片
透明度、亮度、色相、饱和度、
大小
缩放等
图片
常用的值。程序很好的解决了GetDC引起内存泄露问题,兼容Win98至Win7环境。Dll
文件
由VC生成,压缩包内附有VC源程序。 部分代码释义: aHDC : 目标设备上下文 (.hdc picturebox 需要设 scalemode=pixels 和 autoredraw=true) Angle : 旋转角度值 (360 度 = 2*pi) X : 目标 X 坐标 Y : 目标 Y 坐标 W : 原始
图片
宽度 H : 原始
图片
高度 PicDC: 原始
图片
设备上下文 (.hdc picturebox 需要设 scalemode=pixels 和 autoredraw=true) SrcX: 原目标左上角矩形 X坐标 (从哪个位置复制. 复制位图局部时有用) SrcY: 原目标左上角矩形 Y坐标 pScale :
图片
缩放值(用1为100%,0.5为50%,2为200%等) TraspColor : 整数(3字节)表达RGB值的透明色 Alpha : 0 和 1 用来表示是否透明 Hue : 图像色调偏移量(色调就像光的波长的颜色) Sat : 饱和度 Lum :亮度
控件
1,451
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章