Question

vb按钮OK，cancel代码

很幼稚的问题，哪位大虾给个答案
按OK保存设置关闭窗口，按cancel取消设置关闭窗口，Apply保存设置但不关闭窗口

Answer 1

OK：把按钮的Caption设置为&OK，Default属性设置为True；
Cancel:把Caption设置为&Cancel，Cancel属性设置为True

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '点击右上角的关闭
Dim a As Integer
a = MsgBox("确认关闭吗？", vbOKCancel + vbQuestion, "系统提示")
If a = vbOK Then
End '卸载所有窗体
Else
Cancel = -1 '返回窗体
End If
End Sub

给你小例子。不用控件。复制代码就可以；了。
当你点小叉关闭的时候。就出现了。。。

Answer 3

'这是你设置参数的窗口，不是主窗口
Private Sub Command1_Click()
SaveOptions
Unload Me
End Sub

Private Sub Command2_Click()
SaveOptions
End Sub

Private Sub Command3_Click()
Unload Me
End Sub
Private Sub SaveOptions()
'保存设置的代码
End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Command1.Caption = "Apply"
Command1.Caption = "cancel"
End Sub