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后面的部分不再执行。
求大神帮助啊!!
...全文
160 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
  • 打赏
  • 举报
回复
自己昏头了,逻辑弄错了 ,来回答的人散分。
内容概要:本文档为一份《计算机程序设计语言(C++)》课程的实验报告,涵盖了从基础语法到面向对象编程的多个实验内容。实验内容包括基础语法练习(如银行存款计算、数值比较、科学计算)、控制结构(分支与循环,如闰年判断、素数判定、Kaprekar黑洞数)、数组操作(一维与二维数组的排序、查找、极值计算、杨辉三角)、函数定义与应用(递归、参数传递、函数重载)以及面向对象编程(类与对象的设计、继承、多态性、文件操作)。文档详细展示了每个实验的任务描述、具体C++代码实现、测试结果及实验分析,体现了从简单到复杂、逐步深入的学习路径。; 适合人群:具备C++基础语法知识,正在学习或巩固程序设计课程的在校大学生及初级编程学习者。; 使用场景及目标:①作为C++课程的配套实验指导材料,帮助学生通过实践掌握编程基础知识和核心算法;②用于自学练习,提升对循环、数组、函数和面向对象等核心概念的理解与编码能力。; 阅读建议:学习者应结合文档的代码实例,动手在编程环境逐一实现并调试,重点关注代码逻辑、边界条件处理和算法效率,通过对比预期输出与实际输出加深对知识点的掌握。

1,453

社区成员

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

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