如何实现一个类似msgbox的窗口,可以返回变量?

fengxiaoxiao1 2004-12-28 05:34:26
msgbox的窗口可以返回变量,请问如何实现的?
...全文
129 点赞 收藏 17
写回复
17 条回复
rainivy 2005年01月19日
晕,我以为没发成功,不好意思,发了两次。:)
回复 点赞
rainivy 2005年01月19日
to fengxiaoxiao1() :
如何实现带窗体的类,能否详细说一下。或相关资料也可以。

做这个不难,其实你就相当于做一个DLL或做一个类模块,在DLL中调用一个窗体。
然后在DLL中定义方法,如显示窗体
public sub showform(modal as integer)
form1.show modal 'form1为你在DLL中加载的窗体名
end sub
等,DLL返回值也可自己定义。
然后在你的程序中加载这个DLL,并执行相应的显示窗体的方法就可。
dim xxx as new xxxx '要先实例化,xxx为DLL的实例
xxx.showform 0/1 '此句在你的主程序中引用,xxxx为你生成的DLL的名称。
回复 点赞
rainivy 2005年01月19日
to fengxiaoxiao1() :
如何实现带窗体的类,能否详细说一下。或相关资料也可以。

做这个不难,其实你就相当于做一个DLL或做一个类模块,在DLL中调用一个窗体。
然后在DLL中定义方法,如显示窗体
public sub showform(modal as integer)
form1.show modal 'form1为你在DLL中加载的窗体名
end sub
等,DLL返回值也可自己定义。
然后在你的程序中加载这个DLL,并执行相应的显示窗体的方法就可。
dim xxx as new xxxx '要先实例化,xxx为DLL的实例
xxx.showform 0/1 '此句在你的主程序中引用,xxxx为你生成的DLL的名称。
回复 点赞
creazyfish 2005年01月19日
不知道你需要什么样子的,但是简单的判断你按了哪个按扭的返回值直接用msgbox取得对应的返回值就可以了如vbYes,vbOK什么的
如果你需要返回的东西比较复杂,你可以自己定制对话框,可以在一个窗体中定义若干窗体级的公有变量,用这些变量来作为窗体的返回值。
回复 点赞
fengxiaoxiao1 2005年01月19日
to 刘银华:
如何实现带窗体的类,能否详细说一下。或相关资料也可以。
回复 点赞
Mdawnxd 2005年01月19日
用inputbox
回复 点赞
libralibra 2004年12月29日
msgbox有ok、cancel之类,如果你要返回值的情况不多,建议写个select case判断一下好了
不要那么麻烦了,呵呵
回复 点赞
ryuginka 2004年12月28日
自己做个带窗体的类吧。可以有返回值
回复 点赞
Yaka 2004年12月28日
msgbox有vbyes,vbno等等的值可以返回~~
但要接受数据之后带到form里面就用inputbox~!
用法查找MSDN
回复 点赞
viena 2004年12月28日
可以调用API函数,实现消息框
Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

可以是非模式的
MessageBox me.hWnd, "这是自己的消息框", "提示", 0
回复 点赞
viena 2004年12月28日
msgbox是一个函数,当然有返回值的,
至于如何实现,和你用VB做程序没有关系~
回复 点赞
zyp2kyear 2004年12月28日
我有事例代码,定制自己的消息框。给个邮想
回复 点赞
wwqna 2004年12月28日
就用公用变量!
回复 点赞
watcher_shen 2004年12月28日
??????

没明白楼主的意思,楼主如果是想自己定制一个窗口来返回变量的值就用inputbox就可以。

如果是想问msgbox本身如何返回数值那么就用msgbox本身就可以啊……

a = inputbox("")

or

a = msgbox("what do you want?")
回复 点赞
lhy0922 2004年12月28日
a = InputBox("")就可以了
回复 点赞
砸死牛顿的苹果 2004年12月28日
调用inputbox 函数就行了
回复 点赞
33184777 2004年12月28日
可以用公共变量。
回复 点赞
发动态
发帖子
VB基础类
创建于2007-09-28

2746

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告