締切済み

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

2003/03/20 08:01

テキストボックスに数字が入力されている場合はいいんですが、何も入力されていないときに、其のテキストボックスの値をゼロとすると、どうしてもテキストボックスに０と入力しなければ其のテキストを計算式に使えないので困っています。テキストボックスに何も表示されていないままにしたいのですが。（値はセロということのまま）　例えばテキストボックス1には１０、テクストボックス２には何も入力しないでそのままにする。ボタンをクリックすると、二つの値が足されて合計１０とでるようにしたいのです。その際テキストボックス２には何も入力されないままでお願いします。わかりにくい説明ですみませんがよろしくお願いします。

mui
お礼率36% (8/22)

Visual Basic
回答数3
ありがとう数2

みんなの回答 （3）
専門家の回答

みんなの回答

kagep
ベストアンサー率23% (171/721)

2003/03/20 16:49 回答No.3

#2の訂正です＞Private function Chk_Numeric(bybal strBuff) as integer を Private function Chk_Numeric(byval strBuff as string) as integer に修正です。引数の型宣言が抜けてました・・・おまけにByBalって何？　ってことで、すんまそん。。。(^^;

質問者

お礼 2003/04/02 17:49

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

ログインすると、全ての回答が全文表示されます。

kagep
ベストアンサー率23% (171/721)

2003/03/20 11:09 回答No.2

こんなんでどうですか？ '足し算の処理 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

ログインすると、全ての回答が全文表示されます。