关于vb 里 picturebox 图片放大缩小以及移动的问题
展开全部
Private Sub Command1_Click()
Picture1.Top = Picture1.Top - 100 '上移
End Sub
Private Sub Command2_Click()
Picture1.Top = Picture1.Top + 100 '下移
End Sub
Private Sub Command3_Click()
Picture1.Width = Picture1.Width + 100 '放大
Picture1.Height = Picture1.Height + 100
End Sub
Private Sub Command4_Click()
Picture1.Width = Picture1.Width - 100 '缩小
Picture1.Height = Picture1.Height - 100
End Sub
Private Sub Command5_Click()
Picture1.Left = Picture1.Left - 100 '左移
End Sub
Private Sub Command6_Click()
Picture1.Left = Picture1.Left + 100 '右移
End Sub
Picture1.Top = Picture1.Top - 100 '上移
End Sub
Private Sub Command2_Click()
Picture1.Top = Picture1.Top + 100 '下移
End Sub
Private Sub Command3_Click()
Picture1.Width = Picture1.Width + 100 '放大
Picture1.Height = Picture1.Height + 100
End Sub
Private Sub Command4_Click()
Picture1.Width = Picture1.Width - 100 '缩小
Picture1.Height = Picture1.Height - 100
End Sub
Private Sub Command5_Click()
Picture1.Left = Picture1.Left - 100 '左移
End Sub
Private Sub Command6_Click()
Picture1.Left = Picture1.Left + 100 '右移
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询