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

Excel 请教各位,窗体怎样做垂直滚动条,第1张

你在窗体属性里将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


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11967769.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-20
下一篇 2023-05-20

发表评论

登录后才能评论

评论列表(0条)

保存