IronPDFを使用してVB.NET PDFビューアーを作成する方法：完全なチュートリアル

VB.NET での PDF 表示が難しい理由は何ですか？

Visual Studio ツールボックスには標準の PDF ビューアー コントロールが欠けています。 開発者はしばしば、たとえば Internet Explorer や組み込み WebBrowser コントロールを使って PDF ファイルを表示しますが、これらのアプローチはユーザーのデフォルトの PDF リーダーに依存し、展開に隠れたコストを引き起こす可能性があります。

従来のソリューションでは、適切な PDF フォーム処理、印刷、レンダリングのために外部ソフトウェアのインストールや手動での設定が必要になることがあり、これが複雑さを増し、複数の Windows 環境間で PDF 表示をカスタマイズする能力を制限します。

IronPDF は VB.NET での PDF 表示をどのように簡素化しますか？

IronPDF は、Adobe Reader や他の外部ビューアを必要としない自己完結型のライブラリを提供することによって、VB.NET アプリケーションの PDF 処理を変革します。 基本的な表示に加えて、開発者はおなじみの .NET パターンを使用して、プログラムで PDF を作成、編集、操作、およびレンダリングすることができます。

ライブラリのアーキテクチャは Chrome ベースのレンダリングエンジンを利用しており、現代の機能であるフォーム、注釈、および埋め込みマルチメディアを完全にサポートしながら、複雑な PDF のピクセルパーフェクトな表示を保証します。 このアプローチは、すべての Windows 環境で一貫したレンダリングを保証します。

VB.NET プロジェクトに IronPDF をインストールする方法

IronPDF のセットアップは、NuGet パッケージマネージャーを通じて数ステップで完了します。 Visual Studio で VB.NET の Windows Forms プロジェクトを開き、次の手順に従ってください：

1. ターゲットフレームワークまたは .NET Core を使用して新しいプロジェクトを Visual Studio で開きます。
2. ソリューション エクスプローラーでプロジェクトを右クリック。
3. 「NuGet パッケージの管理」を選択します。
4. 「参照」タブで「IronPDF」を検索
5. IronPDF パッケージのインストールをクリック

インストール後、VB.NET ファイルにこのインポート ステートメントを追加します。

Imports IronPdf

Imports IronPdf

IRON VB CONVERTER ERROR developers@ironsoftware.com

このインポート ステートメントは、VB.NET プロジェクトがすべての IronPDF クラスとメソッドにアクセスできるようにし、PDF ドキュメントをプログラムで読み込み、レンダリング、印刷、および操作することを可能にします。

このセットアップはすべての必要なランタイムコンポーネントを含んでおり、手動設定を排除し、隠れたコストを回避します。

Windows Forms で基本的な PDF ビューアを作成する方法

PDF ビューアの構築は、Windows Forms アプリケーションを作成し、IronPDF のレンダリング機能を実装することから始まります。 アプリケーションで PDF を表示するための合理化されたアプローチは次のとおりです：

Imports System.Drawing
Imports System.IO
Imports IronPdf
Public Class Form1
    Private currentPdf As PdfDocument
    Private pdfBitmaps() As Bitmap
    Private currentPage As Integer = 0
    Private zoomLevel As Double = 1.0
    ' Load PDF Button
    Private Sub LoadPdfButton_Click(sender As Object, e As EventArgs) Handles LoadPdfButton.Click
        Using openFileDialog As New OpenFileDialog()
            openFileDialog.Filter = "PDF Files (*.pdf)|*.pdf"
            If openFileDialog.ShowDialog() = DialogResult.OK Then
                ' Load PDF
                currentPdf = PdfDocument.FromFile(openFileDialog.FileName)
                ' Render all pages to image files
                Dim filePaths As String() = currentPdf.RasterizeToImageFiles("page_*.png")
                ' Load images into memory
                Dim pageList As New List(Of Bitmap)()
                For Each filePath As String In filePaths
                    Using ms As New MemoryStream(File.ReadAllBytes(filePath))
                        Dim bmp As New Bitmap(ms)
                        pageList.Add(bmp)
                    End Using
                Next
                pdfBitmaps = pageList.ToArray()
                currentPage = 0
                zoomLevel = 1.0
                DisplayCurrentPage()
            End If
        End Using
    End Sub
    ' Show the current page in PictureBox
    Private Sub DisplayCurrentPage()
        If pdfBitmaps IsNot Nothing AndAlso currentPage < pdfBitmaps.Length Then
            Dim bmp As Bitmap = pdfBitmaps(currentPage)
            ' Apply zoom
            Dim newWidth As Integer = CInt(bmp.Width * zoomLevel)
            Dim newHeight As Integer = CInt(bmp.Height * zoomLevel)
            Dim zoomedBmp As New Bitmap(bmp, newWidth, newHeight)
            PictureBox1.Image = zoomedBmp
        Else
            PictureBox1.Image = Nothing
        End If
        UpdateNavigationButtons()
    End Sub

Imports System.Drawing
Imports System.IO
Imports IronPdf
Public Class Form1
    Private currentPdf As PdfDocument
    Private pdfBitmaps() As Bitmap
    Private currentPage As Integer = 0
    Private zoomLevel As Double = 1.0
    ' Load PDF Button
    Private Sub LoadPdfButton_Click(sender As Object, e As EventArgs) Handles LoadPdfButton.Click
        Using openFileDialog As New OpenFileDialog()
            openFileDialog.Filter = "PDF Files (*.pdf)|*.pdf"
            If openFileDialog.ShowDialog() = DialogResult.OK Then
                ' Load PDF
                currentPdf = PdfDocument.FromFile(openFileDialog.FileName)
                ' Render all pages to image files
                Dim filePaths As String() = currentPdf.RasterizeToImageFiles("page_*.png")
                ' Load images into memory
                Dim pageList As New List(Of Bitmap)()
                For Each filePath As String In filePaths
                    Using ms As New MemoryStream(File.ReadAllBytes(filePath))
                        Dim bmp As New Bitmap(ms)
                        pageList.Add(bmp)
                    End Using
                Next
                pdfBitmaps = pageList.ToArray()
                currentPage = 0
                zoomLevel = 1.0
                DisplayCurrentPage()
            End If
        End Using
    End Sub
    ' Show the current page in PictureBox
    Private Sub DisplayCurrentPage()
        If pdfBitmaps IsNot Nothing AndAlso currentPage < pdfBitmaps.Length Then
            Dim bmp As Bitmap = pdfBitmaps(currentPage)
            ' Apply zoom
            Dim newWidth As Integer = CInt(bmp.Width * zoomLevel)
            Dim newHeight As Integer = CInt(bmp.Height * zoomLevel)
            Dim zoomedBmp As New Bitmap(bmp, newWidth, newHeight)
            PictureBox1.Image = zoomedBmp
        Else
            PictureBox1.Image = Nothing
        End If
        UpdateNavigationButtons()
    End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

3. IronWordのライセンスキーを指定するために、IronWord.License.LicenseKey（"YOUR-LICENSE-KEY"を実際のキーに置き換えます）を設定します。

• currentPdf は読み込まれた PDF ドキュメントを格納します。
• pdfBitmaps は各 PDF ページのビットマップ イメージを保持し、PictureBox コントロールで表示するために使用します。
• LoadPdfButton_Click は標準の OpenFileDialog を使用して、ユーザーが PDF ファイルを選択できるようにします。 PdfDocument.FromFile は PDF ドキュメントを読み込み、RasterizeToImageFiles は各ページを画像ファイルに変換します。 各ファイルはビットマップとしてメモリに読み込まれ、配列に追加され、最初のページが DisplayCurrentPage() で表示されます。

プログラムを実行すると、「PDF を読み込む」ボタンをクリックした時にダイアログポップアップ経由で PDF ファイルを読み込むことが出来ます。

PDF ナビゲーションコントロールを実装する方法

ナビゲーションは、マルチページドキュメント内を移動することでユーザー体験を向上させます。 この実装によって、前ボタンおよび次ボタンをフォームに追加します。

' Next Page Button
Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click
    If currentPage < pdfBitmaps.Length - 1 Then
        currentPage += 1
        DisplayCurrentPage()
    End If
End Sub
' Previous Page Button
Private Sub PreviousButton_Click(sender As Object, e As EventArgs) Handles PreviousButton.Click
    If currentPage > 0 Then
        currentPage -= 1
        DisplayCurrentPage()
    End If
End Sub

' Next Page Button
Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click
    If currentPage < pdfBitmaps.Length - 1 Then
        currentPage += 1
        DisplayCurrentPage()
    End If
End Sub
' Previous Page Button
Private Sub PreviousButton_Click(sender As Object, e As EventArgs) Handles PreviousButton.Click
    If currentPage > 0 Then
        currentPage -= 1
        DisplayCurrentPage()
    End If
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

これらのプライベートサブ手続きは、Object sender、EventArgs e を使用して PDF ページのナビゲーションを処理します。 ボタンは currentPage を更新し、DisplayCurrentPage() を呼び出して Windows フォーム内で PDF ページをレンダリングします。

' Update navigation controls and page label
Private Sub UpdateNavigationButtons()
    PreviousButton.Enabled = currentPage > 0
    NextButton.Enabled = currentPage < pdfBitmaps.Length - 1
    PageLabel.Text = $"Page {currentPage + 1} of {pdfBitmaps.Length}"
End Sub

' Update navigation controls and page label
Private Sub UpdateNavigationButtons()
    PreviousButton.Enabled = currentPage > 0
    NextButton.Enabled = currentPage < pdfBitmaps.Length - 1
    PageLabel.Text = $"Page {currentPage + 1} of {pdfBitmaps.Length}"
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

これにより、ユーザーが最初または最後のページを越えてナビゲートできないようにボタンの状態が更新され、ラベルには現在のページ番号と合計ページ数が表示されます。

さまざまなソースから PDF ファイルを読み込む方法

IronPDF はローカルファイル以外のさまざまなソースからの PDF の読み込みをサポートしています。 この柔軟性により、データベース、Web サービス、メモリストリームと統合することが可能です：

' Load PDF from URL
Private Sub LoadUrlButton_Click(sender As Object, e As EventArgs) Handles LoadUrlButton.Click
    Dim url As String = UrlTextBox.Text.Trim()
    If String.IsNullOrEmpty(url) Then
        MessageBox.Show("Please enter a valid URL.")
        Return
    End If
    Try
        LoadFromUrl(url)
    Catch ex As Exception
        MessageBox.Show("Failed to load PDF: " & ex.Message)
    End Try
End Sub

' Load PDF from URL
Private Sub LoadUrlButton_Click(sender As Object, e As EventArgs) Handles LoadUrlButton.Click
    Dim url As String = UrlTextBox.Text.Trim()
    If String.IsNullOrEmpty(url) Then
        MessageBox.Show("Please enter a valid URL.")
        Return
    End If
    Try
        LoadFromUrl(url)
    Catch ex As Exception
        MessageBox.Show("Failed to load PDF: " & ex.Message)
    End Try
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Private Sub LoadFromUrl(url As String)
    Dim renderer As New ChromePdfRenderer()
    renderer.RenderingOptions.EnableJavaScript = True
    renderer.RenderingOptions.CssMediaType = Rendering.PdfCssMediaType.Print
    renderer.RenderingOptions.WaitFor.JavaScript(3000)
    currentPdf = renderer.RenderUrlAsPdf(url)
    LoadPdfBitmaps()
End Sub

Private Sub LoadFromUrl(url As String)
    Dim renderer As New ChromePdfRenderer()
    renderer.RenderingOptions.EnableJavaScript = True
    renderer.RenderingOptions.CssMediaType = Rendering.PdfCssMediaType.Print
    renderer.RenderingOptions.WaitFor.JavaScript(3000)
    currentPdf = renderer.RenderUrlAsPdf(url)
    LoadPdfBitmaps()
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Private Sub LoadHtmlButton_Click(sender As Object, e As EventArgs) Handles LoadHtmlButton.Click
    Dim htmlContent As String = "<html><body><h1>Hello PDF!</h1><p>This is a hardcoded HTML PDF test.</p></body></html>"
    LoadFromHtml(htmlContent)
End Sub
Private Sub LoadFromHtml(htmlContent As String)
    Dim renderer As New ChromePdfRenderer()
    currentPdf = renderer.RenderHtmlAsPdf(htmlContent)
    LoadPdfBitmaps()
End Sub

Private Sub LoadHtmlButton_Click(sender As Object, e As EventArgs) Handles LoadHtmlButton.Click
    Dim htmlContent As String = "<html><body><h1>Hello PDF!</h1><p>This is a hardcoded HTML PDF test.</p></body></html>"
    LoadFromHtml(htmlContent)
End Sub
Private Sub LoadFromHtml(htmlContent As String)
    Dim renderer As New ChromePdfRenderer()
    currentPdf = renderer.RenderHtmlAsPdf(htmlContent)
    LoadPdfBitmaps()
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

ズーム機能を追加する方法

ズームコントロールは詳細な文書の読解性を向上させます。 画像のスケーリングを使用してズームを実装します：

Private Sub ZoomInButton_Click(sender As Object, e As EventArgs) Handles ZoomInButton.Click
        zoomLevel = Math.Min(zoomLevel + 0.25, 3.0)
        DisplayCurrentPage()
    End Sub
    Private Sub ZoomOutButton_Click(sender As Object, e As EventArgs) Handles ZoomOutButton.Click
        zoomLevel = Math.Max(zoomLevel - 0.25, 0.5)
        DisplayCurrentPage()
    End Sub
    Private Sub ApplyZoom()
        If pdfBitmaps IsNot Nothing AndAlso currentPage < pdfBitmaps.Length Then
            Dim pageImage As Bitmap = pdfBitmaps(currentPage)
            Dim newWidth As Integer = CInt(pageImage.Width * zoomLevel)
            Dim newHeight As Integer = CInt(pageImage.Height * zoomLevel)
            Dim zoomedImage As New Bitmap(pageImage, newWidth, newHeight)
            PictureBox1.Image = zoomedImage
        Else
            PictureBox1.Image = Nothing
        End If
    End Sub

Private Sub ZoomInButton_Click(sender As Object, e As EventArgs) Handles ZoomInButton.Click
        zoomLevel = Math.Min(zoomLevel + 0.25, 3.0)
        DisplayCurrentPage()
    End Sub
    Private Sub ZoomOutButton_Click(sender As Object, e As EventArgs) Handles ZoomOutButton.Click
        zoomLevel = Math.Max(zoomLevel - 0.25, 0.5)
        DisplayCurrentPage()
    End Sub
    Private Sub ApplyZoom()
        If pdfBitmaps IsNot Nothing AndAlso currentPage < pdfBitmaps.Length Then
            Dim pageImage As Bitmap = pdfBitmaps(currentPage)
            Dim newWidth As Integer = CInt(pageImage.Width * zoomLevel)
            Dim newHeight As Integer = CInt(pageImage.Height * zoomLevel)
            Dim zoomedImage As New Bitmap(pageImage, newWidth, newHeight)
            PictureBox1.Image = zoomedImage
        Else
            PictureBox1.Image = Nothing
        End If
    End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

このコードは、zoomLevel をステップで調整し、DisplayCurrentPage() を呼び出して、デスクトップ上での読みやすさを改善するズームスケーリングを適用します。

PDF ドキュメントを印刷する方法

印刷機能はビュワー体験を完全なものにします。 IronPDF は組み込みメソッドで印刷を簡素化します：

Private Sub PrintButton_Click(sender As Object, e As EventArgs) Handles PrintButton.Click
        If currentPdf IsNot Nothing Then
            ' Simple print with default settings
            currentPdf.Print()
            ' Or with custom settings
            Dim printDoc As PrintDocument = currentPdf.GetPrintDocument()
            Using printDialog As New PrintDialog()
                printDialog.Document = printDoc
                If printDialog.ShowDialog() = DialogResult.OK Then
                    printDoc.Print()
                End If
            End Using
        End If
    End Sub

Private Sub PrintButton_Click(sender As Object, e As EventArgs) Handles PrintButton.Click
        If currentPdf IsNot Nothing Then
            ' Simple print with default settings
            currentPdf.Print()
            ' Or with custom settings
            Dim printDoc As PrintDocument = currentPdf.GetPrintDocument()
            Using printDialog As New PrintDialog()
                printDialog.Document = printDoc
                If printDialog.ShowDialog() = DialogResult.OK Then
                    printDoc.Print()
                End If
            End Using
        End If
    End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

このプライベートサブは、ユーザーがデフォルトまたはカスタムプリンター設定を使って PDF ドキュメントを印刷できるようにします。 GetPrintDocument() は Windows Forms PrintDialog に統合するための PrintDocument オブジェクトを返します。

WPF アプリケーションでの PDF 表示を実装する方法

Windows Forms がデスクトップ開発を支配する中で、WPF アプリケーションでも IronPDF を利用できます。 アプローチは若干異なります：

' In WPF Window code-behind
Private Sub LoadPdfInWpf(filePath As String)
    Dim pdfDoc As PdfDocument = PdfDocument.FromFile(filePath)
    Dim pageImage As Bitmap = pdfDoc.ToBitmap(0)
    ' Convert to WPF-compatible image
    Dim bitmapImage As New BitmapImage()
    Using memory As New MemoryStream()
        pageImage.Save(memory, ImageFormat.Png)
        memory.Position = 0
        bitmapImage.BeginInit()
        bitmapImage.StreamSource = memory
        bitmapImage.CacheOption = BitmapCacheOption.OnLoad
        bitmapImage.EndInit()
    End Using
    ImageControl.Source = bitmapImage
End Sub

' In WPF Window code-behind
Private Sub LoadPdfInWpf(filePath As String)
    Dim pdfDoc As PdfDocument = PdfDocument.FromFile(filePath)
    Dim pageImage As Bitmap = pdfDoc.ToBitmap(0)
    ' Convert to WPF-compatible image
    Dim bitmapImage As New BitmapImage()
    Using memory As New MemoryStream()
        pageImage.Save(memory, ImageFormat.Png)
        memory.Position = 0
        bitmapImage.BeginInit()
        bitmapImage.StreamSource = memory
        bitmapImage.CacheOption = BitmapCacheOption.OnLoad
        bitmapImage.EndInit()
    End Using
    ImageControl.Source = bitmapImage
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

PDF ビュワーのパフォーマンスに関するベストプラクティスは何ですか？

PDF 表示の最適化はスムーズなユーザー体験を保証します：

Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
    If currentPdf IsNot Nothing Then
        currentPdf.Dispose()
    End If
    MyBase.OnFormClosed(e)
End Sub

Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
    If currentPdf IsNot Nothing Then
        currentPdf.Dispose()
    End If
    MyBase.OnFormClosed(e)
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Private Async Sub LoadPdfAsync(filePath As String)
    LoadingLabel.Visible = True
    Await Task.Run(Sub()
        currentPdf = PdfDocument.FromFile(filePath)
    End Sub)
    LoadingLabel.Visible = False
    DisplayCurrentPage()
End Sub

Private Async Sub LoadPdfAsync(filePath As String)
    LoadingLabel.Visible = True
    Await Task.Run(Sub()
        currentPdf = PdfDocument.FromFile(filePath)
    End Sub)
    LoadingLabel.Visible = False
    DisplayCurrentPage()
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

結論

IronPDF を使用して VB.NET で PDF ビューアを構築することは、伝統的なアプローチの複雑さを排除しながら、プロフェッショナルな機能を提供します。 基本的なファイルの表示から、高度な PDF フォーム処理や印刷まで、IronPDF は Windows Forms アプリケーション内での PDF とのすべてのやり取りを処理します。

レポートの表示、フォームの処理、またはドキュメント管理システムの実装であっても、IronPDF は包括的な PDF ソリューションに必要なツール、サポート、およびライセンスオプションを提供します。

IronPDF の無料トライアルで VB.NET PDF ビューアープロジェクトを開始し、すべての機能を探索してください。 柔軟なライセンスで生産展開にスケールアップ。 For detailed API documentation and additional examples, visit the IronPDF documentation and explore the comprehensive VB.NET code samples.

購入の準備ができていませんか？

PM >  Install-Package IronPdf

IronPDF を NuGet でチェックしてください。1000万回以上のダウンロードで、C#によるPDF開発を変革しています。 DLL または Windowsインストーラー をダウンロードすることもできます。