by Anonymous (267 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 27th November 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Use of scroll bars
'Name of the textbox is txtval
Private Sub HScroll1_Change()
txtval.Text = HScroll1.Value
HScroll2.Value = HScroll1.Value
VScroll1.Value = HScroll1.Value
VScroll2.Value = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
txtval.Text = HScroll2.Value
HScroll1.Value = HScroll2.Value
VScroll1.Value = HScroll2.Value
VScroll2.Value = HScroll2.Value
End Sub
Private Sub VScroll1_Change()
txtval.Text = VScroll1.Value
HScroll2.Value = VScroll1.Value
VScroll2.Value = VScroll1.Value
HScroll1.Value = VScroll1.Value
End Sub
Private Sub VScroll2_Change()
txtval.Text = VScroll2.Value
HScroll2.Value = VScroll2.Value
VScroll1.Value = VScroll2.Value
HScroll1.Value = VScroll2.Value
End Sub