複数テキストボックスでの条件分岐?? (ID:141662)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まず、御存じのこととは思いますが基本となるIf文の記述方法について振り返ります。 If [評価する式１] Then [命令文１] ElseIf [評価する式２] Then [命令文２] Else [命令文３] End If Ifステートメントでは、[評価する式１]がTrueの場合、[命令文１]が実行されます。 [評価する式１]がFalseならば ElseIf 以降の処理が実行されます。 [評価する式２]がTrueならば[命令文２]が実行され、False（それ以外）の場合[命令文３]が実行されます。 一旦おいといて… ご提示いただいたプログラミングコードでは > If txb41.Text And txb42.Text = True Then とありますが、これは If (txb41.Text And (txb42.Text = True)) Thenと記述した内容とほぼ等価の内容です。 コードデザイナ画面で、txb42.Textに波線が表示されているのはtxb42.TextがString（文字列）型で、Boolean型ではない事が理由です。 CBool(txb42.Text)とすると波線が消えるのは文字列をBoolean型にキャストした事に由来します。 （CBoolの内容については私の方では触れませんのでMSDN等で調べてみる事をお勧めします。） CBool(txb42.Text)と修正すると今度は、txb41.Textに波線が表示されたと思います。 これも、txb41.TextがBoolean型で評価できない為に表示されているのですが、txb42.Text = Trueの時とは少し内容が異なります。 txb42.Textの時は明示的にtxb42.Text = True と式が記述されていますが、txb41.Textには式が記述されていません。 という事は、txb41.Textには評価式が存在しない事になり、これだけに焦点をあてると If txb41.Text Then という記述であると言えます。 最初の方にご説明したように、Ifステートメントでは、 If [評価する式１] Then の結果が正しいか、正しくないか（True or False)で分岐されますので、内部では[評価する式１]はBoolean型で評価されている事になります。 従って、式として成立していないtxb41.TextではBoolean型での評価ができず、波線が表示されてしまう結果となるのです。 以上を踏まえて… txb41.Textとtxb42.Textがどの様な場合にTrueなのかは kentaさんにしか分からない事なのですが、 私ならテキストボックスに数字が入力されていて、しかも数値に置き換えた値が0以上でなくてはならない。とした場合、 If (CDbl(txb41.Text) > 0 And CDbl(txb42.Text) > 0) Then と記述すると思います。 そうなると、kentaさんのコードで > Dim teihen, takasa, syahen, kakudo, kakudo2, kakudo3, kakudo4, radian As Double > > teihen = Val(txb41.Text) > takasa = Val(txb42.Text) と、txb41.Textの文字列とtxb42.Textの文字列を値に変換してDouble型の変数に代入しているので、その変数を使って、 If (teihen > 0 And takasa >0) Then としてもOKだという事になります。