TEXT BOXの数値の・・・・

質問

Visual Basic初心者です。Visual Basic6.0を使用しています。
例えばTextBox１に数値を入力した際に、なんらかの計算をしてTextBoxもしくはLabelにその計算結果を表示したいのですが・・・またその際にTextBox1の数値を変更したらその結果もそれに応じて変更するものにしたのですが・・・・よろしくお願い致します。

回答No.1

n-jun · ベストアンサー

TextBox１の値を変更すると、Label１に1.05をかけた値が表示される。

Private Sub Text1_Change()
Label1.Caption = Val(Text1.Text) * 1.05
End Sub

と言う感じの事でしょうか？

お礼

すみません、ありがとうございました。勉強になりました！。

回答No.2

AKARI0418

補足です、基本的には文字列から数字に変換する場合は、数字であることをチェックしましょう。

Text1.Textに数字以外の文字列を入れられると面倒です。

Private Sub Text1_Change()
If IsNumeric(Text1.Text) Then
Label1.Caption = Val(Text1.Text) * 1.05
End If
End Sub

これに加えて、
'数字以外の入力を許可しない。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") _
Or KeyAscii = Asc("-") Or KeyAscii = 8) Then
KeyAscii = 0
End If
End Sub