vb课件vb第5章幻灯片.pptVIP

* Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = Picture1.ScaleWidth – _ Shape1.Width HScroll1.LargeChange = (Picture1.ScaleWidth – _ Shape1.Width) / 20 HScroll1.SmallChange = (Picture1.ScaleWidth – _ Shape1.Width) / 40 VScroll1.Min = 0 VScroll1.Max = Picture1.ScaleHeight – Shape1.Height VScroll1.LargeChange = (Picture1.ScaleHeight – _ Shape1.Height) / 20 VScroll1.SmallChange = (Picture1.ScaleHeight – _