找回密码
 立即注册

QQ登录

只需一步,快速开始

breeze1982

新手上路

1

主题

2

帖子

27

积分

新手上路

积分
27
  • 25

    金币

  • 主题

  • 帖子

最新发帖
breeze1982
新手上路   /  发表于:2015-12-14 16:31  /   查看:2951  /  回复:3
我设置了viewer控件的滚动条属性,但是没有效果,求高手解答。

viewerPre.HorizontalScroll.Visible = True
viewerPre.HorizontalScroll.Enabled = True


详细代码如下

Public Sub PreviewReprot(ByVal strRptName As String, ByVal dcmSection As GrapeCity.ActiveReports.Document.SectionDocument)
        Dim frmPre As New Form
        Dim viewerPre As New GrapeCity.ActiveReports.Viewer.Win.Viewer
        viewerPre.CurrentPage = 0
        viewerPre.PreviewPages = 0
        viewerPre.ScrollbarEnabled = True
        viewerPre.VerticalScroll.Visible = True
        viewerPre.VerticalScroll.Enabled = True
        viewerPre.HorizontalScroll.Visible = True
        viewerPre.HorizontalScroll.Enabled = True
        frmPre.Controls.Add(viewerPre)
        frmPre.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        'frmPre.WindowState = System.Windows.Forms.FormWindowState.Maximized
        frmPre.Height = viewerPre.Height
        frmPre.Width = viewerPre.Width
        viewerPre.LoadDocument(dcmSection)
        frmPre.Text = strRptName
        AddHandler frmPre.Resize, New EventHandler(AddressOf Form_Resize)
        frmPre.ShowDialog()
        frmPre.Dispose()
    End Sub

3 个回复

倒序浏览
frank.zhang
社区贡献组   /  发表于:2015-12-14 17:26:00
沙发
您好,

需要您提供需要的效果截图说明,以确保我们对需要的理解是一致的。
回复 使用道具 举报
breeze1982
新手上路   /  发表于:2015-12-15 08:04:00
板凳
找到原因了,被别人坑了,上面那个代码有问题,滚动条被容器的边界挡住了,所以看不见。
回复 使用道具 举报
frank.zhang
社区贡献组   /  发表于:2015-12-15 11:07:00
地板
好的
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部