请教VB问题!

谢雨

我在写一个小程序时加入了
ON ERROR GOTO ERR:
TEXT1.TEXT=ADMIN
EXIT SUB
ERR:
MSGBOX(#@%$#$&$%&)
EXIT SUB
这段代码!我是想在TEXT中输入非ADMIN后出现下面的提示信息!但是每次都是TEXT清屏,并无提示信息!怎么办?难道我写错什么了吗?

guopapa

你这个程序完全可以用IF THEN ELSE 实现，因为不涉及容错，当然不提示。

修改为：(俺是用C的，VB早忘的差不多了)
if text1.text<>"admin" then
msgbox("sdsdsds")
else
exit sub
end if

找路人

正确的写法:

1. 
   
2. if TEXT1.TEXT &lt&gt "ADMIN" then
   
3.    msgbox("Your Message!")
   
4.    exit sub
   
5. end if
   

复制代码

或者:

1. 
   
2. on error goto errorHandler
   
3. if TEXT1.TEXT &lt&gt  "ADMIN" then
   
4.    err.raise 1234
   
5. end if
   
6. errorHandler:
   
7. msgbox "Your error message!"
   
8. exit sub
   

复制代码

bestmaninworld

何处有ERROR？没有就清屏了。