Question

vb中怎样设置 VScrollbar的属性？

我想在Picture1中添加VScroll1

Answer 1

'先在窗体上画一个图片框，一个垂直流动条和一个水平流动条

Dim HValue As Integer
Dim VValue As Integer
Dim WidValue As Integer
Dim HeiValue As Integer
Private Sub Form_Load()
WindowState = 2
Caption = "Rolling Form"
Picture1.AutoSize = True
pictrue1.Picture = ("你图片的路径")
End Sub
Private Sub Form_Resize()
WidValue = ScaleWidth - VScroll1.Width
HeiValue = ScaleHeight - HScroll1.Height
Picture1.Top = 0
Picture1.Left = 0
HScroll1.Top = HeiValue
HScroll1.Left = 0
HScroll1.Width = WidValue
VScroll1.Top = 0
VScroll1.Left = WidValue
VScroll1.Height = HeiValue + HScroll1.Height
HScroll1.Max = Picture1.Width - WidValue
VScroll1.Max = Picture1.Height - HeiValue
HScroll1.Min = 0
VScroll1.Min = 0
VScroll1.LargeChange = 100
VScroll1.SmallChange = 5
HScroll1.LargeChange = 100
HScroll1.SmallChange = 5
End Sub
Private Sub HScroll1_Change()
HValue = HScroll1.Value
Picture1.Move -HValue, -VValue
End Sub
Private Sub VScroll1_Change()
VValue = VScroll1.Value
Picture1.Move -HValue, -VValue
End Sub