求VB代码：让image1用move方法，将图像从中间放大或缩小，放大倍率为1.1
1个回答
展开全部
Private Sub Image1_Click()
bs = 1.1 '倍数
Ox = Image1.Left + Image1.Width / 2 '中心X坐标
Oy = Image1.Top + Image1.Height / 2 '中心Y坐标
Image1.Width = Image1.Width * bs
Image1.Height = Image1.Height * bs
Image1.Move Ox - Image1.Width / 2, Oy - Image1.Height / 2
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
