重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Pegasus的ImagXpress 8.0控件,支持各种格式文件的加载。控件封装了右键局部区域放大的功能,要实现图片的缩放,把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage,修改 ZoomFactor的值就可以了。
创新互联是一家专业提供龙门企业网站建设,专注与成都网站建设、做网站、html5、小程序制作等业务。10年已为龙门众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
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