关于ole控件初始化问题 我的ole控件加载了excel数据,数据有很多行。我加载后发现ole控件的高度很大,超出了窗体的显示,看不到ole容器的底边,这样效果看起来不舒服。能不能控制ole容器的高度跟窗体的高度一样,宽度也跟窗体宽度一样。多行或多列数据可以通过ole容器自动生成的滚动条实现 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 先插入一个picturebox,在picturebox中放一个ole 控件,在sizemode中设为 2-autosize。 然后写入下列代码: 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 ("c:\My Documents\111.dot") 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 然后ok 了 在MDI窗体中用,子窗体放大后,父窗体自然有滚动条。 为什么会出现Creatlink的方法‘-OLE'失败 复制文件提示“拒绝权限”? 如何调用带有一下参数的存储过程? ***///在VB控件里怎样获取控件所在窗体? VB如何把图片保存成jpg activexDLL exe 开发的组件怎么样保证其安全性呢 ?怎么样不让其他人来调用呢? 请教字符转换问题! 如何将自定义类型(type)传给用vb做的Dll? 怎样才能实现上下方向键在各个文本框中移动。 DLL调用问题。急!急!急! 查找两个日期之间的记录的语句是怎样写的? 如何根据hwnd句柄,获取hInstance句柄 VB数据读取中碰到的问题。
2-autosize。
然后写入下列代码:
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 ("c:\My Documents\111.dot")
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 然后ok 了