首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-04-27 
VB6 ActiceX中调用Form后返回的问题(调试和实际不一样)大家好,目前我用VB6做一ActiveX控件中调用一Form(该

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,服务器岂不是被挂起了?

热点排行