7,785
社区成员




'Form1窗体代码
Private f1 As Integer
Private f2 As Integer
Private 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 Boolean
Private Sub Command1_Click()
OK = True
Me.Hide
End Sub
Private Sub Form_Load()
s1 = 1
s2 = 2
End Sub