這個(gè)沒(méi)做過(guò) 我?guī)湍闼蚜艘幌?/p>
創(chuàng)新互聯(lián)公司主營(yíng)涵江網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,App定制開(kāi)發(fā),涵江h(huán)5小程序制作搭建,涵江網(wǎng)站營(yíng)銷(xiāo)推廣歡迎涵江等地區(qū)企業(yè)咨詢(xún)
;ssid=0from=1011986juid=0pu=usm@0,sz@1320_2001,ta@iphone_1_10.0_3_602bd_page_type=1baiduid=68BE57552805358B0673A8F56596BE40tj=www_zhidao_normal_2_0_10_title
Private?Sub?Command1_Click()?'放大按鈕
If?Image1.Width??Me.Width?And?Image1.Height??Me.Height?Then
Image1.Width?=?Image1.Width?+?500
Image1.Height?=?Image1.Height?+?500
End?If
End?Sub
Private?Sub?Command2_Click()???'縮小按鈕
If?Image1.Width??500?And?Image1.Height??500?Then
Image1.Width?=?Image1.Width?-?500
Image1.Height?=?Image1.Height?-?500
End?If
End?Sub
Private?Sub?Form_Load()
Image1.Width?=?1500
Image1.Height?=?1500
Image1.Stretch?=?True???'圖片按Image1的大小變化
End?Sub
在VB.NET操作縮放圖像中的顯示和保存縮放圖像,用到Image和Graphics類(lèi),在VSDotNet2K3下面Reference里自動(dòng)添加了引用System.Drawing,直接用就行。
實(shí)現(xiàn)VB.NET操作縮放圖像代碼如下:DimimgAsImageImage=Image.FromFile
(D:\Image\tstImage.jpg)
''tstImage是原先的圖片DimgrfxAsGraphics=Me
.CreateGraphics
grfx.DrawImage(img,0,0,img.Width*
3,img.Height*3)''在Form里顯示
DimimgnewAsNewSystem.Drawing.Bitmap
(img,img.Height*3,img.Width*3)
''新建一個(gè)放大的圖片
imgnew.Save(D:\Image\tstNewImage.jpg,
System.Drawing.Imaging.ImageFormat.Jpeg)
''保存放大后圖片
你可以建一個(gè)Form,然后在Form里拖進(jìn)一個(gè)Button,把上面的代碼放在Button_Click事件里面源碼天空
,執(zhí)行就行了。
對(duì)上面VB.NET操作縮放圖像代碼的解釋?zhuān)?/p>
1.要獲取Graphics對(duì)象只能從某一事件的參數(shù)中獲取或者使用窗體和控件對(duì)象的CreateGraphics方法來(lái)獲取-----上面代碼使用Me.CreateGraphics來(lái)引用這個(gè)對(duì)象。
2.加載一個(gè)圖片用Image類(lèi)的FromFile或者FromStream方法
3.用DrawImage來(lái)顯示一個(gè)圖片,該方法有30多個(gè)重載方法,可以查MSDN了解細(xì)節(jié)。
4.保存時(shí)的一個(gè)問(wèn)題:我們必須先建一個(gè)對(duì)象,用于存縮放圖像。
Pegasus的ImagXpress 8.0控件,支持各種格式文件的加載??丶庋b了右鍵局部區(qū)域放大的功能,要實(shí)現(xiàn)圖片的縮放,把AutoResize屬性設(shè)置為PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage,修改 ZoomFactor的值就可以了。
縮放操作
Function 縮放(ByVal bitmap As Bitmap, ByVal 倍數(shù) As Single) As Bitmap
Dim w As Integer = bitmap.Width * 倍數(shù)
Dim h As Integer = bitmap.Height * 倍數(shù)
Dim tem As New Bitmap(w, h)
Dim g As Graphics = Graphics.FromImage(tem)
g.DrawImage(bitmap, New Rectangle(0, 0, w, h), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)
g.Dispose()
Return tem
End Function
鼠標(biāo)滾輪事件 MouseWheel
MouseEventArgs.Delta 值可以判斷滾動(dòng)方向