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

关于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

其实问题我不大清楚，图片移动可以通过keyup和keydown事件来控制图片，移动图片可以通过改变图片的left等属性完成，个人观点，仅供参考。