大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Text1_Change()
目前创新互联建站已为上1000家的企业提供了网站建设、域名、虚拟主机、网站托管、服务器租用、企业网站设计、灵台网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
If Text1 "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
很简单的txt=“”就提示
If TextBox1.Text ="" Then
MsgBox("不能为空", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "错误提示")
'或者这样
If TextBox1.Text = "" Then '错误提示
ErrorProvider1.SetError(TextBox1, "用户名不能为空")
用提示筐
MsgBox(消息文本,显示按纽,标题)
例如:msgbox("是否退出系统?",vbokcancel+vbquestion,"提示")
在30秒的时候弹出个messagebox选择的事件
确定就把timer的enabled属性设置成false 执行关机
取消把timer的enabled属性设置成false 计时器清零就行了
因为我的电脑上没有vb所以我用易语言代替,反正原理都是一样的。谢谢采纳!