form2中添加一button按钮,代码为
Private Sub Command1_Click()
Unload Me
End Sub
就行了吧,
或者添加一button按钮,把其属性cancel改为true,运行按esc就退出了
在窗口里加上这个代码就可以了
Private
Sub
Form_Unload(Cancel
As
Integer)
Dim
l
As
Integer
l
=
MsgBox("确认关闭?",
vbYesNo
+
vbQuestion,
"确认")
If
l
=
vbNo
Then
Cancel
=
True
End
If
End
Sub
form2.show
vbNormalFocus
这里错了,好像不能加vbNormalFocus,当然会错了。form2.show
打开:form1.show
关闭:form1.hide或unload
me
“ Form1的command1中输入代码
form2.show
vbNormalFocus 在Form1的command1中输入代码
unload
me
报错”报错。没有呀