Foxtable(狐表)用户栏目专家坐堂 → [求助]请教一下


  共有2110人关注过本帖平板打印复制链接

主题:[求助]请教一下

帅哥哟,离线,有人找我吗?
5159518
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:384 积分:2706 威望:0 精华:0 注册:2015/11/27 19:09:00
[求助]请教一下  发帖心情 Post By:2017/12/28 16:15:00 [只看该作者]

引用了dll,有一个函数不会用,请老师指点

图片点击可在新窗口打开查看此主题相关图片如下:开发手册.png
图片点击可在新窗口打开查看

现在代码是:
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "PDF文件|*.pdf" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1") '声明页面集合
    Dim pdf As new AxFoxitReaderSDKProLib.AxFoxitReaderSDK '声明PDF的SDK
    pdf.Dock =  System.Windows.Forms.DockStyle.Fill '定义打开的PDF文件填充范围为页面集合区域)

    'pdf.ShowTitleBar(False) 这行代码应该怎么写?
    Dim finfo As new FileInfo(dlg.FileName) '声明打开文件的"路径+文件名"
    Dim name = finfo.Name.Replace(finfo.Extension, "") '声明打开文件的文件名
    tab.TabPages.Add(name, name) '添加页面集合的页面,并将页面名称及页面标题定义为其打开的文件名
    Dim pb = tab.BaseControl
    PB.TabPages(name).Controls.add(pdf)
    tab.SelectedPage = tab.TabPages(name)
    pdf.openfile(dlg.FileName,"")
    For i As Integer = 0 To tab.TabPages.count - 1
        If tab.TabPages(i).name = "Page1" Then
            tab.tabpages.Delete("Page1")
            Exit For
        End If
    Next
End If

 回到顶部
总数 11 1 2 下一页