您的位置：程序门 -> vb -> 基础类

[求教]关于调用msgbox的一个问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

[求教]关于调用msgbox的一个问题

发表于：2007-06-08 13:36:11 楼主

社区里面的关于msgbox帖子也看了不少了，但是有一个问题我还是整不明白。关于做一个窗体显示一些信息（没有按钮的）我已经学会了。
现在的问题是，我要用一个form代替msgbox，上面有label和“yes”、“no”两个按钮。在form2程序某处中调用form1,form1中如果“yes”，程序调到form2中点“yes”的条件下程序继续进行，如果“no”，form1跳转到form2中点“no”的程序下进行，关键是怎么获得“yes”和“no”事件。比如我点一下“yes”，定义这个为a,点“no”定义为b，然后在ｆｏｒｍ２中做一个ｉｆ判断，这些应该怎么写呀？
　　万分感谢！

发表于：2007-06-08 16:51:241楼得分:0

不用定义事件，在form1里定义一个变量，比如public returnvalue as integer，放几个按钮，当按钮ok单击的时候，returnvalue = 1，然后unload me就可以了。
form2用的时候，
dim frm as new form1
frm.show 1
if frm.returnvalue=1 then
msgbox "按了ok "
else
msgbox "按了cancel "
end if

发表于：2007-06-09 13:59:322楼得分:0

我在form2中设了一个按钮，代码如下：
private sub command1_click（)
form2.visible = false
form1.enabled = true
form1.show
dim frm as new form1
frm.show 1
if frm.x = 1 then
msgbox "按了ok "
else: x = 2
msgbox "按了cancel "
end if
end sub
---------------------------------------------
在form1中有两个按钮，代码如下：
public x as integer

private sub command1_click（)
'dim frm as from1
x = 1
unload me
end sub

private sub command2_click（)
x = 2
unload me
end sub

运行以后是可以调用x，显示msgbox的内容，但是点form2的command1后出来两个form1，只能选前边的，怎么样才能把后边的form1去掉啊？

发表于：2007-06-09 14:05:433楼得分:0

还有，干脆我就问有没有更简单的方法把msgbox上面的中文显示（“确定”、“取消”) 两个按键改成英文的（“yes”、“no”）。因为我做的是英文软件。

发表于：2007-06-09 14:47:424楼得分:0

到英文系统下编译应该就是yes 和no

发表于：2007-06-09 16:56:405楼得分:0

把 form1.enabled = true
form1.show
这两句去掉

发表于：2007-06-09 20:03:166楼得分:0

在英文系统下编译就好了，你装一个英文的vb6看看

你可以设置一个全局变量，yes,no的时候就变量不同的值。form2根据这个全局变量来调整

发表于：2007-06-10 10:42:047楼得分:0

form2代码：
private sub command1_click（)
form1.show
dim frm as new form1
frm.show 1
if frm.x = 1 then
form1.hide
msgbox "按了ok "

else: x = 2
form1.hide
msgbox "按了cancel "
end if

end sub
————————————
form1代码：
public x as integer
private sub command1_click（)
x = 1
end sub

private sub command2_click（)
x = 2
end sub

下一篇：排队系统
上一篇：新手问简单问题

其他资讯

快速检索

分类导航标签a

最新资讯

热门点击