如何在VB中单击时删除文本框中的默认文本？

Question

到目前为止，我有一个文本框的代码：

Private Sub Pop1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pop1.TextChanged
    If String.IsNullOrEmpty(Pop1.Text) Then Pop1.Text = "0,00"
End Sub

我用谷歌搜索了手柄中需要GotFocus，但不知道该怎么做。有什么想法吗？

Answer 1

请记住，用户可能会使用Tab键进入或离开TextBox，所以也许你想要更像

的东西

Private Sub Pop1_Leave(sender As Object, e As EventArgs) Handles Pop1.Leave
    If Pop1.Text = "" Then
        Pop1.Text = "0,00"
    End If
End Sub

Private Sub Pop1_Enter(sender As Object, e As EventArgs) Handles Pop1.Enter
    Pop1.Text = ""
End Sub

您可以通过在设计器中选择并查看属性窗格来查看控件可用的事件 - 单击黄色闪电按钮以查看事件。