Private Sub vsHPIC_Change()
vsHPIC.Max = Control.Height - vsHPIC.Height
vsHPIC.LargeChange = 2000
Control.Top = -vsHPIC.Value
End Sub
说明:vsHPIC滚动条,Control是Picture中被控制的页面,这足以实现滚动条的实现,很简明的代码,细节上需要大家细化!
Private Sub vsHPIC_Change()
vsHPIC.Max = Control.Height - vsHPIC.Height
vsHPIC.LargeChange = 2000
Control.Top = -vsHPIC.Value
End Sub
说明:vsHPIC滚动条,Control是Picture中被控制的页面,这足以实现滚动条的实现,很简明的代码,细节上需要大家细化!