人类消除计划3百度云:VB中关于msgbox使用的一个问题?

来源:百度文库 编辑:神马品牌网 时间:2024/03/29 20:23:40
创建一个文本框text1.text和一个按钮command1
在command1的单击事件中编如下代码:
if text1.text="" then
m=msgbox("请核对输入",vbokcancel,"提示")
end if
当text1.text输入为空时点击command,调用msgbox,正常,但是点击"确定"后,整个程序就退出了,无法回到输入窗口 ,刚接触VB,请教高手?

变量m未定义,代码修改如下:
Option Explicit
Dim m As Byte

Private Sub Command1_Click()
If Text1 = "" Then
m = MsgBox("请核对输入", vbOKCancel, "提示")
Text1.SetFocus
Else
'写正常做的语句
End If
End Sub

有没有定义M?
if text1.text="" then
if msgbox("请核对输入",vbokcancel,"提示") = vbOk then
....点确定后做什么?
else
....点取消后做什么?
end if
end if