vb的两个图像处理问题,大侠请进

chensjun 2003-08-28 03:42:56
1、对于*.bmp的图像通过代码或控件转换成*.jpg或*gif。
2、在vb中对图像按任意比例进行缩放,并且能有方法看放大的图像的全部(可以用滚动调)move()方法完成不了全部的功能。
...全文
88 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
Greaitm 2003-08-29
  • 打赏
  • 举报
回复
你在PictureBox里再放Image就行了,这是通用的做法
yijiansong 2003-08-29
  • 打赏
  • 举报
回复
PictureBox1:容器,AUTOSIZE=FALSE
PictureBox2:加载图片,AUTOSIZE=TRUE,位于PictureBox1中

缩放:PictureBox2.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode
滚动:移动PictureBox2在 PictureBox1中的位置

OK
505 2003-08-29
  • 打赏
  • 举报
回复
先用StretchBlt放大,再用BitBlt平移

StretchBlt
Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

BitBlt
Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
说明
将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
hDestDC Long,目标设备场景
x,y Long,对目标DC中目标矩形左上角位置进行描述的那个点。用目标DC的逻辑坐标表示
nWidth,nHeight Long,欲传输图象的宽度和高度
hSrcDC Long,源设备场景。如光栅运算未指定源,则应设为0
xSrc,ySrc Long,对源DC中源矩形左上角位置进行描述的那个点。用源DC的逻辑坐标表示
dwRop Long,传输过程要执行的光栅运算
注解
在NT环境下,如在一次世界传输中要求在源设备场景中进行剪切或旋转处理,这个函数的执行会失败
如目标和源DC的映射关系要求矩形中像素的大小必须在传输过程中改变,那么这个函数会根据需要自动伸缩、旋转、折叠、或切断,以便完成最终的传输过程

chensjun 2003-08-28
  • 打赏
  • 举报
回复
to Greaitm
Image控件不行,在图形上我还要添加其他控件,只能用PictureBox
chensjun 2003-08-28
  • 打赏
  • 举报
回复
to Greaitm
是不是ijl10.dll我试了,无法引用。谢谢你!我的邮箱chensjun@163.com
qhdzh 2003-08-28
  • 打赏
  • 举报
回复
楼上的兄弟,怎样实现图像的放大与缩小?
Greaitm 2003-08-28
  • 打赏
  • 举报
回复
第一个我可以发个控件给你,第二个你用Image控件装图片,Strech设为true即可

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧