怎么用线程Thred运行ProgressBar并使它在程序忙时不停止滚动呢？

[hanghang]

以下代码出错

Private Sub ShowProcessBar()
ProcessBar1.Style=Marquee
ProcessBar1.Visible = True
ProcessBar1.Enabled = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Showthred As Threading.Thread = New Threading.Thread(AddressOf ShowProcess)
Showthred.Start()
End Sub

错误提示： 线程间操作无效，不是从创建“ProcessBar1”的线程访问它.

怎么用线程Thred运行ProgressBar并使它在程序忙时不停止滚动呢？
能用其他方法也可以，但是DoEvents不行，仍然会不滚动。

[shuangfeiyan]

跨线程访问时会出问题的，控件的状态只能由主线程来更新，建议你用代理或事件 ！！！！！！！！

[neil_cn]

见这里，我在这里回过了的
http://community.csdn.net/Expert/topic/5425/5425886.xml?temp=.2160608

[startstartsvip]

在窗体 load 时间 加入 Control.CheckForIllegalCrossThreadCalls = False


如下：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Control.CheckForIllegalCrossThreadCalls = False

End Sub


做个广告 我的 msn space:

欢迎大家来看看

[startstartsvip]

以上可以 解决 错误： 线程间操作无效



怎么用线程Thread运行ProgressBar并使它在程序忙时不停止滚动呢？

我想这得从 你怎样知道程序忙开始解决

[hanghang]

谢谢 shuangfeiyan() ；startstartsvip() 兄
" 线程间操作无效"问题已经解决。

[hanghang]

怎么在Form上显示一个ProgressBar使得它一直滚动，程序忙时也不中断呢？

因为我要用ProgressBar做程序忙提示，
并且通常是执行一条复杂SQL语句，有时候需要10几秒钟时间，这个时候ProgressBar也会跟着停止不动，SQL语句结束后ProgressBar才恢复滚动。
在执行SQL语句前加一个DoEvents也不行

[neil_cn]

用 Control.CheckForIllegalCrossThreadCalls = False 在多线程的情况下很不妥，非常不妥

[hanghang]

up

[hanghang]

up

[hanghang]

up

[xiaomaoxia]

lz 你的问题解决了吗？ 我也碰到这样的问题。 忙的时候不停止 怎么解决呢？

[水如烟]

参考Control.InvokeRequired

获取一个值，该值指示调用方在对控件进行方法调用时是否必须调用 Invoke 方法，因为调用方位于创建控件所在的线程以外的线程中。

[xslqingfeng]

发表于：2007-04-06 14:08:506楼 得分:0

怎么在Form上显示一个ProgressBar使得它一直滚动，程序忙时也不中断呢？

因为我要用ProgressBar做程序忙提示，
并且通常是执行一条复杂SQL语句，有时候需要10几秒钟时间，这个时候ProgressBar也会跟着停止不动，SQL语句结束后ProgressBar才恢复滚动。
在执行SQL语句前加一个DoEvents也不行



請問這個問題解決了嗎?我幾天都沒搞好.急死人了.........大蝦們幫幫忙.謝謝!!!!!!!!!!!!!

[沐NeMo]

多线程Delegate 处理，更新进度条。
http://topic.csdn.net/u/20090305/11/04f3add8-8e0e-4e64-9167-fe50e6407cf2.html

Imports System.Net
Imports System.Threading

Public Class FrmLanPC
    '定义一个委托
    Delegate Sub ShowProgressDelegate(ByVal newPos As Integer)
    '委托的一个方法
    Private Sub ShowProgress(ByVal newPos As Integer)
        ' 判断是否在线程中访问 
        If Not Me.InvokeRequired Then
            ' 不是的话直接操作控件 
             Me.progressBarSearch.Value = newPos
        Else
            ' 是的话启用delegate访问 
            Dim showProgressDl As New ShowProgressDelegate(AddressOf ShowProgress)
            ' 如使用Invoke会等到函数调用结束，而BeginInvoke不会等待直接往后走 
            Me.BeginInvoke(showProgressDl, New Object() {newPos})
        End If
    End Sub


Private Sub FrmLanPC_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Dim th As Thread = New Thread(AddressOf InitLanHost)
        th.IsBackground = False
        th.Name = "SearchLanPC"
        th.Start()   
    End Sub

private sub InitLanHost()
  for i =0 as Integer to 100
   '...处理其实事务
   '用到委托来更新progressBar
    ShowProgress(i)
  next
end sub
End Class

[沐NeMo]

浅述WinForm多线程编程与Control.Invoke的应用
来源于网络。

在WinForm开发中，我们通常不希望当窗体上点了某个按钮执行某个业务的时候，窗体就被卡死了，直到该业务执行完毕后才缓过来。一个最直接的方法便是使用多线程。多线程编程的方式在WinForm开发中必不可少。
本文介绍在WinForm开发中如何使用多线程，以及在线程中如何通过Control.Invoke方法返回窗体主线程执行相关操作。

－. WinForm多线程编程
1. new Thread()
新开一个线程，执行一个方法，没有参数传递：
private void DoWork() {
Thread t = new Thread(new ThreadStart(this.DoSomething));
t.Start();
}
private void DoSomething() {
MessageBox.Show("thread start");
}
新开一个线程，执行一个方法，并传递参数：
private void DoWork() {
Thread t = new Thread(new ParameterizedThreadStart(this.DoSomething));
t.Start("guozhijian");
}
private void DoSomething(object o) {
MessageBox.Show(o.ToString());
} 参数定义为object类型。
2. ThreadPool
众所周知，新开一个线程代价是很高昂的，如果我们每个操作都新开一个线程，那么太浪费了，于是，下面使用线程池。
无参数传递：
private void DoWork() {
ThreadPool.QueueUserWorkItem(new WaitCallback(this.DoSomething));
}
private void DoSomething(object o) {
MessageBox.Show("thread start");
} 有参数传递：
private void DoWork() {
ThreadPool.QueueUserWorkItem(new WaitCallback(this.DoSomething), "guozhijian");
}
private void DoSomething(object o) {
MessageBox.Show(o.ToString());
} 使用匿名方法更灵活：
private void DoWork() {
string name = "guozhijian";
ThreadPool.QueueUserWorkItem(new WaitCallback(delegate(object o){
MessageBox.Show(name);
}));
} 在匿名代码段里面可以直接访问局部变量，不用在关心参数传递的问题
二. Invoke
1. this.Invoke
现在，在业务线程里面执行完毕，要改变窗体控件的值了，此时，如果直接通过this得到控件的句柄，然后对它进行操作是会抛异常的，.Net WinForm Application里面是不允许这样的操作的。这是，可以调用Invoke方法

2.Invoke方法签名：
object Control.Invoke(Delegate Method)
object Control.Invoke(Delegate Method, params object[] args)

3.使用自定义委托 private void DoWork() {
WaitCallback wc = new WaitCallback(this.DoSomething);
ThreadPool.QueueUserWorkItem(wc, "Guozhijian");
}

private delegate void MyInvokeDelegate(string name);
private void DoSomething(object o) {
this.Invoke(new MyInvokeDelegate(this.ChangeText), o.ToString());
}

private void ChangeText(string name) {
this.textBox1.Text = name;
}哦，太麻烦了，难道我每次都要定义一个委托啊，这样可不行。

4.使用System.Action：
private void DoWork() {
WaitCallback wc = new WaitCallback(this.DoSomething);
ThreadPool.QueueUserWorkItem(wc, "Guozhijian");
}

private void DoSomething(object o) {
this.Invoke(new Action<string>(this.ChangeText), o.ToString());
}

private void ChangeText(string name) {
this.textBox1.Text = name;
}本例传递一个参数，System.Action有很多个重载，可以无参数（非泛型），而最多可以有四个参数，同样采用匿名方法，不使用泛型形式的System.Action，如下：
private void DoWork() {
WaitCallback wc = new WaitCallback(this.DoSomething);
ThreadPool.QueueUserWorkItem(wc, "Guozhijian");
}

private void DoSomething(object o) {
this.Invoke(new Action(delegate() {
this.textBox1.Text = o.ToString();
}));
}
5.使用System.Func
如果Invoke调用主窗体操作之后，还希望在调用完得到一个返回值：
private void DoWork() {
WaitCallback wc = new WaitCallback(this.DoSomething);
ThreadPool.QueueUserWorkItem(wc, "Guozhijian");
}

private void DoSomething(object o) {
System.Func<string, int> f = new Func<string, int>(this.GetId);
object result = this.Invoke(f,o.ToString());
MessageBox.Show(result.ToString());
}

private int GetId(string name) {
this.textBox1.Text = name;
if (name == "Guozhijian") {
return 999;
}
else {
return 0;
}
}
result的值为 999。
System.Func同样有很多泛形重载，这里不赘述。

6.关于Invoke的拥有者：Control
本文例中都是用this来引用，这里this替换为窗体任何一个控件的句柄都是OK的，因为Control.Invoke含义是将方法委托给拥有该Control的线程去执行。