VB中如何才能自動放大縮小圖片填充到圖片框中??？

實現(xiàn)代碼：

公司主營業(yè)務(wù)：成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出南海免費做網(wǎng)站回饋大家。

VERSION 5．00

BeginVB．FormForm1

Caption＝＂使用PictureBox控件實現(xiàn)圖像放大和縮小＂

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＝＂縮?。?/p>

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(luò)－100

Picture1．PaintPicturePicture1．Picture，0，0，i，j

Picture1．Width＝i：Picture1．Height＝j(luò)

EndSub

PrivateSubCommand2＿Click（）

Picture1．Cls

Picture1．Width＝i：Picture1．Height＝j(luò)

i＝i＋100：j＝j(luò)＋100

Picture1．PaintPicturePicture1．Picture，0，0，i，j

EndSub

PrivateSubForm＿Load（）

i＝Picture1．Width：j＝Picture1．Height

Picture1．Cls

EndSub

VB6．0通過PictureBox控件實現(xiàn)圖片放大和圖片縮小功能

擴展資料：

其它方法：

例子前請先下載Gdiplus．tlb，并將其放置到C：＼Windows＼System32中

Gdiplus．tlb下載

VisualBasiccode

使用Gdiplus．tlb，將其放到system32中，然后添加對其的引用

手動設(shè)置Form的AutoRedraw＝True，ScaleMode＝Pixels

OptionExplicit

DimlngGraphicsAsLong

DimlngImageHandleAsLong

DimlngTextureBrushAsLong

DimgpPAsGpStatus

DimlngPen1AsLong

DimlngTokenAsLong

DimGpInputAsGdiplusStartupInput

PrivateSubCommand1＿Click（）

DimintPAsInteger

gpP＝GdipCreateFromHDC（Me．hDC，lngGraphics）＇創(chuàng)建繪圖區(qū)域設(shè)備場景

gpP＝GdipLoadImageFromFile（App．Path＆＂＼啟動．png＂，lngImageHandle）＇讀取圖片到內(nèi)存

gpP＝GdipDrawImage（lngGraphics，lngImageHandle，0，0）＇等大小繪制

gpP＝GdipDrawImageRect（lngGraphics，lngImageHandle，200，0，300，300）＇在指定的區(qū)域內(nèi)繪制（放大或縮?。?/p>

gpP＝GdipDrawImageRectRectI（lngGraphics，lngImageHandle，550，0，400，400，20，20，80，80，UnitPixel）＇在400＊400的區(qū)域內(nèi)顯示圖片部分區(qū)域

gpP＝GdipCreateTexture（lngImageHandle，WrapModeTile，lngTextureBrush）＇設(shè)置一定排列方式的刷子平鋪方式

gpP＝GdipFillRectangle（lngGraphics，lngTextureBrush，0，300，400，300）＇在指定區(qū)域內(nèi)按指定的格式繪制圖片

IflngGraphics＜＞0ThenGdipDeleteGraphicslngGraphics

IflngImageHandle＜＞0ThenGdipDisposeImagelngImageHandle

IflngTextureBrush＜＞0ThenGdipDeleteBrushlngTextureBrush

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

vb.net中怎么實現(xiàn)圖片縮小和放大

Pegasus的ImagXpress 8.0控件，支持各種格式文件的加載。控件封裝了右鍵局部區(qū)域放大的功能，要實現(xiàn)圖片的縮放，把AutoResize屬性設(shè)置為PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。

vb.net 如何放大和縮小圖片

Sub 圖片縮放()

Dim SngPer As Single = 1 '放大或縮小的比例 放大2倍時SngPer=2,縮小3倍時 SngPer=1/3

Dim PicOld As Image = Image.FromFile("原圖片路徑")

Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)

PicNew.Save("新圖片路徑", Drawing.Imaging.ImageFormat.Jpeg)

End Sub