十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
实现的操作方法和步骤如下:
成都创新互联公司,为您提供重庆网站建设、成都网站制作、网站营销推广、网站开发设计,对服务成都地磅秤等多个行业拥有丰富的网站建设及推广经验。成都创新互联公司网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈,认真对待每位客户,为客户提供赏心悦目的作品。 与客户共同发展进步,是我们永远的责任!
1、首先,打开“易语言”,然后选择“Windows窗口程序”选项,如下图所示,然后进入下一步。
2、其次,完成上述步骤后,将编辑框、按钮和常用对话框从基本组件栏拖放到程序中,如下图所示,然后进入下一步。
3、接着,完成上述步骤后,单击以选中“通用对话框”,然后在左侧的属性列中看到“过滤器”。根据图片上的要求输入文本,如下图所示,然后进入下一步。
4、然后,完成上述步骤后,输入以下图中红框内的代码,如下图所示,然后进入下一步。
5、随后,完成上述步骤后,就可以点击工具栏中的运行按钮了,如下图所示,然后进入下一步。
6、最后,完成上述步骤后,可以单击编译保存,如下图所示。这样,问题就解决了。
Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = "A" And e.KeyChar = "Z" Or e.KeyChar = "a" And e.KeyChar = "z" Then
e.Handled = False
Else
MessageBox.Show ("只能输入字母!")
e.Handled = True
Exit Sub
End If
End Sub
你用的都是vb6的代码,改成:
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符,请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
用提示筐
MsgBox(消息文本,显示按纽,标题)
例如:msgbox("是否退出系统?",vbokcancel+vbquestion,"提示")
这个错误消息的提示是“不能在非用户界面的状态下使用模态对话框”,你的这个程序是console(命令行)或者是无界面的?只能在有界面的程序中使用对话框的。
msgbox就可以,很大一部分就是msgbox做的。
或者可以添加一个红色标签,用来提示输入错误并清空密码输入框。