神马品牌网虎皮鹦鹉 幼鸟 公母:VB工程警告窗问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/08 14:32:22
VB工程中,,
两个 Text Box控件 和一个按钮控件 都在同一个区域
如何实现,运行后,当点击按钮,如果其中有一个Text Box 为空的时候
就提示警告窗,, 老师请指教
两个 Text Box控件 和一个按钮控件 都在同一个区域
如何实现,运行后,当点击按钮,如果其中有一个Text Box 为空的时候
就提示警告窗,, 老师请指教
Option Explicit
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox "错误:文本框空!" & vbCrLf & "请输入!", vbExclamation, "Text Editor"
End If
End Sub
if text1.text="" then
变量=megbox("对不起,你输入错误",3+48+0,"警告")
3的意思:”是“、“否”、“取消”三个按钮
48 是：警告信息图标！
0 是：第一个按钮作为默认按钮
end if
Option Explicit
Private Sub Command1_Click()
if text1.text="" or text2.text="" then
msgbox ("请输入内容",vbOkOnly,"警告")
end if
End Sub
Private Sub Command_Click()
If Text1.Text="" Or Text2.Text="" Then
MsgBox "Error",,"Error"
End If
End Sub
两个TextBox分别是Text1,Text2
按钮名字叫Command