2015年11月29日 星期日

vbnet NextControl Focus

這是利用 enter 來切到下一個元件 Focus
不過這用法遇到框架內的就卡住了!!   有興趣可參考
---
 Dim k As Integer = 0
 If e.KeyData = Keys.Enter Then          
     k = sender.tabindex
     NextControl(k)
 End If


    Public Sub NextControl(ByVal ctrlTabIndex As Integer)
        For Each ctrl As Control In Controls
            If (ctrl.TabIndex) = (ctrlTabIndex + 1) Then
                ctrl.Focus()
            End If
        Next
    End Sub

沒有留言:

張貼留言