Question

VB中，如果文本框中没有输入东西，就点命令按钮，如何弹出对话框提示？

Answer 1

Private sub Command1_Click()
if Trim(text1)="" then
Msgbox "请输入XXX",Vbcritical,"提示" (弹出对话框）
text1="" （清空文本框内容）
text1.Setfocus （文本框获得输入焦点)
end if
End Sub
注意：当中的Trim()作用为去除其括号内对象内容两端的空格，最好不要省略，因为用户有可能会在该对象（如例中的文本框）内输入空格后点击命令按钮，此时，若省略了trim(),则就会得出错误的处理过程。

Answer 2

if text1.txt="" then
msgbox
end if

Answer 3

Private sub Command1_Click()
if text1.text="" then
Msgbox "xx不能为空"
end if
End Sub