Excel 请教各位，窗体怎样做垂直滚动条

你在窗体属性里将scrollbars设为3 再设定合适的scrollheifht和scrollwidth即可，scrollheight的值要够大，不然你看不出垂直伏神的滚缺棚亏动条。同样道理，scrollwidth的值也要够大，最好高为500左右看看，你就可和改以看到水平的滚动条了。

Private Sub Form_Load()

Picture1.Top = 0 '放一个图片框一和滚动条,再将图片框二放在图片框一的里面,拉大图片框二使它比一辩扒大,其它控件放在图片框二中

Picture1.Left = 0

Picture1.Width = Me.ScaleWidth - VScroll1.Width

Picture1.Height = Me.ScaleHeight - HScroll1.Height

VScroll1.Height = Picture1.Height

VScroll1.Left = Picture1.Width

HScroll1.Width = Picture1.Width

HScroll1.Top = Picture1.Height

Picture2.Top = 0

Picture2.Left = 0 '以上都可以在设计时搞定，不用塌昌写代码，有携衫昌用的只有下面四行

VScroll1.Max = Picture2.Height - Picture1.Height

HScroll1.Max = Picture2.Width - Picture1.Width

End Sub

Private Sub HScroll1_Change()

Picture2.Left = -HScroll1.Value

End Sub

Private Sub VScroll1_Change()

Picture2.Top = -VScroll1.Value

End Sub

---