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

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

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