Dim frm = forms("窗口1")
If frm.Opened Then
frm.Close
e.sender.Text = "打开"
Else
frm.Show
e.sender.Text = "关闭"
End If
加好友 
发短信
Post By：2018/5/28 10:11:00 [显示全部帖子]
