求代碼
本人剛學VB,要用VB寫個事件,如下:
一有几个textbox(用来输入数据),2个button(一个“保存”,一个“退出”),要实现3中情况:
1.当textbox中已输入数据时,点击“退出”时弹出“是否要保存数据”提示,YES的话弹出“保存并退出”,然后关闭窗体;NO的话退出不保存数据,关闭窗体。
2.当textbox中已输入数据时,点击“保存”时弹出“是否保存”提示,YES后弹出”保存成功”提示,确定后再点击“退出”,就关闭窗体;NO的话返回原窗体。
3.textbox中没输入数据时,点击“退出”,直接关闭窗体。
求 代碼 學習參考
[解决办法]
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