• 締切済み

教えてください。。。

try...catch構文を使ってテキストボックスに数字以外のものを 入力した時にエラーメッセージが表示するようにしたいのですが どのようにソースを書いたらいいのでしょうか？ 教えてください。

みんなの回答

  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.2

>もっと簡単なソースの書き方はないでしょうか？ Catch を１つにするとか

  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.1

VB.NETだったら こんな感じとか Dim decimalVal As Decimal = 0 Dim Flag As Integer = 0 TextBox2.Text = "ＯＫ" Try decimalVal = System.Convert.ToDecimal(TextBox1.Text) Catch exception As System.OverflowException Flag = 1 'オーバーフロー TextBox2.Text = "オーバーフロー" Catch exception As System.FormatException Flag = 2 '書式がおかしい TextBox2.Text = "書式がおかしい" Catch exception As System.ArgumentException Flag = 3 'Null TextBox2.Text = "未入力" End Try あと最近似たような質問がありました http://okweb.jp/kotaeru.php3?q=1671984

smily0021
質問者

お礼

答えてくれてありがとうございます。 でも、もっと簡単なソースの書き方はないでしょうか？

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 基本的な質問で本当に申し訳ありません。

    VB6で計算できるようなプログラムを作っています。 今３つのテキストボックスを作っています。そこにそれぞれ数字を入れてボタンを押すと計算結果が4つ目のテキストボックスに表示されるよう　にしたいのです。 そこで質問したいのですが (1) 3つのテキストボックスすべてが入力されるまで変換ボタンを使用できない（押せない）ようにするのはどのようにしたらいいのでしょうか？ (2) 3つのテキストボックスに入力された文字が数字以外の場合エラーメッセージ（数字を入力してくだい）と言う表示を出したい場合どのようにしたらいいのでしょうか？ 上記の質問についてお解かりの方は、ぜひとも説明と方法を教えていただければと思っていますよろしくお願いします。

  • for文、if文、ｂreak文

    テキストボックスに数字を入力してボタンをクリックするとメッセージを 　表示するようにします。メッセージは数字が{1, 3, 6, 8, 10, 11, 14}のう 　ちのどれかであれば、「選択できます。」、それ以外は「選択できません。」 　と表示します。

  • Try, Catch についての質問

    すみません！！VB超初心者です。 PriceとCostのテキストボックスにマイナスやアルファベットを記入して計算ボタンを押した場合、Errorを示すメッセージボックスを出したいのです。 ところが、このプログラムだとちゃんと正の数字を入れた場合でもエラーのメッセージボックスがでてしまいます・・・。これはなぜなのでしょうか？よろしくお願いします！ Dim priceDecimal, costDecimal, answerDecimal As Decimal Try priceDecimal = Decimal.Parse(txtprice.Text) costDecimal = Decimal.Parse(txtcost.Text) answerDecimal = Decimal.Parse(lblcomission.Text) Try txtprice.Text = priceDecimal < 0 txtcost.Text = costDecimal < 0 Catch priceException As FormatException MessageBox.Show("You have entered Invalid Data.", "Error", MessageBoxIcon.Exclamation) End Try Catch costException As FormatException MessageBox.Show("You have entered Invalid Data", "Error",MessageBoxButtons.OK, (MessageBoxIcon.Exclamation) End Try answerDecimal = Commision_rate_Decimal * (priceDecimal - costDecimal) lblcomission.Text = answerDecimal.ToString("C") End Sub

  • アクセスのフォーム上のテキストボックスについて

    アクセスのフォーム上のテキストボックスについて フォーム上のテキストボックスに直接数字を入力しようとしています。ただ、このテキストボックスのコントロールソースはフォームのレコードソースと違うものです。 この状況でテキストボックスに数値を直接入力しようとすると、『コントロールソースに連結しているので、編集できません。』と表示され、入力出来ません。 どうすれば、解決できるのかご存知の方、教えて下さい。宜しくお願いします。

  • フォームのテキストにテーブルの合計額を表示したい

    「T合計」テーブルの「数字」フィールドにいくつかのレコードに数字が入力されています。 このT合計の合計額をフォームのテキストボックスに表示させたいのですがうまくできません。 クエリ1を作成し、式1: Sum(T合計!数字)としたらうまく表示できました。 フォームのテキスト0のプロパティの「コントロールソース」に「=クエリ1!式1」としたら「#Name?」になってしまいます。 また、「コントロールソース」に「=Sum([T合計]![数字])」といれたら「#エラー」になってしまいます。 そもそも「コントロールソース」に入力することが間違えなのでしょうか？ どうすればテキストボックスにT合計の合計額を表示することができるのでしょう？ よろしくお願い致します。

  • 特定の数字でなければエラーを出したい

    こんにちは。　Visual Studio 2005を用いてVisual C++を使ったフォームアプリケーションを作成しています。 ３つのテキストボックスＡ、Ｂ、Ｃとボタンがあります。 テキストボックスに数字(半角)を入力させてボタンを押させるのですが、ボタンを押した時に、 Ａは0,1,2 Ｂは0,1,2,3 Ｃは0,1,2,3,4 のどれかを入力している時のみＯＫにして、それ以外の文字や数字を入力していた場合はエラーメッセージを出すようにしたいのです。 できるだけ簡単なコードで記述したいのですが、良い方法があればどうぞよろしくお願いします。

  • 整数かどうかチェックする

    テキストボックスに数字を入力させてボタンを押した時、 その数字が１桁の整数(0から9)でなければエラーメッセージを出すようにしたいのですが、何か簡単なコードはありますか？ (5.6などの小数や、"a"や"あ"など数字ではない文字が入力された場合も同様にエラーを出したい) １つずつ0から9までifでチェックしなければいけないのでしょうか。

  • ＶＢ　3つの条件

    １、テキストボックスに０が入力された際、msgboxでエラー表示を出す ２、何も入力しないと同じくエラーを出す ３、数字以外の文字を入力するとエラーを出す このプログラミングが両立して出来ません＞＜。 １と２が出来て３が出来なくなり ２と３が出来ると１が出来なくなる状態です どのようにプログラミングすれば良いか教えてください；；

  • PHPのis_numeric関数の使い方について

    添付ファイルの検索フォームで文字条件検索と数値条件検索それぞれの テキストボックスの検索ボタンを押したとき、入力されている文字に応じて以下 の処理をis_numeric関数で実装するにはどうすればいいでしょうか？ PHPに詳しい方いましたら教えて頂きたいです。 ・文字条件検索 未入力：未入力であることを伝えるエラーメッセージの表示 ・数値条件検索 数値入力：数字以外の文字が入力された場合はエラーメッセージを表示(数字が入力された場合は戻り値TRUEを返す) 未入力：未入力であることを伝えるエラーメッセージの表示

    • ベストアンサー
    • PHP
  • 例外処理の使用方法（VB.NET）

    以前、PictureBoxの背景色変更について質問をさせていただいたものです。 （http://okwave.jp/qa3795334.html） その中で、数値を直接テキストボックスに入力し 以下の場合はエラーとして処理をしたいと思っています。 １．テキストボックスが空白の場合 ２．0～255の範囲内に無い数字が入力された場合 ３．上記２つ以外の全て Try～Catchを利用し、２は Catch ex As ArgumentException とし、３は Catch ex As Exception としたところうまくいきましたが テキストボックスが空白の場合、という処理がどうしてもわかりません。 考えられうる例外クラス名はすべて試したのですが どれもうまくいきませんでした。 上記３つの条件すべてを満たせる例外処理をするには いったいどうすればいいでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する