vb.net文本框未显示文本或颜色

编程问答 2022-06-11

问题描述

我有许多应用程序可以在文本框中可靠地显示数据和颜色。我复制了一个工作程序来制作新的应用程序。我大约有10个文本框用于数据显示。有些有效-有些无效。这里有2个示例-开关代码可在许多程序中使用-但此处它将在框中显示单词“ ON”，但没有颜色，然后在关闭开关时未更改文本框。该代码似乎不在乎.AppendText或.text =变量控件之间。我尝试将文本框的属性更改为public，但没有运气。我尝试添加.show对象，并在属性视图中验证了.visible属性。 distanceUnitsOut和NextimagedistanceOut也存在类似的问题-我可以单步执行代码并查看值，但显示的数据不会改变！我试图将显示器的定义更改为公开-不高兴！

    SwitchStatusBox.clear
    SwitchStatusBox.AppendText(SwitchStatusIn)
    If SwitchStatusIn = "OFF" Then
        SwitchStatusBox.BackColor.Equals(Color.Red)
        SwitchStatusBox.Show()
        Switch_Is_On = False
    Else
        SwitchStatusBox.BackColor = Color.Green
        SwitchStatusBox.Show()
        Switch_Is_On = True
    End If

     If ddistance > 1.0 Then
        'show distance in Miles
        distanceUnitsOut.Clear()
        distanceUnitsOut.Text = "MI"
        NextimagedistanceOut.Clear()
        NextimagedistanceOut.Text = CType(ddistance,String)
    Else
        NextimagedistanceOut.Clear()
        NextimagedistanceOut.Text = CType(ddistanceFT,String)
        distanceUnitsOut.Clear()
        distanceUnitsOut.Text = "FT"
    End If  


    Private Sub NextimagedistanceOut_TextChanged(sender As Object,e As EventArgs) Handles 
             NextimagedistanceOut.TextChanged
 
     End Sub

     Private Sub distanceUnitsOut_TextChanged(sender As Object,e As EventArgs) Handles 
                distanceUnitsOut.TextChanged

     End Sub

解决方法

查看.Equals函数如何工作... 

Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
    Dim a = TextBox1.BackColor.Equals(Color.Red)
    Debug.Print(a.ToString)
End Sub

在我的测试应用中，这会在“即时”窗口中显示False。

,

答案是，前一段时间我开始使用，后跟TEXT =，如：

       NextImageDistanceOut.Text = CType(dDistanceFT,String)

有效的方法是：

      NextImageDistanceOut.Appendtext(CStr(dDistanceFT))

我仍然不明白为什么第一个不起作用-都需要一个前一个

     NextImageDistanceOut.Clear
textboxtextboxvb.netvb.net