首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

求代碼,该怎么解决

2012-03-06 
求代碼本人剛學VB,要用VB寫個事件,如下:一有几个textbox(用来输入数据),2个button(一个“保存”,一个“退出”)

求代碼
本人剛學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 

热点排行