VB.NET跨线程给TextBox.Text赋值无显示且程序停止运行如何解决？

Windows 窗体的UI控件仅允许在创建它的主线程（UI线程）中修改属性，你在自定义的后台线程thlogin1中直接修改textbox.Text会触发跨线程操作异常，这就是程序停止运行、文本框无内容显示的根本原因。MessageBox.Show可以正常输出是因为它的弹窗逻辑不依赖当前窗体的UI线程上下文限制。

方案1：兼容现有线程写法（手动处理跨线程调用） #

修改Login1方法逻辑，通过Invoke将UI更新操作抛回UI线程执行即可：

Private Sub Login1(ByVal user As String, ByVal pass As String, ByVal target As String)
    Dim k As String = user
    If textbox.InvokeRequired Then
        ' 跨线程场景下通过委托交给UI线程执行赋值
        textbox.Invoke(Sub() textbox.Text = k)
    Else
        ' 非跨线程场景直接赋值
        textbox.Text = k
    End If

    ' 后续你的其他业务逻辑
End Sub

如果需要实时同步变化的user值，每次拿到新的user值时都按照上述逻辑更新文本框即可。

方案2：异步写法（更推荐，无需手动管理线程） #

如果你的网络请求逻辑支持异步调用，改用Async/Await写法可以完全避免跨线程问题，也不需要手动开线程：

' 触发登录的方法添加Async修饰符
Private Async Sub 你的登录触发方法名()
    ' 这里替换成你实际的异步网络请求方法，Await期间不会卡住UI
    Dim user = Await 异步登录请求方法(pass, target)
    ' Await执行完成后会自动切回UI线程，直接赋值即可
    textbox.Text = user
End Sub

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