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

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做程序没有关系~

回复点赞