vb.net - 显示文本框工具提示

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