從字符串“”到類型“ Double”的轉換無效。 在VB.NET中

Question

一般來說，我對編程完全陌生，因此我決定制作一個簡單的小計算器作為我的第一個項目。

我一直在獲取“從字符串“”轉換為“ 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

Answer 1

嘗試此操作，假設您希望將“”轉換為0

Dim val1 As Double

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

我認為，我的VB生銹了。

PS，您會通過選擇.net而不是依賴CDbl等舊式VB6來為自己帶來很多好處。