Question

一道VB编程题，如何设计使图片随水平和垂直滚动条上下左右移动？请给出具体代码？

Answer 1

这个简单啊~！首先你要把PictureBox放在一个容器中，强烈推荐使用PictureBox作为容器。也就是在PictureBox中画子PictureBox。这样比较好操作。也便于你日后的处理！~废话不多说。
假设Picture2是Picture1的容器，水平滚动条的名称为HSX，垂直滚动条名称为VSY。那么代码可以这样写：
Private Sub Form_Load()
Picture1.AutoSize = True
Picture1.Picture = LoadPicture("这里加载你指定位置的图片")
If Picture1.Width > Picture2.Width Then
HSX.Enabled = True
HSX.Max = Picture1.Width - Picture2.Width
Else
HSX.Enabled = False
End If
If Picture1.Height > Picture2.Height Then
VSY.Enabled = True
VSY.Max = Picture1.Height - Picture2.Height
Else
VSY.Enabled = False
End If
End Sub

Private Sub HSX_Change()
Picture1.Left = (-1) * HSX.Value
End Sub

Private Sub HSX_Scroll()
Call HSX_Change
End Sub

Private Sub VSY_Change()
Picture1.Top = (-1) * VSY.Value
End Sub

Private Sub VSY_Scroll()
Call VSY_Change
End Sub

Answer 2

图片.left=图片.left + 步长 就是向右滚动向左 就是减去步长，向上就是TOP 减去步长，向下那就是+步长。字幕之类的这样做更实用，如果要他来回滚动，那就把事件写进Timer过程里面