投稿者 じょにー  (社会人) 投稿日時 2009/11/4 03:22:52
VB6で、フォームに、テキストボックスと、コマンドボタンを1つづつ貼り付けている状態で、下記の様なコードを書いて
Private Sub Command1_Click()
Dim number As Integer
number = IIf(IsNumeric(Text1.Text) = True, CInt(Text1.Text), 0)
End Sub
実行して、テキストボックスに数値を書くと、問題無く、変換して、終了しますが、数字以外を書くと、型が、違います。と、エラーになります
僕の予定では、数値以外なら0が、入る、予定でしたが。IIF関数の使い方、考え方が、間違っていますか?