VB.NET在子进程中调用主进程控件的方法

本文探讨了在VB.NET窗体应用中,如何解决查询网卡信息导致的加载延迟问题。提出了将耗时操作放入子进程执行,待完成后再通过调用主进程控件显示结果的方法,以保持主进程窗体加载速度。

当前遇到的问题:VB.NET窗体应用程序。在主进程中查询电脑网卡信息是个非常耗时的操作。实际的软件的应用中影响windows窗体的加载速度。现想达到一个要求,就是将非常耗时的操作放在子进程中操作,主进程加载窗体时不受影响,等到耗时操作查询网卡信息完成,再将结果通过调用主进程中的控件显示出来。

解决方案:使用代理机制,具体代码如下。
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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值