如何正确掌握VB.NET操作缩放图像

在VB.NET操作缩放图像中的显示和保存缩放图像，用到Image和Graphics类，在VSDotNet2K3下面Reference里自动添加了引用System.Drawing，直接用就行。

创新互联建站专注于拜城企业网站建设,成都响应式网站建设公司,商城网站定制开发。拜城网站建设公司,为拜城等地区提供建站服务。全流程按需开发网站，专业设计，全程项目跟踪，创新互联建站专业和态度为您提供的服务

实现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)

''新建一个放大的图片

imgnew.Save(D:\Image\tstNewImage.jpg,

System.Drawing.Imaging.ImageFormat.Jpeg)

''保存放大后图片

你可以建一个Form，然后在Form里拖进一个Button，把上面的代码放在Button_Click事件里面源码天空

，执行就行了。

对上面VB.NET操作缩放图像代码的解释：

1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象。

2.加载一个图片用Image类的FromFile或者FromStream方法

3.用DrawImage来显示一个图片,该方法有30多个重载方法，可以查MSDN了解细节。

4.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。

vb.net在设计过程中,发现当窗口化的窗体最大化后,里面的组件不能被放大~~

这个问题，如有可能你应当先把大的控件停靠在窗体的某部分，其他的控件用form的resize事件触发控件宽高的数值或控件位置坐标的数值。例：

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

Dim pLabel1, pTextBox1, pButton1 As New Point

pLabel1.X = CInt(Me.Width / 7)

pLabel1.Y = CInt(Me.Height / 8) + 4

pTextBox1.X = CInt(Me.Width / 5)

pTextBox1.Y = CInt(Me.Height / 8)

pButton1.X = CInt(Me.Width / 3)

pButton1.Y = CInt(Me.Height / 8) - 1

Me.Label1.Location = pLabel1

Me.TextBox1.Location = pTextBox1

Me.Button1.Location = pButton1

End Sub

以上只是改变了控件的位置，如需改变控件的大小，重新定义计算控件的size属性

vb.net如何设置窗体内部的大小（除去边框及标题栏部分的大小）

'窗体有个属性ClientSize 是除去边框及标题栏部分的为工作区

'你要的应该就是这个了。

'设置窗体工作区的大小 例为400*300

Me.ClientSize = New Size(400,300)

vb.net中怎么实现图片缩小和放大

Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。

本文名称：vb.net放大局部 vb利用命令按钮放大和缩小图像框
本文路径：http://myzitong.com/article/doseipj.html