VB滚动条如何控制表格

来源：百度知道 编辑：UC知道 时间：2024/06/24 06:27:55
我在VB里用EXCEL做了一个表格,可是这个表格没有滚动条,如果我要加上一个滚动条,应该写什么代码让这个滚动条控制表格(OLE1)?
在线等额!急用

滚动条不能利用OLE控件本身的，要自己用滚动条控件去实现滚动操作！
把OLE控件放到PICTURE控件里去，并将其SIZEMODE设为VbOLESizeAutoSize
Private Sub HScroll1_Change()
OLE1.Left = -HScroll1.Value
End Sub

Private Sub VScroll1_Change()
OLE1.Top = -VScroll1.Value
End Sub

Private Sub Command1_Click()
HScroll1.Value = 0
VScroll1.Value = 0
With OLE1
.CreateLink (Text1.Text) 'Text1.Text内容可设为c:\myexcel.xls等
HScroll1.Max = .Width - Picture1.Width + 20
HScroll1.LargeChange = .Width / 10
HScroll1.SmallChange = .Width / 20
VScroll1.Max = .Height - Picture1.Height + 20
VScroll1.LargeChange = .Height / 10
VScroll1.SmallChange = .Height / 20
End With
End Sub