Question

怎么让图片框随着VB中的滚动条移动

在窗体中放置一个包含某一图片的图片框和下边放置一个水平滚动条，当单击水平滚动箭头或单击水平滚动箭头与滚动块之间的区域或拖动水平滚动块时，能使图片左右往返移动。

Answer 1

Private Sub Form_Load()
HScroll1.Max = 100
End Sub

Private Sub Form_Resize()
Picture1.Left = Me.Width / 2 - Picture1.Width / 2
HScroll1.Left = Me.Width / 2 - HScroll1.Width / 2
HScroll1.Value = 50
End Sub

Private Sub HScroll1_Change()
Picture1.Left = (Me.Width - Picture1.Width) * HScroll1.Value / 100
End Sub