vb.net放大镜 win 放大镜

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

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

创新互联是一家专业提供龙门企业网站建设,专注与成都网站建设、做网站、html5、小程序制作等业务。10年已为龙门众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

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 graphics 怎么做一个放大镜。主要是用来放大鼠标位置下的屏幕。我

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

;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