请问怎样能使ole控件加上滚动条？


我想知道怎么才能在ole控件中加上滚动条!我把多页word文档加到ole中,但不能显示全部,怎么才能翻页?我不想把word直接碉出来,因为那样会可编辑的!十分感谢!

解决方案 »

  1.   

    你说的是什么控件？我的word中是有图片的！要是能行的话，能再详细点吗？
      

  2.   

    你要把文件转成rtf格式,用richtextbox显示,就可以了.不过有个缺点rtf比word大一倍多,你要不考虑大小就OK
      

  3.   

    RichTextBox1.LoadFile 加上文件路径就行了
      

  4.   

    谢谢指导，我试试看，不过RichTextBox能显示图片吗？
      

  5.   

    能显示,问题.
    不过你很幸运,我今天在网上找到了ole的方法,不知道作者,相信他不介意.实验后,大家一起学习.
    现在窗体上画一个picturebox,在它上面画一个ole,再放两个滚动条就行了
    Picture1.ScaleMode属性设为1
    OLE1.SizeMode设为2
    代码如下:
    Private Sub Form_Load()
    OLE1.Refresh      '如此，这两行可以省下不用写
    OLE1.Left = 0
    OLE1.Top = 0
    VScroll1.Max = OLE1.Height - Picture1.ScaleHeight
    VScroll1.Min = 0
    VScroll1.LargeChange = OLE1.Height \ 20
    VScroll1.SmallChange = OLE1.Height \ 100HScroll1.Max = OLE1.Width - Picture1.ScaleWidth
    HScroll1.Min = 0
    HScroll1.LargeChange = OLE1.Width \ 20
    HScroll1.SmallChange = OLE1.Width \ 100
    End SubPrivate Sub HScroll1_Change()
    OLE1.Left = -1 * HScroll1.Value
    End SubPrivate Sub VScroll1_Change()
    OLE1.Top = -1 * VScroll1.Value
    End Sub
      

  6.   

    谢谢，jxyang_1(羊羊羊) ！不过，你的方法，还是解决不了，ole加载多页文档的问题，你的方法只是解决了ole显示的内容，在屏幕不能显示全部（一页内容）的时候出现的问题！不过，还是谢谢你的帮忙！
      

  7.   

    你是怎么把word文档存放到数据库的呀？
      

  8.   

    有时没必要存入数据库，存目录就好
    如果是rtf用access可以直接存啊