| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 500 人关注过本帖
标题:[求助]多线程问题!
只看楼主 加入收藏
esclipe2000
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2005-4-27
收藏
 问题点数:0 回复次数:1 
[求助]多线程问题!
第一次执行的时候没有问题,但是第二次执行的时候,opend.ShowDialog会出现“未将对象设置到实例化”,代码的主体部分如下:
Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
b.AbortThread()
Dim opend As New OpenFileDialog
Dim countsheet As Integer
opend.Filter = "Excel文件(*.csv;*.xls)|*.csv;*.xls|所有文件(*.*)|*.*"
opend.FilterIndex = 1
Dim s As String = ""
Try
If opend.ShowDialog() = DialogResult.OK Then
s = opend.FileName
End If
opend.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
If s <> "" Then
Dim pa As New ArrayList
pa.Add(s)
pa.Add(1)
b.OpenWaiting(New TianControl.Waiting.LoadingHandler(AddressOf ww), pa)
‘这个地方起线程
End If
end sub

Public Sub AbortThread()
If Not Me.LoadingThread Is Nothing Then 'LoadingThread 是一个线程
Me.LoadingThread.Abort()
Me.LoadingThread.Join()
NAR(Me.LoadingThread)
GC.Collect()
GC.WaitForPendingFinalizers()
End If
End Sub

Private Sub NAR(ByRef o As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
Catch
Finally
o = Nothing
End Try
End Sub
搜索更多相关主题的帖子: 线程 
2006-06-02 15:35
adair
Rank: 3Rank: 3
等 级:新手上路
威 望:9
帖 子:250
专家分:0
注 册:2005-9-3
收藏
得分:0 

跟進


********年轻无极限******** 要時刻相信你自己,不要被自己打敗
2006-06-02 18:31
快速回复:[求助]多线程问题!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032052 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved