顯示文本框工具提示

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