|
|
Sie benötigen eine Form und zwei Pictureboxen sowie eine horizontale Scrollbar. Picture1 dient als Container.
Private Sub Form_Load()
Picture2.Move 0, 0
HScroll1.Max = Picture2.Width - Picture1.Width
End Sub
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Picture2.Left = -HScroll1.Value
End Sub
|
|
|
|
|||
|
