テキストボックスを空白にする方法

質問

テキストボックスに数字が入力されている場合はいいんですが、何も入力されていないときに、其のテキストボックスの値をゼロとすると、どうしてもテキストボックスに０と入力しなければ其のテキストを計算式に使えないので困っています。テキストボックスに何も表示されていないままにしたいのですが。（値はセロということのまま）

例えばテキストボックス1には１０、テクストボックス２には何も入力しないでそのままにする。ボタンをクリックすると、二つの値が足されて合計１０とでるようにしたいのです。その際テキストボックス２には何も入力されないままでお願いします。
わかりにくい説明ですみませんがよろしくお願いします。

回答No.3

kagep

#2の訂正です

＞Private function Chk_Numeric(bybal strBuff) as integer を

Private function Chk_Numeric(byval strBuff as string) as integer
に修正です。

引数の型宣言が抜けてました・・・
おまけにByBalって何？　ってことで、すんまそん。。。(^^;

お礼

わざわざ丁寧に説明してくださって、ありがとうございます。

回答No.2

kagep

こんなんでどうですか？

'足し算の処理
dim intAnswer as integer

intAnswer = Chk_Numeric(TextBox1.text) + Chk_Numeric(TextBox2.text) '足し算の実行
　TextBox3.text = Cstr(intAnswer)'int型の計算結果をStringに変換して、回答TextBoxにセット

'string型のデータを数値判定して、数値ならintに変換、数値でなかったら０を返す関数
Private function Chk_Numeric(bybal strBuff) as integer
if Not Isnumeric(trim(strBuff)) then '引数が数値でなかったら０を返す
Chk_TextBox = 0
else
Chk_TextBox = cint(strbuff)
end if
end function

回答No.1

neue_reich

テキストボックスの中身が数字かどうかをチェックさせて、数字でなければ０とするように
計算する前に処理を入れれば良いかと思いますよ。