求代碼

Question

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

Answer 1

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 If
End 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 If
End 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