ROSTAM2
جمعه 27 آبان 1401, 21:19 عصر
با سلام.
من برای اضافه کردن آدرس کلیدهای رجیستری در AutoComplete از TextBox و در رویداد KeyPress این دستور رو نوشتم:
154230
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?!
من برای اضافه کردن آدرس کلیدهای رجیستری در AutoComplete از TextBox و در رویداد KeyPress این دستور رو نوشتم:
154230
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?!