VBのWith文の魅力

VisualBasic特有のWith文の魅力について書いていきたいと思います。

よく同じオブジェクトを何度も記述しなければいけない時があります。

たとえば、

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As _
 EventArgs)Handles MyBase.Load

        TextBox1.Text = a
        TextBox1.BackColor = Color.Black
        TextBox1.BorderStyle = BorderStyle.Fixed3D
        TextBox1.WordWrap = False

    End Sub
End Class

こういう、ソースコードがあるとします。

このソースコードは「TextBox1.」というのが４つもあり、とても見づらいです。

ですが、VBのWith文を使えば、

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As _
 EventArgs)Handles MyBase.Load

    With TextBox1
            .Text = a
            .BackColor = Color.Black
            .BorderStyle = BorderStyle.Fixed3D
            .WordWrap = False
        End With
    End Sub
End Class

このように「TextBox1.」が最初の「With TextBox1」で省略することができます。

また、With文の終了をEnd Withで指定することができます。（ていうかしなければデバックエラー吐きます。）

このWith文は僕がVBをやめれない原因の一つでもあるのです。ｗ

えっ！？始めるのが怖い！？

ばっかお前・・・俺がついてるだろ

俺と一緒にVB！