نمایش آدرس کلیدهای رجیستری در AutoComplete از TextBox

[ROSTAM2]

با سلام.
من برای اضافه کردن آدرس کلیدهای رجیستری در AutoComplete از TextBox و در رویداد KeyPress این دستور رو نوشتم:

AutoCompleteSource RegistryKey.jpg

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim kEYsTR As String = ""

        Dim Expr$ = ""

        Try

            Select Case e.KeyChar

                Case ""

                    kEYsTR = Me.TextBox1.Text

                    Me.TextBox1.Enabled = False

                    With Key.OpenSubKey(kEYsTR, RegistryKeyPermissionCheck.ReadSubTree, Security.AccessControl.RegistryRights.FullControl)

                        For Each Key As String In .GetSubKeyNames

                            Expr = String.Format("{0}\{1}", kEYsTR, Key)

                            If Me.TextBox1.AutoCompleteCustomSource.Contains(Expr  ) = True Then Exit For

                            Me.TextBox1.AutoCompleteCustomSource.Add(Expr)

NextFor:

                        Next

                    End With

                    Me.TextBox1.Enabled = True

                    Me.TextBox1.Focus()

                    Me.TextBox1.Text = Me.TextBox1.Text.Insert(Me.TextBox1.TextLength, "")

                    Me.TextBox1.SelectionStart = Me.TextBox1.TextLength

            End Select

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

آیا راه حل بهتر و ساده تری هم هست برای لیست شدن کلید های رجیستری در AutoComplete?!

[ROSTAM2]

فرمی که این TextBox توی اون قرارداره یک خصوصیت RegistryHive داره که باید قبل از Load در پنجره Owner مقدار دهی بشه:

 Private RegistryHiveValue As RegistryHive

    Public Property RegistryHive() As RegistryHive

        Get

            Return RegistryHiveValue

        End Get

        Set(ByVal value As RegistryHive)

            RegistryHiveValue = value

        End Set

    End Property

و برای کلید های اولیه از RegistryHive و مقدار دهی به متغیر Key که یک RegistryKey هست:

 Dim Key As RegistryKey = Nothing

    Private Sub StringTableDialog_Load(sender As Object, e As EventArgs) Handles Me.Load

        Select Case Me.RegistryHive

            Case RegistryHive.ClassesRoot

                Key = Registry.ClassesRoot

            Case RegistryHive.CurrentConfig

                Key = Registry.CurrentConfig

            Case RegistryHive.CurrentUser

                Key = Registry.CurrentUser

            Case RegistryHive.LocalMachine

                Key = Registry.LocalMachine

            Case RegistryHive.Users

                Key = Registry.Users

        End Select

        Try

            Me.TextBox1.ReadOnly = True

            With Key

                If Me.TextBox1.AutoCompleteCustomSource.Count = 0 Then

                    Me.TextBox1.AutoCompleteCustomSource.AddRange(.Get  SubKeyNames)

                End If

            End With

            Me.TextBox1.ReadOnly = False

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub