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