多线程与UI交互的问题2

2006-08-14 11:42:41 398 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WinForms开发基础之UI线程与多线程编程在 WinForms 开发中，处理用户界面 (UI) 线程与后台线程的交互是一个常见且非常重要的技能。理解线程的工作方式，并掌握如何避免阻塞 UI 线程，对于构建响应快速、稳定的应用程序至关重要。本文将深入探讨 UI 线程与多线程编程在 WinForms 中的应用。为了避免 UI 线程阻塞，我们通常需要使用多个线程来并发处理任务。Thread类：可以通过创建Thread对象来手动管理线程。类：为执行后台任务提供了一个简化的接口。Task类（推荐）：基于异步编程模型，提供了更现代、灵活的线程管理方式。阅读详情

见老帖：http://community.csdn.net/Expert/TopicView3.asp?id=4943838
采用Knight94(愚翁) 的方法解决了"区分并稳定的显示各线程反馈的信息"的问题，但随之冒出来一个新的问题，就是：在线程执行的过程中，界面不能动了。

...全文

OpenClaw + Qwen 模型集成飞书完整教程 1、环境要求：- **操作系统**: Windows- **Node.js**: v18+ (推荐 v20+)- **飞书账号**: 需要企业管理员权限（创建应用用）或者个人飞书账号创建个人应用- **网络**: 能访问 GitHub 和飞书开放平台2、安装Node.js下载完成后验证是否安装成功，cmd窗口输入“node --version”，显示版本号即为安装成功（如下图所示）3、获取大模型APIKEY（这里以Qwen为例）阅读详情

dongshanyu

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

dongshanyu 2006-08-15

打赏
举报

水如烟 2006-08-14

打赏
举报

呵,我刚好也在试用这个东西.

社内闲聊贴(2)
http://community.csdn.net/Expert/topic/4932/4932182.xml?temp=.2726709

要让界面发应,
While t.IsAlive
Windows.Forms.Application.DoEvents()
End While

仅供参考.

dongshanyu 2006-08-14

打赏
举报

如果这样（先执行完线程A,再执行线程B），若在线程A出现了堵塞，线程B岂不是也不能执行了？

dongshanyu 2006-08-14

打赏
举报

to scow
使用了Application.DoEvents后，界面不冻结了，:)
例如，现有5个线程，其执行后的结果显示如下：
=======================================
2006-08-14 15:42.11 Thread0 Item 0 ...Ok
2006-08-14 15:42.11 Thread0 Item 1 ...Ok
2006-08-14 15:42.11 Thread1 Item 0 ...Ok
2006-08-14 15:42.11 Thread2 Item 0 ...Ok
2006-08-14 15:42.11 Thread3 Item 0 ...Ok
2006-08-14 15:42.11 Thread4 Item 0 ...Ok
2006-08-14 15:42.11 Thread4 Item 1 ...Ok
..
2006-08-14 15:42.22 Thread4 Item 99 ...Ok
2006-08-14 15:42.22 Thread3 Item 1 ...Ok
..
2006-08-14 15:42.33 Thread3 Item 99 ...Ok
2006-08-14 15:42.33 Thread2 Item 1 ...Ok
...
2006-08-14 15:42.44 Thread2 Item 99 ...Ok
2006-08-14 15:42.44 Thread1 Item 1 ...Ok
...
2006-08-14 15:42.57 Thread1 Item 99 ...Ok
2006-08-14 15:42.57 Thread0 Item 2 ...Ok
...
2006-08-14 15:42.33 Thread0 Item 99 ...Ok
=======================================
根据上面的线程反馈的信息，我观察到一个现象，各线程好像并不是轮流执行的，好像是先执行完某个线程，然后执行另外一个线程。

水如烟 2006-08-14

打赏
举报

你在method的循环体里加上Windows.Forms.Application.DoEvents()

dongshanyu 2006-08-14

打赏
举报

While objThread(N).IsAlive
Windows.Forms.Application.DoEvents()
End While
去掉后上面那段代码后，界面在线程运行时还是处于冻结状态

scow 2006-08-14

打赏
举报

把Application.DoEvents();加在
strMsg = "Item " & i & "... Ok"
ToAddLvwItemOfLog(mLvwLog, strThread, strMsg)
//add here
Thread.Sleep(10)
这里

水如烟 2006-08-14

打赏
举报

目的是为了执行LzmTW.ApplicationBase.WaitingForm.DefaultForm.Close()

对不起,不好意思.

水如烟 2006-08-14

打赏
举报

While objThread(N).IsAlive
Windows.Forms.Application.DoEvents()
End While
哦,我弄错了,上面这行代码在我的程序中是有特别用义的,因为自己理解不深,所以贴了出来,不应该如此.我的用在这个地方:它显示的是一个提示框.

Public Shared Sub AutoShow(ByVal threadStart As System.Threading.ThreadStart, ByVal formType As MessageFormType)
SetDefaultFormType(formType)
DefaultForm.Show()
Dim t As New System.Threading.Thread(threadStart)
t.Name = threadStart.Method.ToString & Now.Ticks.ToString
t.Start()
While t.IsAlive
Windows.Forms.Application.DoEvents()
End While
LzmTW.ApplicationBase.WaitingForm.DefaultForm.Close()
End Su

水如烟 2006-08-14

打赏
举报

呵,线程我是不懂的.只能试着来做.

Knight94 2006-08-14

打赏
举报

如下这些语句干什么用的，等待线程？把这部分删除
While objThread(N).IsAlive
Windows.Forms.Application.DoEvents()
End While

dongshanyu 2006-08-14

打赏
举报

不管我开几个线程，同时Thread.Sleep停留的时间多长，在线程执行期间，界面还是被冻结了；加了线程IsAlive的判定，但好像也没起到效果 :(，下面是我的代码，两位帮我看看问题在哪？
==========================
...
Dim N As Integer
Dim objThread(intThreadNum) As Thread

For N = 0 To intThreadNum - 1

Dim intThreadIndex As Integer, strThreadName As String
intThreadIndex = N
strThreadName = "Thread" & N

Dim objTest As clsTest
objTest = New clsTest(intThreadIndex, strThreadName, lvwLog)

objThread(N) = New Thread(AddressOf objTest .Test)
objThread(N).Name = strThreadName
objThread(N).ApartmentState = ApartmentState.STA
objThread(N).Start()

While objThread(N).IsAlive
Windows.Forms.Application.DoEvents()
End While

Next
...
-----------------------------------
Imports System.Threading
Public Class clsTest
Private mThreadIndex As Integer
Private mThreadName As String
Private mLvwLog As ListView

Sub New()
mThreadIndex = 0
mThreadName = ""
End Sub

Sub New(ByVal intThreadIndex As Integer, ByVal strThreadName As String, _
ByVal objLvw As ListView)
mThreadIndex = intThreadIndex
mThreadName = strThreadName
mLvwLog = objLvw
End Sub

Public Sub Test()
Dim mi As MethodInvoker
mi = New MethodInvoker(AddressOf ToShowMsg)
mLvwLog.Invoke(mi)
End Sub

Private Sub ToShowMsg()
Dim strThread As String
strThread = Me.mThreadName
Dim strMsg As String

Dim intMax As Integer
intMax = 100

Dim i As Integer
For i = 0 To intMax - 1
strMsg = "Item " & i & "... Ok"
ToAddLvwItemOfLog(mLvwLog, strThread, strMsg)
Thread.Sleep(10)
Next
End Sub

Private Sub ToAddLvwItemOfLog(ByVal objLvw As ListView, ByVal strThread As String, ByVal strMsg As String)

End Sub

End Class

Knight94 2006-08-14

打赏
举报

to 在线程执行的过程中，界面不能动了

造成这个原因是你的线程占cpu的资源太多了，适当在线程中调用Thread.Sleep( 10 )，效果会好很多。

多线程与UI交互的问题2

相关推荐