输入框 取消

我创建了一个输入框来输入用户名，但卡住了取消按钮

Private Sub Form_Load()
fsUserName = UCase(InputBox("Please Enter your name.", "User Name", _
"dc"))

If fsUserName = "" Then
MsgBox "No name Entered." & Chr(13) & Chr(13) & _
"You must enter a name.", vbExclamation, "ERROR"
Form_Load
ElseIf VarType(fsUserName) = 0 Then 'If cancel clicked
cmdQuit_Click

End If

还有一种方法是，当单击表单上的 X 按钮时，它会执行 cmdQuit_Click ，以便如果用户单击命令按钮 Quit 或 X ，则会运行 Quit 脚本。在 quit 脚本中有消息框和清理。

您可以使用StrPtr()检测是否单击了取消；

Dim fsUserName As String

fsUserName = InputBox("Please Enter your name.", "User Name", "dc")

If (StrPtr(fsUserName) = 0&) Then
    MsgBox "Cancelled or X clicked"
ElseIf fsUserName = "" Then
    MsgBox "No name Entered." & vbCr & "You must enter a name.", vbExclamation, "ERROR"
Else
    fsUserName = UCase$(fsUserName)
    MsgBox fsUserName
End If

如果您想在表单卸载时执行某些操作，可以使用Form_Unload事件或更好的Form_QueryUnload在实际卸载之前触发的事件并允许您取消它。
它还会告诉您为什么表单正在卸载（UnloadMode如果单击红色 X，则为 0）

Using "Unload Me" 将引发这两个事件。

Edit:呼唤Form_Load in Form_Load这样最终会填满堆栈，最好使用循环来查找丢失的用户名。