VB中,如果文本框中没有输入东西,就点命令按钮,如何弹出对话框提示?
发布网友
发布时间：2022-04-25 15:06
共3个回答
热心网友
时间：2023-10-11 00:08
Private sub Command1_Click()
if Trim(text1)="" then
Msgbox "请输入XXX",Vbcritical,"提示" (弹出对话框）
text1="" （清空文本框内容）
text1.Setfocus （文本框获得输入焦点)
end if
End Sub
注意：当中的Trim()作用为去除其括号内对象内容两端的空格，最好不要省略，因为用户有可能会在该对象（如例中的文本框）内输入空格后点击命令按钮，此时，若省略了trim(),则就会得出错误的处理过程。
热心网友
时间：2023-10-11 00:09
if text1.txt="" then
msgbox
end if
热心网友
时间：2023-10-11 00:09
Private sub Command1_Click()
if text1.text="" then
Msgbox "xx不能为空"
end if
End Sub
