覆盖 Visual Basic 标签文本答案

【问题标题】：Overwrite Visual Basic label text覆盖 Visual Basic 标签文本
【发布时间】：2012-05-24 23:15:27
【问题描述】：

我正在将一个温度值从收发器读取到串行端口中，并且我希望这个值能够更改我的 Visual Basic 表单中标签的值。这个值每隔几秒就会改变一次。我正在使用下面的代码：

Me.dataReceived.Text &= [text]

dataReceived 是我使用的标签，[text] 是我从串口读取的数据。这会导致显示数据，但不是覆盖标签，而是一个接一个地写入值。（数据已附加）。我试图在 = 之前删除 & 但这没有用，因为什么也没出现。关于我能做什么的任何想法？

我使用的代码如下：

'To receive data into the text field
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

    While (SerialPort1.IsOpen)
        ReceivedText(SerialPort1.ReadExisting())    'This is called automatically every time  data is received at the Serial Port
    End While

End Sub

Private Sub ReceivedText(ByVal [text] As String)

    Dim temperature As String

    'This function compares the creating Thread's ID with the calling Thread's ID
    If Me.dataReceived.InvokeRequired Then
        Dim x As New SetTextCallback(AddressOf ReceivedText)
        Me.Invoke(x, New Object() {(text)})
    Else
        'To output to the text box:
        Me.dataReceived.Text = text

        'To output to the label
        temperature = text
        Me.temp.Text = text
        hmd.Text = temperature

    End If
   End Sub

【问题讨论】：

&= 符号表示追加，= 应该可以工作
尝试删除参数中文本周围的方括号。你有 Option Strict 吗？
@TamaraCaligari - Option Strict On（后果自负）

标签： vb.net label

【解决方案1】：

如果你想覆盖旧值，你不应该使用&=而只使用=来分配新值：

Me.dataReceived.Text = newText

&= 与Me.dataReceived.Text = Me.dataReceived.Text & newText 相同

来自MSDN：

&= 运算符将其右侧的字符串表达式连接到左侧的 String 变量或属性，并将结果分配给左边的变量或属性。

【讨论】：

@TamaraCaligari：您可以编辑您的问题并显示更多您尝试过的内容吗？ Me.dataReceived.Text = newText 是用新文本覆盖旧文本的唯一工作方式。因此问题一定出在其他地方。
@TamaraCaligari：在ReceivedText 的Me.dataReceived.Text = text 处设置一个断点，看看它是否被命中。
如果 [text] 是一个空字符串，它显然会覆盖它，而如果您使用 &=，则似乎没有任何改变。确保 [text] 不是空字符串（或只是空格）

【解决方案2】：

试试这个：

If (text IsNot Nothing) AndAlso (text.Trim().Length <> 0) Then
    Me.dataReceived.Text = text
End If

我对 SerialPort 类不太熟悉，但我会尽力解释发生了什么。当有新数据通过串口进来时，串口会引发数据接收事件。然后，您的代码会读取所有已收到的现有数据。当您调用 ReadExisting 方法时，它只返回到目前为止已收到的内容。它不会在返回之前等待所有数据进入。然后它调用 ReceivedText 方法，该方法将某些控件的值设置为接收到的文本。 InvokeRequired 和 Invoke 调用只是为了让您回到 UI 线程。显然 SerialPort 的 DataReceived 事件可能在单独的线程上引发，因此您需要返回 UI 线程，然后才能对表单上的任何控件执行任何操作。我建议的更改只是检查以确保在更改文本框的值之前收到的文本不为空或为空。该代码的奇怪之处在于它继续从串行端口读取，直到它不再打开。我不认为你会想要那样做。相反，我认为在每个 DataReceived 事件中，您只需调用 ReadExisting 一次，然后期望在下次收到更多数据时再次引发它。通过在循环中连续调用 ReadExisting，如果没有更多数据要读取，它必须返回空字符串或空字符串，这就是文本框被空白的原因。

【讨论】：

您能否准确解释一下该函数在做什么，因为我不知道它在做什么。谢谢:)

【解决方案3】：

&= 正在连接您的文本。使用= 覆盖标签。

Me.dataReceived.Text = text

【讨论】：

【解决方案4】：

我不确定发生了什么，但很可能text 在设置dataReceived.Text 时没有值。试试这个，

Private Sub ReceivedText(ByVal datatext As String)
     Me.Invoke(Sub()   
                    'To output to the text box:
                    Me.dataReceived.Text = datatext

                    Me.temp.Text = datatext
                    hmd.Text = datatext
               End Sub)
    End If
End Sub

我将text 更改为datatext，因为text 可能与本地text 属性的表单混淆。我还将标签/文本框的文本属性设置移动到使用 lambda 的调用中（请注意，此语法是新语法，仅适用于 VB 2010）。我觉得您的调用语句可能没有正确传递字符串值。我还删除了对InvokeRequired 的检查，因为调用在这两种情况下都有效，而且看起来你可能只是每次都在进行线程调用。

如果它为你编译，它应该可以工作。如果不是，则可能永远不会调用RecievedText。设置一些断点并单步执行代码以查看 datatext 有一个值并且 ReceivedText 实际被调用。

【讨论】：