【6日でできるVisual Basic2022入門】④入力データの取り出し方法

変数名 = コントロール名.プロパティ名

Dim heightCm As Double
If Not Double.TryParse(HeightTextBox.Text, heightCm) Then
    ' 変換失敗（数字でない、空、桁区切り誤り 等）
End If

Option Strict On
Option Infer On

Private Sub PreviewInputs()
    Dim heightCm As Double
    Dim weightKg As Double

    ' 入力検証（身長）
    If Not Double.TryParse(HeightTextBox.Text, heightCm) Then
        MessageBox.Show("身長は半角の数字で入力してください。", "入力エラー")
        HeightTextBox.Focus()
        HeightTextBox.SelectAll()
        Exit Sub
    End If

    ' 入力検証（体重）
    If Not Double.TryParse(WeightTextBox.Text, weightKg) Then
        MessageBox.Show("体重は半角の数字で入力してください。", "入力エラー")
        WeightTextBox.Focus()
        WeightTextBox.SelectAll()
        Exit Sub
    End If

    ' ここでは確認のために「正規化された文字列」を BMI 表示欄へ出すだけ
    HeightTextBox.Text = heightCm.ToString("0.##")
    WeightTextBox.Text = weightKg.ToString("0.##")
    BmiTextBox.Text = ""  ' 計算は次章で実装
End Sub

Option Strict On '「Class MainForm」に組み込む際は削除します。
Option Infer On  '「Class MainForm」に組み込む際は削除します。

Private Sub CalcButton_Click(sender As Object, e As EventArgs) Handles CalcButton.Click
    Dim heightCm As Double
    Dim weightKg As Double

    If Not Double.TryParse(HeightTextBox.Text, heightCm) Then
        MessageBox.Show("身長は半角の数字で入力してください。", "入力エラー")
        HeightTextBox.Focus()
        HeightTextBox.SelectAll()
        Exit Sub
    End If

    If Not Double.TryParse(WeightTextBox.Text, weightKg) Then
        MessageBox.Show("体重は半角の数字で入力してください。", "入力エラー")
        WeightTextBox.Focus()
        WeightTextBox.SelectAll()
        Exit Sub
    End If

    If heightCm <= 0 OrElse weightKg <= 0 Then
        MessageBox.Show("身長と体重は 0 より大きい値を入力してください。", "入力エラー")
        Exit Sub
    End If

    Dim h As Double = heightCm / 100.0
    Dim bmi As Double = weightKg / (h * h)

    BmiTextBox.Text = bmi.ToString("0.0")  ' 小数第1位
    ' 判定表示は次章（⑤ クリック時の処理）で本格実装
End Sub