以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]依字段顺序动态调整Tab键顺序。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51989)
--  作者：关键下一秒
--  发布时间：2014/6/6 20:33:00
--  [分享]依字段顺序动态调整Tab键顺序。
论坛找了一下，需要的同学还不少。

    \'用字串_TabSortStr设置窗口控件的Tab顺序.
    dim  _TabSortStr as string  = "第一列，第二列，第三列,...,第n列"
    If _TabSortStr <> "" Then
        Dim tbs() As String = _TabSortStr.Split(",")
        For i As Integer = 0 To tbs.Length - 1
            For Each c As WinForm.Control In e.Form.Controls
                If c IsNot Nothing AndAlso c.BindingField<>"" AndAlso c.BindingField.Contains(tbs(i)) Then
                    c.BaseControl.TabIndex = i
                End If
            Next
        Next
    End If
--  作者：关键下一秒
--  发布时间：2014/6/6 21:49:00
--  
如果要跳过某个控件，使用：c.BaseControl.TabStop = False
--  作者：Bin
--  发布时间：2014/6/7 8:39:00
--  
不错.顶一下
--  作者：blackzhu
--  发布时间：2014/6/7 9:13:00
--  
好办法
--  作者：zyqzyy
--  发布时间：2014/6/7 9:25:00
--  

是个好思路，谢谢！

 

思路决定出路

[此贴子已经被作者于2014-6-7 9:26:22编辑过]