vb.net放大镜,c#放大镜

vb.net graphics 怎么做一个放大镜。主要是用来放大鼠标位置下的屏幕。我

这个没做过 我帮你搜了一下

创新互联公司主营涵江网站建设的网络公司,主营网站建设方案,App定制开发,涵江h5小程序制作搭建,涵江网站营销推广欢迎涵江等地区企业咨询

;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

VB，求大神进：如何实现图片放大的效果

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操作缩放图像

在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中怎么实现图片缩小和放大

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

vb.net当鼠标移入pictureBox时,单独显示一个放大的图片?

缩放操作

Function 缩放(ByVal bitmap As Bitmap, ByVal 倍数 As Single) As Bitmap

Dim w As Integer = bitmap.Width * 倍数

Dim h As Integer = bitmap.Height * 倍数

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

鼠标滚轮事件 MouseWheel

MouseEventArgs.Delta 值可以判断滚动方向