Vb.net附加文本框的行

Question

        Case 0
            MyValues(0) = InputBox("Geef de wisselkoers (> 0 en < 500) voor de Euro tov Amerikaanse dollars (1 Eur = .... Amerikaanse Dollars")
            Do Until MyValues(0) >= 0 And MyValues(0) <= 500
                MsgBox("De parameters vallen buiten de wisselkoers. Lees de text nog maals in het volgende scherm")
                MyValues(0) = InputBox("Geef de wisselkoers (> 0 en < 500) voor de Euro tov Amerikaanse dollars (1 Eur = .... Amerikaanse Dollars")
            Loop
            Wisselkoersenlistbox.Text = String.Join(Environment.NewLine, MyValues)
        Case 2
            MyValues(1) = InputBox("Geef de wisselkoers (> 0 en < 500) voor de Euro tov Britse Ponden (1 Eur = .... Britse Ponden")
            Do Until MyValues(1) >= 0 And MyValues(1) <= 500
                MsgBox("De parameters vallen buiten de wisselkoers. Lees de text nog maals in het volgende scherm")
                MyValues(1) = InputBox("Geef de wisselkoers (> 0 en < 500) voor de Euro tov Amerikaanse dollars (1 Eur = .... Amerikaanse Dollars")
            Loop
            Wisselkoersenlistbox.Text = String.Join(Environment.NewLine, MyValues)

现在可以使用了：-）非常感谢！！！！ 我点击了加号，但直到15岁才放弃：(

Answer 1

正如@the_lotus在评论中提到的那样，您试图将日期存储在文本框中并在其中进行操作。 这带来了很多问题。 将信息存储在数组中更容易，根据需要进行更新，然后在信息更改时重新构建文本框内容...

' Declare a variable to hold your messages. I've gone with 5 here but it can be any reasonable number (or you can use ReDim to change size later if you don't know from the start)
Dim MyMessages(5) As String {"Default Values go here (if any)", "Line2", "Line3", String.Empty, String.Empty}

' Update them as required in your existing Select Case statement

Case 0
    ' ... Other code ...
    ' Update message at index 0 (Line #1) to be whatever they input
    MyMessages(0) = InputBox("Geef de wisselkoers (> 0 en < 500) voor de Euro tov Amerikaanse dollars (1 Eur = .... Amerikaanse Dollars")
Case 1
    ' ... Other code ...
    ' Update message at index 1 (Line #2) to be "Something"...
    MyMessages(1) = "Something"

' ...etc...


' Finally, update the textbox so all messages are shown one-per-line

MessageBox1.Text = String.Join(Environment.NewLine, MyMessages)

回复：关于格式的评论

您尝试使用的正确语法是……

Wisselkoersenlistbox.Text = String.Join(" amerikaanse Dollar" & Environment.NewLine & "1 Euro = ", MyValues)

不幸的是，这不是很有帮助，因为它仅将字符串放在值之间，而不是在第一个值之前或在最后一个值之后。

更有用的是在将变量添加到数组时简单地格式化它们...

Dim format = "1 Euro = {0:0.00} amerikaanse Dollar"
Dim input = Double.Parse(InputBox("..."))
MyMessages(x) = String.Format(format, input)

我们提供的格式字符串显示了放置数字的位置，还应始终显示2个小数位（不多/少）。

值得注意的是，不建议使用单或双数据类型的货币-随着数字的增加，精度会下降（这只是浮点算法工作的副作用）。 显示信息/计算近似值可能会很好，但是不要将其用于任何严重的事情，尤其是当结果一起使用且错误可能加重时。

例如，尝试执行以下操作：

Dim Total as Double
For i = 1 to 1000000
    Total = Total + 1 / 1000000
Next i

直观地，在此循环结束时， Total应该恰好为1。 实际上，它会比i 。

对于货币，请使用“ Decimal数据类型并指定所需的正确度。