显示文本框工具提示

Question

我正在尝试在vb.net的工具提示中工作。我试图做的是无论我写在文本框控件中的文本显示在工具提示中。我能够在工具提示中显示文本，但我的问题是当我编辑输入文本时，它会在弹出的工具提示中显示新旧文本。这是我迄今为止所做的。

Public Class Form1 
    Dim s As String = "" 

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click 
    s = TextBox1.Text 
    Dim tooltip1 As System.Windows.Forms.ToolTip = New System.Windows.Forms.ToolTip() 

    tooltip1.SetToolTip(Button1, s) 
    End Sub 
End Class 

谢谢。

Answer 1

很难弄清楚为什么这是有用的，但尝试使用TextChanged事件文本框的更新提示：

Private _ToolTip As New ToolTip() 

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) _ 
           Handles TextBox1.TextChanged 
    _ToolTip.Show(TextBox1.Text, TextBox1) 
End Sub