Question

首先，我希望我正确地陈述我的问题。我正在使用VB.NET创建数据库桌面应用程序。我希望我的UI与Microsoft Money具有相同的相似性。通过这个，现在我想让我的所有文本框都以这种方式运行：

平
没有边框，或者如果鼠标悬停在它上面，它仍然会被强调。

这就是全部。我认识到在TextButton中，我们有FlatAppearance，所以我们可以调整所有Button的行为。但TextField也没有发生同样的情况。

有没有解决这个问题的简单方法？

谢谢，

英弘精

Answer 1

你可以尝试这样的事情。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each control As Control In Me.Controls ' Check every control
            If control.GetType().Equals(GetType(TextBox)) Then ' Proceed if it is a TextBox
                Dim textBox As TextBox = control ' So we have the right type
                AddHandler textBox.MouseEnter, Sub() textBox.BorderStyle = BorderStyle.FixedSingle ' Mouse over state
                AddHandler textBox.MouseLeave, Sub() textBox.BorderStyle = BorderStyle.None ' Mouse away state
                textBox.BorderStyle = BorderStyle.None ' Set initial state
            End If
        Next
End Sub

在开头循环遍历每个控件可能不是最好的方法，但这是获得一个有效例子的最简单方法。

如果您还需要其他任何内容，请说明萨姆。

如何使VB.NET TextBox字段具有FlatAppearance效果，如在Button中？

1 个答案: