能不能做出象msgbox一样有返回值的窗体。

Question

把窗体做成类,里面定义属性vReturn
用
dim frm as new form1
frm.show 1 打开然后用frm.vReturn就能得到返回值啊

Answer 1

可以在窗体(假设对话窗体名称frmMsg.frm)中定义变量:
Option Explicit
Public mReturnValue As String     '模块变量
... ...
在frmMsg.frm窗体的过程中处理业务,给mReturnValue赋值然后在其他窗体中:frmMsg.Show vbModal
读出 frmMsg.mReturnValue的值.

Answer 2

用form 的tag 属性可以吗

Answer 3

1。定义一个类，包含有form的各种内容（lable,buttons,click events and an integer SelectedWhat）
2.在myMSGBox中使用该类，并设置对应属性。
3.执行类中的show方法，要使用vbmodal
4.myMsgBox=该类中的SelectedWhat,返回