主题：[求助]请教一下

代码没问题，报什么错？你写到最后有没问题？

运行的时候报错，别的都没有发现问题

测试项目很简单，一个窗口，里面有一个页面集合，一个按钮编写了一楼的代码，预览的时候出现如下报错，不清楚怎么回事？还请老师指点

此主题相关图片如下：报错.png

这样处理一下即可，如

CType(pdf,System.ComponentModel.ISupportInitialize).BeginInit()

'设置的代码，如

pdf.ShowTitleBar(False)

CType(pdf,System.ComponentModel.ISupportInitialize).EndInit()

修改后的代码：

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文件填充范围为页面集合区域)

    CType(pdf,System.ComponentModel.ISupportInitialize).BeginInit()

    pdf.ShowTitleBar(False)    

    CType(pdf,System.ComponentModel.ISupportInitialize).EndInit()

    '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

预览结果依然报错，错误描述和3楼一样