解决方案:使用代理机制,具体代码如下。
1. 声明一个代理,要使用关键字 Delegate
Public Delegate Sub MyDelegate()
2. 主进程中起一个子进程,子进程中指定相应代理。
Private Sub IndexForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim th1 = New Thread(AddressOf MyThreadProc)
th1.Start()
End Sub
3. 定义子进程中代理函数,该函数使用声明好的代理来执行耗时操作。
Public Sub MyThreadProc()
Me.Invoke(New MyDelegate(AddressOf UpdateText))
End Sub
4. 定义代理需要使用的函数,耗时操作和主进程中的控件调用就放在该函数中。该函数作用是查询本机IP地址。
Public Sub UpdateText()
Dim strComputer = "."
Dim ints() = NetworkInterface.GetAllNetworkInterfaces()
Local_MAC.Text = ints(0).GetPhysicalAddress().ToString()
Dim objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Dim colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfigurat