如何从Class类更新Form1中的Label控件？

核心问题点 #

1. Class1.Frm 未绑定Form1实例：虽声明了Shared属性，但未在Form1启动时将当前实例赋值给它，导致调用Frm.GoodProxyCount()等方法无响应甚至抛出空引用异常。
2. 字符串直接数值运算错误：lblProxies.Text是字符串类型，直接用>0或-=1会触发隐式类型转换异常，导致更新逻辑失效。
3. 无限循环阻塞线程：Class1.GetProxies()里的While True是死循环，后续线程清理代码永远执行不到，还会导致线程资源无法释放。
4. 控件更新的线程安全处理不严谨：字符串转整数逻辑放在Invoke外，仍可能出现线程安全问题。

修正后的代码 #

Form1 代码调整

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 绑定Class1的Frm属性为当前Form1实例
        Class1.Frm = Me
        ' 初始化Label数值，避免空字符串转换异常
        lbl_count.Text = "0"
        lblProxies.Text = "0"
    End Sub

    Public Sub OnBadRequestChanged()
        Try
            Dim currentProxyCount As Integer
            ' 安全转换字符串为整数
            If Integer.TryParse(lblProxies.Text, currentProxyCount) Then
                Me.Invoke(Sub()
                              If currentProxyCount > 0 Then
                                  lblProxies.Text = (currentProxyCount - 1).ToString()
                              Else
                                  If Not chkManualProxies.Checked Then
                                      btnScrapeStart.PerformClick() ' 直接调用PerformClick而非方法名
                                  End If
                              End If
                          End Sub)
            End If
        Catch ex As Exception
            ' 可添加日志记录异常，方便排查
        End Try
    End Sub

    Public Sub GoodProxyCount()
        Try
            ' 线程安全读取_Count值
            Dim currentGoodCount = Interlocked.Read(Class1._Count)
            Me.Invoke(Sub()
                          lbl_count.Text = currentGoodCount.ToString()

                          Dim currentProxyCount As Integer
                          If Integer.TryParse(lblProxies.Text, currentProxyCount) Then
                              If currentProxyCount > 0 Then
                                  lblProxies.Text = (currentProxyCount - 1).ToString()
                              Else
                                  If Not chkManualProxies.Checked Then
                                      btnScrapeStart.PerformClick()
                                  End If
                              End If
                          End If
                      End Sub)
        Catch ex As Exception
            ' 可添加日志记录异常
        End Try
    End Sub

    ' 示例：停止线程的方法（需要时调用）
    Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
        Class1.IsRunning = False
    End Sub
End Class

Class1 代码调整

Imports System.Threading

Public Class Class1
    Public Shared Property Frm As Form1
    Public Shared _Count As Integer
    Public Shared IsRunning As Boolean = True ' 添加线程运行标记

    Public Shared Sub GetProxies()
        Try
            While IsRunning ' 用标记代替死循环
                Try
                    ' 你的代理检测逻辑代码

                    Interlocked.Increment(_Count)
                    Frm?.GoodProxyCount() ' 空值保护，避免Frm未赋值时崩溃

                Catch ex As Exception
                    Frm?.OnBadRequestChanged() ' 空值保护
                End Try
            End While
        Finally
            ' 确保线程清理代码执行
            Properties._runningThreads.Remove(Thread.CurrentThread)
        End Try
    End Sub
End Class

额外注意事项 #

• 所有UI控件操作必须在UI线程执行：更新Checkbox、单选按钮、ListView等控件时，同样需要用Invoke/BeginInvoke包裹操作逻辑，示例：

  ' 更新Checkbox状态
  Frm.Invoke(Sub() Frm.chkManualProxies.Checked = True)
  ' 填充ListView
  Frm.Invoke(Sub()
                 Frm.ListView1.Items.Add(New ListViewItem({"代理IP", "端口"}))
             End Sub)
  

• 线程安全：多线程环境下，对Shared变量的读写必须用Interlocked类方法，避免竞态条件。
• 空值保护：使用Frm?（空条件运算符）确保在Frm未赋值时不会抛出空引用异常。

内容的提问来源于stack exchange，提问作者MiningChamber