VB.NETでのUsing句の使い方とは？Using句の使い方と例外処理

.NET
VB.NET
プログラミング言語

公開日時: 2021-08-12 　更新日時: 2022-06-06

この記事でわかること

システム エンジニア: VB.NETでの句の使い方について教えてください。

プロジェクト マネージャー: Using句の基本的な使い方、例外処理、複数オブジェクトの指定方法について紹介します。

VB.NETでのUsing句の使い方とは？

今回は、VB.NETでのUsing句の使い方について説明します。Using句を使用すると、明示的にDisposeを記述せずにリソースを解放できます。

解放漏れがなくなりますし、ソースコードがシンプルになります。Using句の基本的な使い方、例外処理、複数オブジェクトの指定方法について紹介します。

VB.NETでのUsing句の使い方に興味のある方はぜひご覧ください。

Using句を使わない場合

まずは、VB.NETでUsing句を使わない場合の記述方法を紹介します。Try-Finally句を使用します。

ここで使用する「C:\test\test.txt」は以下の内容とします。

line1
line2
line3

line1

line2

line3

それでは実際のソースコードを見てみましょう。

Imports System.IO
Imports System.Text

Module Program
    Sub Main(args As String())

        Dim sr As StreamReader = Nothing
        Dim FilePath As String = "C:\test\test.txt"

        Try
            Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)
            ' ファイルオープン
            sr = New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))
            Console.WriteLine(FilePath + "を開きました。")

            ' ファイルの内容を取得
            Dim s As String = sr.ReadToEnd()
            Console.WriteLine(s)
        Catch ex As Exception
            ' 例外処理
            Console.WriteLine(Err.Description)
        Finally
            ' 例外が発生してもしなくても実行する
            If sr IsNot Nothing Then
                sr.Dispose()
            End If
        End Try
    End Sub
End Module

Imports System.IO

Imports System.Text

Module Program

Sub Main(args As String())

Dim sr As StreamReader = Nothing

Dim FilePath As String = "C:\test\test.txt"

Try

Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)

' ファイルオープン

sr = New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))

Console.WriteLine(FilePath + "を開きました。")

' ファイルの内容を取得

Dim s As String = sr.ReadToEnd()

Console.WriteLine(s)

Catch ex As Exception

' 例外処理

Console.WriteLine(Err.Description)

Finally

' 例外が発生してもしなくても実行する

If sr IsNot Nothing Then

sr.Dispose()

End If

End Try

End Sub

End Module

実行結果は以下のようになります。Finally句で確実にDisposeします。

C:\test\test.txtを開きました。
line1
line2
line3

C:\test\test.txtを開きました。

line1

line2

line3

Catch句には例外処理を記述します。「C:\test\test.txt」が存在しない場合、実行結果は以下のようになります。

Could not find file 'C:\test\test.txt'.

1	Could not find file 'C:\test\test.txt'.

Using句の使い方

VB.NETでのUsing句の使い方を紹介します。明示的にDisposeを記述する必要がありません。実際のソースコードを見てみましょう。

Imports System.IO
Imports System.Text

Module Program
    Sub Main(args As String())

        Dim FilePath As String = "C:\test\test.txt"
        Dim s As String

        Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)
        ' Using句でファイルオープン
        Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))
            Console.WriteLine(FilePath + "を開きました。")
            s = sr.ReadToEnd()
        End Using

        Console.WriteLine(s)
    End Sub
End Module

Imports System.IO

Imports System.Text

Module Program

Sub Main(args As String())

Dim FilePath As String = "C:\test\test.txt"

Dim s As String

Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)

' Using句でファイルオープン

Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))

Console.WriteLine(FilePath + "を開きました。")

s = sr.ReadToEnd()

End Using

Console.WriteLine(s)

End Sub

End Module

実行結果は以下のようになります。

C:\test\test.txtを開きました。
line1
line2
line3

C:\test\test.txtを開きました。

line1

line2

line3

このようにVB.NETでは、Using句を使うことで明示的にDisposeを記述せずにリソースを解放できます。

「C:\test\test.txt」が存在しない場合、実行時例外が発生します。

例外がスローされました: 'System.IO.FileNotFoundException' (System.Private.CoreLib.dll の中)
型 'System.IO.FileNotFoundException' のハンドルされていない例外が System.Private.CoreLib.dll で発生しました
Could not find file 'C:\test\test.txt'.

例外がスローされました: 'System.IO.FileNotFoundException' (System.Private.CoreLib.dll の中)

型 'System.IO.FileNotFoundException' のハンドルされていない例外が System.Private.CoreLib.dll で発生しました

Could not find file 'C:\test\test.txt'.

Using句＋例外処理

VB.NETでUsing句に例外処理を加える場合は、Try-Catch句でUsing句を囲みます。実際のソースコードを見てみましょう。

Imports System.IO
Imports System.Text

Module Program
    Sub Main(args As String())

        Dim FilePath As String = "C:\test\test.txt"
        Dim s As String

        Try
            Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)
            ' Using句でファイルオープン
            Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))
                Console.WriteLine(FilePath + "を開きました。")
                s = sr.ReadToEnd()
            End Using
        Catch ex As Exception
            '例外処理
            Console.WriteLine(Err.Description)
        End Try

        ' ファイルの中身を表示
        Console.WriteLine(s)
    End Sub
End Module

Imports System.IO

Imports System.Text

Module Program

Sub Main(args As String())

Dim FilePath As String = "C:\test\test.txt"

Dim s As String

Try

Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)

' Using句でファイルオープン

Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))

Console.WriteLine(FilePath + "を開きました。")

s = sr.ReadToEnd()

End Using

Catch ex As Exception

'例外処理

Console.WriteLine(Err.Description)

End Try

' ファイルの中身を表示

Console.WriteLine(s)

End Sub

End Module

実行結果は以下のようになります。

C:\test\test.txtを開きました。
line1
line2
line3

C:\test\test.txtを開きました。

line1

line2

line3

「C:\test\test.txt」が存在しない場合、実行結果は以下のようになります。

Could not find file 'C:\test\test.txt'.

1	Could not find file 'C:\test\test.txt'.

Using句に複数オブジェクトを指定

VB.NETでUsing句に複数オブジェクトを指定する方法を紹介します。実際のソースコードを見てみましょう。

Imports System.IO
Imports System.Text

Module Program
    Sub Main(args As String())

        Dim SrcFilePath As String = "C:\test\test.txt"
        Dim DstFilePath As String = "C:\test\test2.txt"
        Dim s As String

        Try
            ' 内容のコピー（複数のオブジェクトを指定）
            Using srcStream As FileStream = File.OpenRead(SrcFilePath), dstStream As FileStream = File.OpenWrite(DstFilePath)
                ' test.txtの内容をtest2.txtにコピー
                srcStream.CopyTo(dstStream)
            End Using

            ' コピー先ファイルの表示
            Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)
            Using sr As New StreamReader(DstFilePath, Encoding.GetEncoding("Shift_JIS"))
                Console.WriteLine(DstFilePath + "を開きました。")
                s = sr.ReadToEnd()
            End Using
        Catch ex As Exception
            '例外処理
            Console.WriteLine(Err.Description)
        End Try

        ' ファイルの中身を表示
        Console.WriteLine(s)
    End Sub
End Module

Imports System.IO

Imports System.Text

Module Program

Sub Main(args As String())

Dim SrcFilePath As String = "C:\test\test.txt"

Dim DstFilePath As String = "C:\test\test2.txt"

Dim s As String

Try

' 内容のコピー（複数のオブジェクトを指定）

Using srcStream As FileStream = File.OpenRead(SrcFilePath), dstStream As FileStream = File.OpenWrite(DstFilePath)

' test.txtの内容をtest2.txtにコピー

srcStream.CopyTo(dstStream)

End Using

' コピー先ファイルの表示

Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)

Using sr As New StreamReader(DstFilePath, Encoding.GetEncoding("Shift_JIS"))

Console.WriteLine(DstFilePath + "を開きました。")

s = sr.ReadToEnd()

End Using

Catch ex As Exception

'例外処理

Console.WriteLine(Err.Description)

End Try

' ファイルの中身を表示

Console.WriteLine(s)

End Sub

End Module

実行結果は以下のようになります。読み込みのストリームと書き込みのストリームを単一のUsing句で指定しています。

C:\test\test2.txtを開きました。
line1
line2
line3

C:\test\test2.txtを開きました。

line1

line2

line3

このようにVB.NETでは、Using句に複数オブジェクトを指定できます。

システム エンジニア: VB.NETでのUsing句の使い方についてよくわかりました。

プロジェクト マネージャー: Using句を使用すると明示的にDisposeを記述せずにソース解放ができ、解放漏れがなくなりソースコードがシンプルになりますよ。

まとめ

いかがでしたでしょうか。VB.NETでのUsing句の使い方について説明しました。Using句を使用すると、明示的にDisposeを記述せずにリソースを解放できます。

解放漏れがなくなりますし、ソースコードがシンプルになります。Using句の基本的な使い方、例外処理、複数オブジェクトの指定方法について紹介しました。

ぜひご自身でVB.NETのソースコードを書いて、理解を深めてください。

FEnet.NETナビ・.NETコラムは株式会社オープンアップシステムが運営しています。

株式会社オープンアップシステムはこんな会社です

秋葉原オフィスには株式会社オープンアップシステムをはじめグループのIT企業が集結！
数多くのエンジニアが集まります。

スマホアプリから業務系システムまで

スマホアプリから業務系システムまで開発案件多数。システムエンジニア・プログラマーとしての多彩なキャリアパスがあります。
充実した研修制度

毎年、IT技術のトレンドや社員の要望に合わせて、カリキュラムを刷新し展開しています。社内講師の丁寧なサポートを受けながら、自分のペースで学ぶことができます。
資格取得を応援

スキルアップしたい社員を応援するために資格取得一時金制度を設けています。受験料(実費)と合わせて資格レベルに合わせた最大10万円の一時金も支給しています。
東証プライム上場企業グループ

オープンアップシステムは東証プライム上場「株式会社オープンアップグループ」のグループ企業です。

安定した経営基盤とグループ間のスムーズな連携でコロナ禍でも安定した雇用を実現させています。

株式会社オープンアップシステムに興味を持った方へ

株式会社オープンアップシステムでは、開発系エンジニア・プログラマを募集しています。

年収をアップしたい！スキルアップしたい！大手の上流案件にチャレンジしたい！
まずは話だけでも聞いてみたい場合もOK。お気軽にご登録ください。

株式会社オープンアップシステムへ応募する
会員登録不要! カンタン45秒!

VB.NETでのUsing句の使い方とは？Using句の使い方と例外処理

VB.NETでのUsing句の使い方とは？

Using句を使わない場合

Using句の使い方

Using句＋例外処理

Using句に複数オブジェクトを指定

まとめ

株式会社オープンアップシステムはこんな会社です

スマホアプリから業務系システムまで

充実した研修制度

資格取得を応援

東証プライム上場企業グループ

株式会社オープンアップシステムに興味を持った方へ

新着案件New Job

開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク

遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク

病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク

開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク

債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務

PMO/東京都豊島区/【WEB面談可】/在宅勤務

VB.NETでのUsing句の使い方とは？Using句の使い方と例外処理

VB.NETでのUsing句の使い方とは？

Using句を使わない場合

Using句の使い方

Using句＋例外処理

Using句に複数オブジェクトを指定

まとめ

株式会社オープンアップシステムはこんな会社です

スマホアプリから業務系システムまで

充実した研修制度

資格取得を応援

東証プライム上場企業グループ

株式会社オープンアップシステムに興味を持った方へ

新着案件New Job

開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク

遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク

病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク

開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク

債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務

PMO/東京都豊島区/【WEB面談可】/在宅勤務

関連記事Related Posts

VB.NETをおすすめする3つの理由とは？VBAとの違いや勉強方法を解説

VB.NETでの配列初期化方法とは？宣言と初期化・サイズを指定・ReDimで再宣言・要素固定の一括初期化

VB.NETでのXMLの読み書き方法とは？シリアライズやデシリアライズの方法を紹介

VB.NETでのSharedの使い方とは？Shared変数・コンストラクタ・メソッド

VB.NETにおけるAccess接続方法｜OLEDBE・ODBCを使用したサンプルコードを作成