1

一般来说，我对编程完全陌生，我决定制作一个简单的小计算器作为我的第一个项目。

我一直收到“从字符串转换”到类型“双”的错误。” 每次我点击 ButtonPlus。

完整代码： http: //pastebin.com/JJxkg4fy

在我有 ButtonPlus 代码的底部附近，我试图将 TextBox1 中的文本转换为双精度文本。真正令人困惑的是，当我尝试分裂时它不会发生。当我按下除法按钮时，什么也没有发生。：/

    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 you'll do yourself a lot of favours by picking up the .net side of things instead of relying on legacy VB6 stuff like CDbl etc.

于 2012-06-27T22:59:08.667 回答