'Form1窗体代码Private f1 As Integer Private f2 As IntegerPrivate Sub Command1_Click() Form2.Show (vbModal) If Form2.OK Then f1 = Form2.s1 f2 = Form2.s2 End If End Sub'Form2窗体代码,如果不点击Command1,则不会返回s1和s2 Public s1 As Integer Public s2 As Integer Public OK As BooleanPrivate Sub Command1_Click() OK = True Me.Hide End SubPrivate Sub Form_Load() s1 = 1 s2 = 2 End Sub
'Form1窗体代码Private f1 As Integer
Private f2 As IntegerPrivate Sub Command1_Click()
Form2.Show (vbModal)
If Form2.OK Then
f1 = Form2.s1
f2 = Form2.s2
End If
End Sub'Form2窗体代码,如果不点击Command1,则不会返回s1和s2
Public s1 As Integer
Public s2 As Integer
Public OK As BooleanPrivate Sub Command1_Click()
OK = True
Me.Hide
End SubPrivate Sub Form_Load()
s1 = 1
s2 = 2
End Sub