How to use Using Statement in Visual Basic .NET

C# には、便利な using ステートメントがあるのに、Visual Basic .NET にはありません。ということで、アドインを利用して作ってみました。まずは、こんな感じのソースコードを記述します。

  Private Sub Form1_Load( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs _
  ) Handles MyBase.Load

    Dim Hoge As New Font(Me.Font, FontStyle.Bold)

    ' Using(Hoge)

    MsgBox(Hoge.Name)

    ' End Using

  End Sub

で、このコードがアドインを通すと、以下のように化けるという仕掛けです。アドインを通すとは言っても、ビルド時のイベントを拾って自動的に行いますので、ユーザーはほとんど意識することがありません。まだ、いくつか問題があるので公開にまではしばらくかかりそうですけど...。

  Private Sub Form1_Load( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs _
  ) Handles MyBase.Load

    Dim Hoge As New Font(Me.Font, FontStyle.Bold)

    Try
        MsgBox(Hoge.Name)
    Finally
        Hoge.Dispose()    
    End Try

  End Sub

• DotNet に戻る