1

私はプログラミング全般についてまったくの初心者で、最初のプロジェクトとして簡単な小さな計算機を作成することにしました。

「文字列」から「Double」型への変換は有効ではありません。ButtonPlusをクリックするたびに。

完全なコード: http://pastebin.com/JJxkg4fy

ButtonPlus のコードがある下部近くで、TextBox1 のテキストを double に変換しようとしています。本当にややこしいのは、割ろうとしてもそれが起こらないことです。分割ボタンを押しても何も起こりません。:/

    Private Sub ButtonPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlus.Click
    If CInt(True) Then Val1 = CDbl(TextBox1.Text)
    Opperan = "+"
    TextBox1.Clear()
    Funct.Text = "+"
End Sub

Private Sub ButtonDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlus.Click
    If CInt(True) Then Val1 = CDbl(TextBox1.Text)
    Opperan = "/"
    TextBox1.Clear()
    Funct.Text = "÷"
End Sub
4

1 に答える 1

1

"" を 0 に変換したいと仮定して、これを試してください

Dim val1 As Double

If Not Double.TryParse(TextBox1.Text, val1) Then
   val1 = 0
End If

私のVBは錆びていると思います。

PS CDbl などの従来の VB6 のものに依存するのではなく、.net 側のものを選択することで、多くの恩恵を受けることができます。

于 2012-06-27T22:59:08.667 に答える