MsgBox的问题。

cloud 2000-02-28 11:35:00
当我的VB程序编译成。EXE文件以后,带返回值的MSGBOX,会出错,
列如:IF MsgBox(“Test”,vbYesNo,"Test")=vbYes then
当按“Yes”后,出现“Invalid procedure call or argument."
按”OK“后,出现”Run-time error '40' Can't show non-modal form
When modal form is displayed."

各位高手,请问怎样解决这个问题。
...全文
373 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
cloud 2000-03-01
  • 打赏
  • 举报
回复
谢谢各位的热情参与,问题已经解决了,是因为在Form的Active事件中有 .SetFocus
方法的调用。
sess 2000-02-28
  • 打赏
  • 举报
回复
是不是环境有问题?
929 2000-02-28
  • 打赏
  • 举报
回复
能否再说详细些?看错误信息好象是调用了非模态窗口。在未编译时出错吗?
losed 2000-02-28
  • 打赏
  • 举报
回复
我作了试验,并无你说的问题
Tony_Yuan 2000-02-28
  • 打赏
  • 举报
回复
问题肯定不在这一段代码内,要看前两个form的关系,最好能多给一些代码
peacock 2000-02-28
  • 打赏
  • 举报
回复
一定是“IF MsgBox(“Test”,vbYesNo,"Test")=vbYes then”后的语句出问题,如果你能写出来,我们可以讨论一下
dongdong 2000-02-28
  • 打赏
  • 举报
回复
你写给我的代码绝对没有问题,问题不是出在MSGBOX的问题,也与窗体的模式无关,我已经试过。我建议你:
将同样的代码(指关键的几句)单独在一个新的工程中调试,看看是否会出问题,如果没有问题,就是你这个程序的问题,看是否能将你更详细一点的代码“妹”给我看看;
如果也有问题,则是你系统的问题了,如果有条件,在别的机子上试试。
forgettor 2000-02-28
  • 打赏
  • 举报
回复
model: form.show vbmodal
modeless: form.show

去掉msgbox"start"
cloud 2000-02-28
  • 打赏
  • 举报
回复
to dongdong:
前后代码为:
MsgBox "Start"
IF MsgBox(“Test”,vbYesNo,"Test")=vbYes then
MsgBox "Yes"
else
MsgBox "No"
endif

to subzero:
新窗口是模态窗体,因为新窗体显示时,可以按原来FORM的BUTTON,
而且,新窗口会隐藏在原来FORM的后面。
随便问一下,怎样设置模态窗体和非模态窗体。



subzero 2000-02-28
  • 打赏
  • 举报
回复
你调用的新窗口是不是非模态窗体
很可能是这里出错
dongdong 2000-02-28
  • 打赏
  • 举报
回复
问题肯定不是出在这一句上,能说说这一句程序前后的一些代码情况吗?
cloud 2000-02-28
  • 打赏
  • 举报
回复
谢谢各位的回答,我补充一下几点:
1。在VB环境下运行正常。
2。非模态窗口应该是MsgBox。(我认为)
3。我的MsgBox是在主FORM中调用一个FORM后,在新的
FORM中调用。即在主FORM的基础上继续SHOW一个FORM,
这时,用MsgBox。
4。用不要返回值的MsgBox没问题。即用
MsgBox "test"
没问题。

再次感谢各位。

7,759

社区成员

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

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