7 个错误将 datagridview 导出为 pdf 错误 vb.net Too many arguments to 'Public Sub New()'

Question

在此处输入图像描述

列表错误

错误 1 ​​'Public Sub New()' 的参数太多。 C:\Users\Nor Anisa\documents\visual studio 2012\Projects\Absens_Project\Absens_Project\Absens.vb 193 49 Absens_Project

错误 2“BackgroundColor”不是“Absens_Project.PdfPCell”的成员。 C:\Users\Nor Anisa\documents\visual studio 2012\Projects\Absens_Project\Absens_Project\Absens.vb 194 13 Absens_Project

错误 3 重载解析失败，因为无法使用以下参数调用可访问的“AddCell”：“Public Overridable Sub AddCell(phrase As iTextSharp.text.Phrase)”：“Absens_Project.PdfPCell”类型的值无法转换为“iTextSharp.text” 。短语'。 'Public Overridable Sub AddCell(image As iTextSharp.text.Image)'：'Absens_Project.PdfPCell' 类型的值无法转换为'iTextSharp.text.Image'。 'Public Overridable Sub AddCell(table As iTextSharp.text.pdf.PdfPTable)'：'Absens_Project.PdfPCell' 类型的值无法转换为'iTextSharp.text.pdf.PdfPTable'。 'Public Overridable Sub AddCell(text As String)'：'Absens_Project.PdfPCell' 类型的值不能转换为'String'。 'Public Overridable Function AddCell(cell As iTextSharp.text.pdf.PdfPCell) As iTextSharp.text.pdf.PdfPCell'：'Absens_Project.PdfPCell' 类型的值无法转换为'iTextSharp.text.pdf.PdfPCell'。 C:\Users\Nor Anisa\documents\visual studio 2012\Projects\Absens_Project\Absens_Project\Absens.vb 195 13 Absens_Project

错误 4“使用”“Absens_Project.FileStream”类型的操作数必须实现“System.IDisposable”。 C:\Users\Nor Anisa\documents\visual studio 2012\Projects\Absens_Project\Absens_Project\Absens.vb 209 15 Absens_Project

错误 5“添加”不是“Absens_Project.Document”的成员。 C:\Users\Nor Anisa\documents\visual studio 2012\Projects\Absens_Project\Absens_Project\Absens.vb 214 13 Absens_Project

错误 6“关闭”不是“Absens_Project.Document”的成员。 C:\Users\Nor Anisa\documents\visual studio 2012\Projects\Absens_Project\Absens_Project\Absens.vb 215 13 Absens_Project

错误 7“关闭”不是“Absens_Project.FileStream”的成员。 C:\Users\Nor Anisa\documents\visual studio 2012\Projects\Absens_Project\Absens_Project\Absens.vb 216 13 Absens_Project

Imports System.Data.Odbc
Imports iTextSharp
Imports iTextSharp.text.pdf
Imports excel = Microsoft.Office.Interop.Excel
Imports System.Data
Imports System.IO
Imports System.Data.SqlClient
Imports iTextSharp.text
Public Class Absens
    Dim Conn As OdbcConnection
    Dim Cmd As OdbcCommand
    Dim Ds As DataSet
    Dim Da As OdbcDataAdapter
    Dim Rd As OdbcDataReader
    Dim sql As String
    Dim i, j As Integer
    Dim MyDB As String

Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Dim pdfTable As PdfPTable = New PdfPTable(DataGridView1.ColumnCount)
        pdfTable.DefaultCell.Padding = 5
        pdfTable.WidthPercentage = 100
        pdfTable.HorizontalAlignment = Element.ALIGN_LEFT
        pdfTable.DefaultCell.BorderWidth = 2
        For Each column As DataGridViewColumn In DataGridView1.Columns
            Dim cell As PdfPCell = New PdfPCell(New Phrase(column.HeaderText))
            cell.BackgroundColor = New iTextSharp.text.BaseColor(30, 144, 255)
            pdfTable.AddCell(cell)
        Next
        For Each row As DataGridViewRow In DataGridView1.Rows
            For Each cell As DataGridViewCell In row.Cells
                If cell.Value Is Nothing Then
                Else
                    pdfTable.AddCell(cell.Value.ToString())
                End If
            Next
        Next
        Dim folderPath As String = "C:\pdf"
        If IsNothing(Directory.Exists(folderPath)) Then
            Directory.CreateDirectory(folderPath)
        End If
        Using Stream As FileStream = New FileStream(folderPath + "absens.pdf", FileMode.Create)
            Dim document As Document = New Document(PageSize.A4, 10.0F, 10.0F, 10.0F, 0)
            PdfWriter.GetInstance(document, Stream)

            document.Open()
            document.Add(pdfTable)
            document.Closes()
            Stream.Close()
            MessageBox.Show("pdf berhasil di export")

        End Using
    End Sub