求代
本人VB，要用VB事件，如下：
一有几个textbox（用来输入数据），2个button（一个“保存”，一个“退出”），要实现3中情况：
1.当textbox中已输入数据时，点击“退出”时弹出“是否要保存数据”提示，YES的话弹出“保存并退出”，然后关闭窗体；NO的话退出不保存数据，关闭窗体。
2.当textbox中已输入数据时，点击“保存”时弹出“是否保存”提示，YES后弹出”保存成功”提示，确定后再点击“退出”，就关闭窗体；NO的话返回原窗体。
3.textbox中没输入数据时，点击“退出”，直接关闭窗体。

求 代 考

[解决办法]

VB code

Option ExplicitPrivate Sub CommandExit_Click()    If TextData.Text = "" Then        End    Else         If MsgBox("是否要保存数据?", vbYesNo, "提示") = vbYes Then            SaveData (TextData.Text)            End         Else            End         End If    End IfEnd SubPrivate Sub CommandSave_Click()    If TextData.Text = "" Then        MsgBox ("没有数据需要保存"), vbOKOnly, "提示"        TextData.SetFocus    Else        If MsgBox("是否保存?", vbYesNo, "提示") = vbYes Then            SaveData (TextData.Text)            TextData.Text = ""            TextData.SetFocus        End If    End IfEnd SubPrivate Sub SaveData(ByVal strData As String)        Dim Fnum As Long        Fnum = FreeFile        Open App.Path & "\" & "data.txt" For Append As #Fnum        Print #Fnum, strData        Close #Fnum        MsgBox ("保存成功"), vbOKOnly, "提示"End Sub