十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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
这个没做过 我帮你搜了一下
;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
Pegasus的ImagXpress 8.0控件,支持各种格式文件的加载。控件封装了右键局部区域放大的功能,要实现图片的缩放,把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage,修改 ZoomFactor的值就可以了。