メモ２

構文の備忘録。下記のコードは拙作のシンプルな家計簿（仮）で使っているコードです。あくまでサンプルです。

if文

if文のコードサンプル。下記のコードは時間によって挨拶文を変化させる分岐。

        '現在の時間を取得
        Dim nowHour As integer = DateTime.Now.Hour

        '現在時刻が5時から11時の間ならば、
        If (nowHour > 4) And (nowHour < 12) Then

                'ユーザ名＋おはよう
                Me.hello_label.Text = title_user & "さん おはよう！"

        '現在時刻が12時から17時の間ならば、
        ElseIf (nowHour >= 12) And (nowHour < 18) Then

                'ユーザ名＋こんにちは
                Me.hello_label.Text = title_user & "さん こんにちは！"

        '上記以外の場合は、
        Else

                'ユーザ名＋こんばんは
                Me.hello_label.Text = title_user & "さん こんばんは！"

        End If

for文

for文のコードサンプル。下記のコードはデータグリッド内の数値がプラスかマイナスかを一行ずつ判断例。

        'データグリッドの行数を取得
        ds_record = main_form.dg_search.Rows.Count

        'データグリッドの行数分ループ
        For i = 0 To (ds_record - 1)

            'データグリッド内の金額を取得。
            cb_item = Convert.ToDecimal(main_form.dg_search.Rows(i).Cells(4).Value)

            '金額が０以下（マイナス）ならば、
            If cb_item < 0 Then

                '金額のセルのカラーを赤色に設定
                main_form.dg_search.Rows(i).Cells(4).Style.ForeColor = Color.Red

            '金額が０以下以外ならば、
            Else

                '金額のセルのカラーを緑色に設定
                main_form.dg_search.Rows(i).Cells(4).Style.ForeColor = Color.Green

            End If

        '次の行へ
        Next i

select case 文

日付の値によって元号を分岐させるselect~case文のサンプル


        Select Case jpCal.GetEra(targetDate)

            Case 1
                gengo = "明治"

            Case 2
                gengo = "大正"

            Case 3
                gengo = "昭和"

            Case Else
                gengo = "平成"

        End Select

コメントを残すコメントをキャンセル