Private Sub Text1_Exit(ByVal Cancel As MSForms.ReturnBoolean)If InStr(Text1.Text, "a") = 0 Then MsgBox "文本必须包含a" Text1.Text = ""End IfEnd Sub
在弹出框代码后加入: frmMain.text1.text=输入的端口号