问一个简单的窗口问题,高手进来帮忙,谢谢了.

Cell 2005-10-13 09:40:49
我在一个FORMA是主窗口,我在FORMA中用无模式的方式弹出了FORMB用来显示程序的执行进度.在执行完成后我用FORMB.hide方法让窗口关闭,但是经过一段时间的执行后,窗口FORMB在有些时候不能关闭,是什么原因,有什么解决办法吗?
...全文
185 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Cell 2005-10-13
  • 打赏
  • 举报
回复
up
fishmans 2005-10-13
  • 打赏
  • 举报
回复
路过~~

此贴一般,不UP
Cell 2005-10-13
  • 打赏
  • 举报
回复
呵呵,不会,代码很简单的.其中的LoadFrm就是罪魁祸首

While Not RsType.EOF
rsName.Open sString, cn, adOpenKeyset, adLockBatchOptimistic
If rsName.BOF = True Then
GoTo BREAKRSTYPE
End If
rsName.MoveFirst
LoadFrm.Show
LoadFrm.Visible = True
LoadFrm.ProgressBar1.Max = rsName.RecordCount
LoadFrm.ProgressBar1.Value = 0

While Not rsName.EOF
LoadFrm.Label1.Caption = "正在处理 " + n + " " + newString
LoadFrm.Refresh
Me.Refresh
....此处省略5000行
LoadFrm.ProgressBar1.Value = LoadFrm.ProgressBar1.Value + 1
rsName.MoveNext
Wend
rsName.Close
RsType.MoveNext
LoadFrm.ProgressBar1.Value = LoadFrm.ProgressBar1.Max
LoadFrm.Hide
LoadFrm.Visible = False
Wend
winehero 2005-10-13
  • 打赏
  • 举报
回复
帖代码看看,这样看不出来。。。
是不是你创建了两个或以上进度窗体实例?关了一个还有其它,杀了夏明翰,还有后来人。。。
Cell 2005-10-13
  • 打赏
  • 举报
回复
函数肯定是执行完了,就是窗口关不上.而且好象是XP下这个情况出现的比较多.
bbhere 2005-10-13
  • 打赏
  • 举报
回复
关注一下
viena 2005-10-13
  • 打赏
  • 举报
回复
是不是程序仍在执行啊?加Doevents试试
northwolves 2005-10-13
  • 打赏
  • 举报
回复
最后两句 ,try:

Unload LoadFrm

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧