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

名前

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

本文 お返事有難う御座います。 Private Sub cmb41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb41.Click Dim teihen, takasa, syahen, kakudo, kakudo2, kakudo3, kakudo4, radian As Double teihen = Val(txb41.Text) takasa = Val(txb42.Text) syahen = Val(txb43.Text) kakudo = Val(txb44.Text) kakudo2 = Math.Atan(takasa / teihen) kakudo3 = Math.Asin(takasa / syahen) kakudo4 = Math.Acos(teihen / syahen) radian = 180 / Math.PI If txb41.Text And txb42.Text = True Then lbl47.Text = Math.Sqrt(teihen ^ 2 + takasa ^ 2) lbl48.Text = kakudo2 * radian ElseIf txb42.Text And txb43.Text = True Then lbl45.Text = Math.Sqrt(syahen ^ 2 - takasa ^ 2) lbl48.Text = kakudo3 * radian Else End If という様なコードを書いています。 Elseifでまだ続けたいのですが、一回目の回答は出るのですが、 二回目でエラーになります。 String""から型'Boolean'への変換は無効です。 というエラーです。 宜しくお願いします。