VB6 ActiceX中调用Form后返回的问题(调试和实际不一样)
大家好,目前我用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后面的部分不再执行。
求大神帮助啊!!
[解决办法]
服务器上,怎么能使用Msgbox,服务器岂不是被挂起了?