以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于鼠标移动到某个位置的  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106306)

--  作者:yds
--  发布时间:2017/9/6 14:39:00
--  [求助]关于鼠标移动到某个位置的

图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看

如上图所示,在点击确定按钮后会对输入的值进行判断,如果那个输入错误了直接清空,然后鼠标自动选择该控件,这个怎么实现,求大神解答一下!

--  作者:有点甜
--  发布时间:2017/9/6 14:43:00
--  
Dim cs() As String = {"textbox1", "Textbox2"}
For Each c As String In cs
    Dim obj = e.form.controls(c)
    If obj.text = Nothing Then
        msgbox(c)
        obj.Select
    End If
Next

--  作者:YDS
--  发布时间:2017/9/6 15:09:00
--  
非常感谢,就是这个空间的属性没有弄明白