|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Problemas Comuns)
|
|
 |
Título da Dica: Preenchimento automatico da combo a medida que se digite (Semelhante ao explorer)
|
 |
|
|
|
Postada em 27/2/2004 por Rochª
Quando voce digita uma letra em uma combo, ele mostra o primeiro item que o conteudo contenha o que voce digitou. Exemplo de em digitar 'C' ele vai mostrar o primeiro item com C (Carlos) e o cursor ficara parado entre o C e o A, a pendida que eu vou digitando ele vai preenchento com um item que satisfaca o que eu digitei.
Igual a digitacao dos enderecos das paginas no explorer.
No seu formulario coloque.
Private Sub cmb_fornecedor_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmb_fornecedor.KeyPress
AUTO_PREENCHIMENTO_COMBO(cmb_fornecedor, e)
End Sub
Onde cmb_fornecedor é a combo que tera o preenchimento automatico.
Crie um novo modulo assim.
Module Bib_Combo
Sub AUTO_PREENCHIMENTO_COMBO(ByRef cmb_aux As ComboBox, ByVal tecla As System.Windows.Forms.KeyPressEventArgs)
Dim KeyAscii As Integer = Asc(tecla.KeyChar)
Select Case KeyAscii
Case 13 'Enter key
SendKeys.Send("{TAB}")
tecla.Handled = True
Case 8 'Enter backspace
Case Else
Dim Index As Integer = cmb_aux.FindString(cmb_aux.Text)
Dim CharsTyped As Integer = cmb_aux.Text.Length
If Index >= 0 Then
cmb_aux.SelectedIndex = Index
'Select the portion that was added
cmb_aux.SelectionStart = CharsTyped
cmb_aux.SelectionLength = cmb_aux.Text.Length
End If
End Select
End Sub
End Module
A noite é uma criança e na madrugada nasce mais uma rotina.
Rochª
|
|
|
|
|
