导航:首页 > 编程语言 > vb中图片放大缩小代码

vb中图片放大缩小代码

发布时间:2025-01-02 20:58:52

1. 求用vb编程,实现图片的缩小和放大的程序

粗劣的做了下~最简单的就是用image控件 先将Image1的Stretch 属性设置为 True
Private Sub Command1_Click()
Static a As Integer
Static b As Integer
a = a + 1
b = b + 1
Image1.Height = Image1.Height * a
Image1.Width = Image1.Width * b
End Sub

2. 求助:VB实现PICTUREBOX内图片的放大 缩小 移动 代码(类似ACDSEE)万分感谢!!!

控制图片的width(宽度)height(高度) 就可以实现了
比如放大吧
private sub max_click()
picture.width=picture.width*2
picture.height=picture.height*2
end sub
缩小的用除法就好了

移动可以试试用move方法。。。。。

3. VB中如何才能自动放大缩小图片填充到图片框中啊

实现代码:

VERSION 5.00

BeginVB.FormForm1

Caption="使用PictureBox控件实现图像放大和缩小"

ClientHeight=5580

ClientLeft=60

ClientTop=345

ClientWidth=7935

LinkTopic="Form1"

ScaleHeight=5580

ScaleWidth=7935

StartUpPosition=3'窗口缺省

BeginVB.PictureBoxPicture1

AutoRedraw=-1'True

AutoSize=-1'True

Height=3960

Left=-15

Picture="Form1.frx":0000

ScaleHeight=3900

ScaleWidth=6240

TabIndex=2

Top=15

Width=6300

End

BeginVB.CommandButtonCommand2

Caption="放大"

Height=360

Left=6540

TabIndex=1

Top=5070

Width=1140

End

BeginVB.CommandButtonCommand1

Caption="缩小"

Height=360

Left=5160

TabIndex=0

Top=5070

Width=1140

End

End

AttributeVB_Name="Form1"

AttributeVB_GlobalNameSpace=False

AttributeVB_Creatable=False

AttributeVB_PredeclaredId=True

AttributeVB_Exposed=False

DimiAsInteger

DimjAsInteger

PrivateSubCommand1_Click()

Picture1.Cls

i=i-100:j=j-100

Picture1.PaintPicturePicture1.Picture,0,0,i,j

Picture1.Width=i:Picture1.Height=j

EndSub

PrivateSubCommand2_Click()

Picture1.Cls

Picture1.Width=i:Picture1.Height=j

i=i+100:j=j+100

Picture1.PaintPicturePicture1.Picture,0,0,i,j

EndSub

PrivateSubForm_Load()

i=Picture1.Width:j=Picture1.Height

Picture1.Cls

EndSub

VB6.0通过PictureBox控件实现图片放大和图片缩小功能



(3)vb中图片放大缩小代码扩展阅读:

其它方法:

例子前请先下载Gdiplus.tlb,并将其放置到C:\Windows\System32中

Gdiplus.tlb下载

VisualBasiccode

使用Gdiplus.tlb,将其放到system32中,然后添加对其的引用

手动设置Form的AutoRedraw=True,ScaleMode=Pixels

OptionExplicit

DimlngGraphicsAsLong

DimlngImageHandleAsLong

DimlngTextureBrushAsLong

DimgpPAsGpStatus

DimlngPen1AsLong

DimlngTokenAsLong

PrivateSubCommand1_Click()

DimintPAsInteger

gpP=GdipCreateFromHDC(Me.hDC,lngGraphics)'创建绘图区域设备场景

gpP=GdipLoadImageFromFile(App.Path&"\启动.png",lngImageHandle)'读取图片到内存

gpP=GdipDrawImage(lngGraphics,lngImageHandle,0,0)'等大小绘制

gpP=GdipDrawImageRect(lngGraphics,lngImageHandle,200,0,300,300)'在指定的区域内绘制(放大或缩小)

gpP=GdipDrawImageRectRectI(lngGraphics,lngImageHandle,550,0,400,400,20,20,80,80,UnitPixel)'在400*400的区域内显示图片部分区域

gpP=GdipCreateTexture(lngImageHandle,WrapModeTile,lngTextureBrush)'设置一定排列方式的刷子平铺方式

gpP=GdipFillRectangle(lngGraphics,lngTextureBrush,0,300,400,300)'在指定区域内按指定的格式绘制图片

IflngGraphics<>

IflngImageHandle<>

IflngTextureBrush<>

Me.Refresh

EndSub

PrivateSubForm_Load()

DimbolPAsBoolean

WithMe

.Caption="GDIPlus范例"

.Width=960*15

.Height=720*15

.Left=(Screen.Width-.Width)*0.5

.Top=(Screen.Height-.Height)*0.5

EndWith

GpInput.GdiplusVersion=1

IflngToken=0ThenbolP=(GdiplusStartup(lngToken,GpInput)=Ok)

EndSub

4. 在VB中,如何实现图片的等比例放大或缩小

给你一个我原来做过的实例吧。imgPreview 为Image对象。

Private Type PreviewSize
sngLeft As Single
sngTop As Single
sngWidth As Single
sngHeight As Single
intZoon As Integer
End Type

Private muPreviewSize As PreviewSize
Private Const cmChangeSize = 1.2

'// 缩小
Private Sub Command1_Click()
With muPreviewSize
.intZoon = .intZoon - 1
.sngHeight = .sngHeight / cmChangeSize
.sngWidth = .sngWidth / cmChangeSize

imgPreview.Stretch = True
imgPreview.Move .sngLeft, .sngTop, .sngWidth, .sngHeight

'// 如果已经缩小了9倍则缩小按钮不可用
If .intZoon < -9 Then
Command1.Enabled = False
Command2.Enabled = True
Else
Command2.Enabled = True
End If
End With
End Sub

'// 放大
Private Sub Command2_Click()
With muPreviewSize
.intZoon = .intZoon + 1
.sngHeight = .sngHeight * cmChangeSize
.sngWidth = .sngWidth * cmChangeSize

imgPreview.Stretch = True
imgPreview.Move .sngLeft, .sngTop, .sngWidth, .sngHeight

'// 如果已经放大了9倍则放大按钮不可用
If .intZoon > 9 Then
Command2.Enabled = False
Command1.Enabled = True
Else
Command1.Enabled = True
End If
End With
End Sub

Private Sub Form_Load()
With muPreviewSize
.intZoon = 0
'// + 0.5 为Image的边框
.sngHeight = imgPreview.Height + 0.5
.sngWidth = imgPreview.Width + 0.5
.sngLeft = imgPreview.Left
.sngTop = imgPreview.Top
End With
End Sub

5. vb 如何放大或缩小图片,用Picture控件

用 PictureBox 肯定是可以的,但我猜想你只是想显示一下而已,那为什么不用 Image 控件呢?
尝试一下 Image 控件的 Stretch 属性吧。

阅读全文

与vb中图片放大缩小代码相关的资料

热点内容
文件名如何没有文字 浏览:601
吃鸡地图资源包文件路径 浏览:267
cad文件转移手机 浏览:733
指定局域网内文件delphi 浏览:638
苹果5s充电接口维修 浏览:913
建行app怎么老是信息填写错误 浏览:832
罗技g903切换配置文件 浏览:649
游戏的数据在哪个英文文件夹 浏览:435
编程一般学什么专业课 浏览:394
不属于数据库系统的主要组成部分 浏览:797
jdl是什么网络词 浏览:247
优酷的缓存视频文件夹 浏览:842
jsp页面获取地址栏参数 浏览:893
怎么带小度app听酷狗音乐的歌 浏览:17
icleanerpro白苹果 浏览:786
2016年1024客户端安卓 浏览:136
win7连接不了网络打印机共享的打印机 浏览:214
为啥电脑发文件是rtf格式 浏览:927
linux下全局查找一个文件 浏览:78
美国是如何实施网络战 浏览:7

友情链接