帮忙修改个多线程程序，谢谢各位！

[manbu16]

我做的这个程序现在不能多线程，多线程我不懂哈，自己看教程调试了好几次都不行啊，所以现在请会的老兄帮忙我修改一下成多线程的。大概需求如下：

1、使用里面的“批量获取”按钮使程序不会卡死，而且当点击这个按钮的时候程序有序的进行工作。
2、文本框的内容会随字符串的增多而向下滚动。
3、如果不闲麻烦帮忙增加个进度条哈。

嘿嘿，100分哦！！谢谢各位帮忙咯。

我打包的地址放我的空间里：http://www.xnbird.cn/help.rar
小弟保证没有毒！虚心求教！谢谢咯！

[manbu16]

呵呵，谢谢各位哦~~
现在我把测试网址发给大家。呵呵，上次忘记发咯。不好意思哦各位。请各位再费点心思哦~~谢谢咯~~

[manbu16]

测试附件包是：http://www.xnbird.cn/ceshi.rar
里面有个文本文件，加载测试哦~~

[wdgphc]

lz可以放心了.phy是大好人.他帮人都会帮到底的.

[brallow]

[Quote=引用 13 楼 wdgphc 的回复:]
lz可以放心了.phy是大好人.他帮人都会帮到底的.
[/Quote]
你这是故意的……
1W分之前我会一帮到底的，1W分以后，哇哈哈，看我有没有别的计划咯。

[ZengHD]

要升到30000分估计还要半年时间，时间太长，升到10000就算了，不抢了

[ZengHD]

要升到30000分估计还要半年时间，时间太长，升到10000就算了，不抢了

[january03]

呵呵，看高手帮忙，看来要生分比较难哦

[haifeng39]

帮顶

[manbu16]

呵呵，不管怎么样还是谢谢各位高手啦，哈哈~~大家为了这200分就再出力一下吧。呵呵，谢谢咯，也不是为分数，帮个忙咯。嘿嘿

[brallow]

看到你的文本文件中是多个地址，从你的流程来看似乎是：
先下载，再读取下载的文本进行分析，然后输出到RichtextBox。
这里涉及到的问题主要是一个：如何“有序”的输出到RichTextBox?
如果你要求一个地址的解析信息必须放到一起，那么你可以不需要多线程，直接DoEvent就可以了。

[manbu16]

嗯，正如你所说的。先下载再分析。
你说的DOeVvent我不是很懂哈，你可以帮我修改下，我测试看看是否是我需要的。
提取时主窗口FORM1不卡死，第二有序的进行提取，使RichTextBox有序的按提取量的增加向下滚动。
麻烦你了！

[梦想家起飞]

[Quote=引用 13 楼 wdgphc 的回复:]
lz可以放心了.phy是大好人.他帮人都会帮到底的.
[/Quote]

赞～～　：）

[paulin]

3楼说得不无道理
大家一般都有工作，所以不把问题细化描述清楚的话
难得有人去下载,然后打开编译，调试...

[gh_li]

如果给两百分我会去下载看看！

[manbu16]

小弟只能加分的极限是100分，如果有需要我另开帖可以给你哈。大家帮帮忙咯~~谢谢哦

[brallow]

HOHO，我下载了看看。

[yanlongwuhui]

1.循环语句中增加一句Application.DoEvents()
2.TextChanged事件中增加 TextBox1.SelectionStart =TextBox1.Text.Length

[brallow]

你的代码似乎是从某个地址下载文件，然后对其进行分析的一个软件。

试着添加如下代码：

Public Sub MThread()
   Form.CheckForIllegalCrossThreadCalls = False
   Dim tM As Threading.Thread = New Threading.Thread(New Threading.ThreadStart(AddressOf M))
   tM.IsBackground = False
   tM.Start()
End Sub

调用时，这里：

My.Computer.FileSystem.WriteAllText("C:\Documents and Settings\All Users\hello.txt", ReadFarText, False)
M()
RichTextBox1.Text &= vbCrLf & errorStr

不要用M()，改为我上面提供的MThread()，即：

My.Computer.FileSystem.WriteAllText("C:\Documents and Settings\All Users\hello.txt", ReadFarText, False)
MThread()
RichTextBox1.Text &= vbCrLf & errorStr

至于进度条，我就没改了，因为我这边连你这个工程都无法编译。而且我也不知道下载的地址无法进行进一步的测试。

[manbu16]

都快沉了，再顶一下，请懂的朋友帮忙一下咯

[oo渣渣oo]

告诉你两个方法,自己研究(我用的是VS2003):

第一种,如果你不需要带参数启动新线程,那就可以这样用:

   Private Sub StartNewThread()
      Dim thdBank As Threading.Thread
      thdBank = New Threading.Thread(AddressOf ConnectToMidBase)
      thdBank.Name = "连接进程"
      thdBank.Start()
   End Sub

   Private Sub ConnectToMidBase()
      '你要运行的代码写在这里,例如:
      MsgBox ("测试测试")
   End Sub

第二种,用线程池,一般是需要带参数启动的线程我才用这种方法,但是注意只能带一个参数:

   Private Sub StartNewThread()
      ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf StartCounterProcessing), intIndex)
   End Sub

   Private Sub StartCounterProcessing(ByVal objIndex As Object)
      Dim intIndex As Integer = CInt(objIndex)
      ......
   End Sub