窗体右上角×

pepsi7777 · 发表于 2023-4-18 21:37

本帖最后由 pepsi7777 于 2023-4-18 23:59 编辑

各位老师好，
点击窗体右上角×，显示弹窗，如何处理？感谢 msgbox "a"

雪之花 · 发表于 2023-4-18 21:42

增加弹窗提示是否关闭？还是什么意思

laterite · 发表于 2023-4-18 21:48

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "aaaaaaaaaaaaa", vbInformation, "感谢"
Cancel = False
End If
End Sub

excel玉米 · 发表于 2023-4-18 22:18

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = MsgBox("Please confirm cancellation", vbOKCancel + vbQuestion) = vbCancel
End Sub

pepsi7777 · 发表于 2023-4-19 00:00

laterite 发表于 2023-4-18 21:48
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormC ...

感谢 laterite 老师

pepsi7777 · 发表于 2023-4-19 00:00

excel玉米发表于 2023-4-18 22:18
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = MsgBox("Please ...

感谢 excel玉米老师

		自动登录	找回密码
密码			免费注册

[已解决] 窗体右上角×

评分

评分