如何设置OLE的滚动条
编号：QA003474
建立日期: 2000年10月31日 最后修改日期：2001年12月3日
所属类别：
xhm:
操作系统：windows98
编程工具：vb6.0
问题：我在用VB6.0编程，用OLE的方法嵌入Excel可是OLE对象没有滚动条，这样当EXCEL表格比较大时，就无法完全显示。请问，如何设置OLE的滚动条?谢谢！！！
水平: 中级
回答:
滚动条不能利用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
此问题由ltf回答。
| |
|
|
| |
|
|
