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

[fengxiaoxiao1]

msgbox的窗口可以返回变量，请问如何实现的？

[laviewpbt]

可以用公共变量。

[砸死牛顿的苹果]

调用inputbox 函数就行了

[lhy0922]

a = InputBox("")就可以了

[watcher_shen]

??????

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

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

a = inputbox("")

or

a = msgbox("what do you want?")

[wwqna]

就用公用变量！

[zyp2kyear]

我有事例代码，定制自己的消息框。给个邮想

[viena]

msgbox是一个函数，当然有返回值的，
至于如何实现，和你用VB做程序没有关系~

[viena]

可以调用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

[Yaka]

msgbox有vbyes，vbno等等的值可以返回~~
但要接受数据之后带到form里面就用inputbox~！
用法查找MSDN

[ryuginka]

自己做个带窗体的类吧。可以有返回值

[libralibra]

msgbox有ok、cancel之类，如果你要返回值的情况不多，建议写个select case判断一下好了
不要那么麻烦了，呵呵

[Mdawnxd]

用inputbox

[fengxiaoxiao1]

to 刘银华：
如何实现带窗体的类，能否详细说一下。或相关资料也可以。

[creazyfish]

不知道你需要什么样子的，但是简单的判断你按了哪个按扭的返回值直接用msgbox取得对应的返回值就可以了如vbYes,vbOK什么的
如果你需要返回的东西比较复杂，你可以自己定制对话框，可以在一个窗体中定义若干窗体级的公有变量，用这些变量来作为窗体的返回值。

[rainivy]

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]

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]

晕，我以为没发成功，不好意思，发了两次。:)