如何做一个类似公用对话框的对话框，就是关闭后能返回值（UP有分)

Question

就像公用对话框（例如选择文件的对话框等），关闭后能返回父窗体一个参数，不知道怎么做
我就是想做一个对话框，上面好多选项，我选完点确定后将我选择的项这些信息返回给父窗口，而且是通用的，我自己的任何一个父窗口调用它都可以，大家给我指导指导

Answer 1

我也知道VC可以，但是VB怎么做呢，大师能不能写个简单的例子

Answer 2

我自己解决了:
首先在公共模块里定义以下变量和函数
public oldValue as String
public newValue as Stringpublic MyDialog(myParentForm as Form,oldV as string,newV as string,left As Integer, top As Integer) As String
    oldValue=oldV  '传入旧值
    load TestDialog
    TestDialog.move left,top
    TestDialog.show 1,myParentForm
    MyDialog =newValue  '返回新值
End Function然后自己作一个TestDialog的Form,在form 的load事件重处理旧值oldValue,在form的unload事件中将新值传给newValue调用对话框的时候直接调用MyDialog这个函数就可以了,而且直接返回对话框里设定的值

Answer 3

1.Form1的代码：Option ExplicitDim WithEvents myobj As Class1Private Sub Command1_Click()
    Set myobj = New Class1
    myobj.StartForm Form2
End SubPrivate Sub myobj_BeforeUnload(ByVal x As Long)
    MsgBox x
End Sub2.Form2无代码3.Class1的代码：Option ExplicitPrivate WithEvents frmCls As FormPublic Event BeforeUnload(ByVal x As Long)Private Sub frmCls_Unload(Cancel As Integer)
    RaiseEvent BeforeUnload(9)
End SubPublic Sub StartForm(ByRef F As Form)
    Set frmCls = F
    frmCls.Visible = True
End Sub
胡乱写了几句，也不知合不合要求