メッセージボックスを表示する方法を記載します。

メッセージボックスを表示するには、MsgBox関数を使う方法と、MessageBoxクラスを使う方法があります。

MsgBoxを使用する方法

Dim result As MsgBoxResult = MsgBox("説明文",
                                     MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation,      'メッセージボックスのスタイルを設定
                                     "タイトル")

If result = MsgBoxResult.Yes Then
End If

・MsgBoxStyle列挙体

 

MessageBoxを使用する方法

Dim result As DialogResult = MessageBox.Show("説明文",
                                             "タイトル",
                                             MessageBoxButtons.YesNo,                    'メッセージボックスのボタン
                                             MessageBoxIcon.Exclamation,                 'メッセージボックスのアイコン
                                             MessageBoxDefaultButton.Button1,            'ボタンのフォーカスデフォルト
                                             MessageBoxOptions.RightAlign)               'メッセージボックスのオプション

If result = DialogResult.Yes Then
End If

・MessageBoxButtons列挙体

・MessageBoxIcon列挙体

・MessageBoxDefaultButton列挙体

・MessageBoxOptions列挙体

 

オーナーウィンドウを指定する

MessageBox.Show(Me,
                "説明文")

・Showの1番目のパラメータにオーナーウインドウが指定できます。指定が無い場合は、アクティブウィンドウがオーナーとなります。

 

 

配列の宣言と、配列の初期化する方法を記載します。

配列を格納する変数を宣言する

Dim arr1() As Integer   'Integer型の配列を格納する変数
'または
Dim arr2 As Integer()

上記の宣言は、配列を格納する変数を宣言しているだけなので、配列そのものではありません。 配列を以下のような方法で割り当てます。

arr1 = New Integer(9) {}

arr2 = {1, 2, 3, 4, 5}

 

配列宣言時に初期化する

'１０個の要素を０で初期化
Dim table(9) As Integer

'５個の要素に順番に１～５を設定して初期化
Dim table() As Integer = {1, 2, 3, 4, 5}

・通常配列を宣言すると、整数型は０で初期化され、文字型では空文字列で初期化されます。

※通常Basicの配列要素は、０から数える

 

For Nextの構文で初期化

Dim table(9) As Integer

For i = 0 To table.Length - 1
    table(i) = 5
Next

 

Enumerable.Repeatを使用して初期化

Dim table() As Integer

table = Enumerable.Repeat(5, 10).ToArray()