请在文本框VB +中设置默认值

时间:2014-09-16 11:48:13

标签: vb.net vba visual-studio-2012

我正在VB和Arduino同时工作。我的主要目的是在VB的Textbox上连续显示数据

现在我想如何将字符串或串行数据输出到文本框中。 我有谷歌,但sytax不工作 我创建了简单的文本框并指定了变量abcd,现在我想在文本框中显示Abcd。

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        TextBox1.Text = "ABCD"
    End Sub

如果我想读取串行数据,请在文本框中显示

Private Sub Current_Read_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SerialPort1.Open()
        Dim str As String
        str = SerialPort1.ReadExisting
        Current_Read.Text = str
        SerialPort1.Close()
    End Sub

为什么它不起作用

2 个答案:

答案 0 :(得分:0)

您的代码没有按预期生成,因为您使用的代码只会在textbox中输入任何内容时执行,而使用此代码时您无法输入当您在其中键入任何内容时,textbx中的任何内容都将导致"ABCD"。避免这种情况 将此代码TextBox1.Text = "ABCD"TextBox1_TextChanged事件移至form_Load事件。

  Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.Text = "ABCD"
  End Sub

答案 1 :(得分:0)

出于某种原因尝试这个。添加一个按钮并双击该按钮,以便将代码写入事件Button_Click

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    SerialPort1.Open()
    Dim str As String
    str = SerialPort1.ReadExisting
    Current_Read.Text = str
    SerialPort1.Close()
End Sub

运行该应用程序。然后单击按钮