VB6 ActiceX中调用Form后返回的问题(调试和实际不一样)

zhouleyiman 2012-04-25 10:48:28
大家好,目前我用VB6做一ActiveX控件中调用一Form(该Form也是控件的一部分):通过btn_repair_Click时间触发调用form,但form调用完毕后,btn_repair_Click()过程不继续执行完毕。
代码如下
Private Sub btn_repair_Click()
frm_repair.txt_password.Text = ""
If bl_Repair Then
btn_repair.BackColor = &HFF00&
btn_repair.Caption = "Normal Assembly"
bl_Repair = False
Else
If App.NonModalAllowed Then
MsgBox "Modeless"
frm_repair.Show vbModeless
Else
MsgBox "Modal"
frm_repair.Show vbModal
End If
bl_Hidded = False
Do While bl_Hidded = False
Wait 0.2
Loop
'函数在此处停止
MsgBox "bl_Repair= " & bl_Repair
If bl_Repair Then
btn_repair.BackColor = &HFF&
btn_repair.Caption = "Repair Assembly"
MsgBox "bl_Repair=true!!!"
Else
MsgBox "bl_Repair=false!!!"
End If
End If
MsgBox "10"
Init_Combo_Step
txt_MainBc.SetFocus
MsgBox "03"
注:
1. wait 是一个等待函数
2. 这个ACTIVE,通过源代码在电脑上运行可以,但是放在服务器上,远程访问时,就会出异常,Form frm_repair执行完成后,LOOP后面的部分不再执行。
求大神帮助啊!!
...全文
124 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
worldy 2012-04-26
  • 打赏
  • 举报
回复
服务器上,怎么能使用Msgbox,服务器岂不是被挂起了?
zhouleyiman 2012-04-26
  • 打赏
  • 举报
回复
activeX最终在客户端电脑运行,与服务器无关啊。
zhouleyiman 2012-04-26
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 的回复:]
服务器上,怎么能使用Msgbox,服务器岂不是被挂起了?
[/Quote]
ACTIVE是在本机运行啊,FWQ当然不会挂。
zhouleyiman 2012-04-25
  • 打赏
  • 举报
回复
自己昏头了,逻辑弄错了 ,来回答的人散分。

1,451

社区成员

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

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