VB编程代码编写请问：我在ＶＢ的设计窗口用一个文本框输入信息，当我在文本框内输入完要写的信息，光标移走文本框不在文本框内内动时（注：当输入的合法），窗体立即显示出＂输入信息合法，可用＂同... - 维库知道

电子工程师的网站

维库知道

芯片资料　|　技术论坛

PDF资料

IC货源

显示技术

现在位置: 首页 >显示技术

VB编程代码编写请问：我在ＶＢ的设计窗口用一个文本框输入信息，当我在文本框内输入完要写的信息，光标移走文本框不在文本框内内动时（注：当输入的合法），窗体立即显示出＂输入信息合法，可用＂同...

VB编程代码编写

请问：我在ＶＢ的设计窗口用一个文本框输入信息，当我在文本框内输入完要写的信息，光标移走文本框不在文本框内内动时（注：当输入的合法），窗体立即显示出＂输入信息合法，可用＂
同样当我在文本框内输入完要写的信息，光标移走文本框不在文本框内内动时（注：当输入的不合法），窗体立即显示出＂输入信息有误，请重输＂
请问代码是应当如何编写，才可以这样的效果呢？
请各位高手帮帮忙，恳请各位高手能给小弟讲一讲此代码要如何编写！
　　　　　　　　谢谢！谢谢！！！！！！

Protected Sub textbox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles username.TextChanged

IF ……then
……
else
……
end if
End Sub

1 楼时间:2008-1-10

新建一个工程，在窗体上添加一个标签控件、二个文本框控件，假设在第一个文件文本框内输入“abc”，并单击第二个文本框时就会在标签控件中显示“输入信息合法，可用”，输入不是"abc"，单击第二文本框时，就会在标签控件中显示“输入信息有误，请重输”。代码如下：
Private Sub Text1_LostFocus()
If Text1.Text = "abc" Then
Label1.Caption = "输入信息合法，可用"
Else
Label1.Caption = "输入信息有误，请重输"
End If
End Sub