我的ole控件加载了excel数据,数据有很多行。我加载后发现ole控件的高度很大,超出了窗体的显示,看不到ole容器的底边,这样效果看起来不舒服。能不能控制ole容器的高度跟窗体的高度一样,宽度也跟窗体宽度一样。多行或多列数据可以通过ole容器自动生成的滚动条实现

解决方案 »

  1.   

          先插入一个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   了  
      

  2.   

    在MDI窗体中用,子窗体放大后,父窗体自然有滚动条。
      

  3.   

    为什么会出现Creatlink的方法‘-OLE'失败