Question

关于vb 里 picturebox 图片放大缩小以及移动的问题

Answer 1

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

Answer 2

用代码去改变picturebox.length 和width