How to implement <TAB> in PropertyGrid in VB

[Henri]

Hi guys,

I have been searching for a correct answer for that, but without success. It looks like work in C# but not in VB.

I want to implement a TAB between the rows in this sample project. Any idea what is missed?

[Dess | Tech Support Engineer, Principal]

Hello, Henri,

Thank you for the provided sample project. Indeed, when an item in RadPropertyGrid is being edited and the user pressed Tab, the editor doesn't move to the next editable item. 

I believe that the following forum thread is quite useful for achieving your custom requirement: https://www.telerik.com/forums/use-tab-key-to-select-next-property 

I have converted the provided solution to VB and the achieved result is illustrated in the gif file:

Public Class MyPropertyGrid
    Inherits RadPropertyGrid

    Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As Boolean
        If keyData = Keys.Tab Then

            If Me.SelectedGridItem IsNot Nothing Then
                Dim traverser As PropertyGridTraverser = New PropertyGridTraverser(Me.PropertyGridElement.PropertyTableElement)

                While traverser.MoveNext() AndAlso Not traverser.Current.Equals(Me.SelectedGridItem)
                End While

                traverser.MoveNext()
                Me.SelectedGridItem = traverser.Current
                Me.BeginEdit()
                Return True
            Else
                Return MyBase.ProcessDialogKey(keyData)
            End If
        Else
            Return MyBase.ProcessDialogKey(keyData)
        End If
    End Function

    Public Overrides Property ThemeClassName As String
        Get
            Return GetType(RadPropertyGrid).FullName
        End Get
        Set(value As String)
            MyBase.ThemeClassName = value
        End Set
    End Property
End Class

I have modified the sample project as well. Please give it a try and see how it works on your end.

Regards,
Dess | Tech Support Engineer, Principal
Progress Telerik

[Henri]

Thanks Dess, everything working fine.