皆様、ご無沙汰しております。2010年のご挨拶がとても遅くなり大変申し訳ございません。

本年もこの場をお借りしてVBの勉強に臨みますので、どうぞよろしくお願い申し上げます。

今回も旧暦プログラムを使用して記事を書かせて頂きます。

今回は数字入力にTextBoxを使用し、整数が入力されたかどうかのチェックを入れました。

コードです。

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim month As Integer

        Try
            'テキストBOX入力値チェック
            month = Integer.Parse(TextBox1.Text)

            If month >= 1 And month <= 12 Then
                Label1.Text = Me.GetKyureki(month)
            Else
                Label1.Text = month & "月は存在しません。"
            End If

        Catch ex As Exception
            'メッセージ
            Label1.Text = "整数を入力してください。"

        End Try

    End Sub
    Private Function GetKyureki(ByVal month As Integer) As String

        Dim kyureki As New ArrayList
        Dim hyoji As String = ""

        kyureki.AddRange(New String() {"睦月", "如月", "弥生", _
                                       "卯月", "皐月", "水無月", _
                                       "文月", "葉月", "長月", "神無月", "霜月", "師走"})

        hyoji = kyureki(month - 1)

        Return hyoji

    End Function
End Class

TextBoxに｢3.5｣と入力する以下のようなメッセージが出るようにしました。

【3.5月の場合】

1~12以外の数字を入力した場合は以前と同じメッセージがでます。

【13月の場合】

【0月の場合】

実は最初どうすれば｢整数が入力されているかを判定｣出来るかがわからず

調べた結果、Parseメソッドを知り初めて使用しました。

｢どのクラスにどんなメソッドがあるか｣をもっと意識しようと感じています。