工具提示无法在线程中工作

Question

我想在一个线程中显示工具提示这里是一个代码我写的工作没有线程

%.PREREQUISITES

Answer 1

您无法使用来自其他线程的UI控件，而不能使用创建它们的线程。这是所有语言和所有操作系统的规则。

你必须在正确的线程上调用它：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  Dim th As New Thread(AddressOf test)
  th.Start()
End Sub
Sub test()
  BeginInvoke(Sub()
                ToolTip1.Show("test", Label1, 1000)
              End Sub)
End Sub