USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Combo Box
Perci
não registrado
ENUNCIADA !
Postada em 26/01/2007 17:01 hs   
Preciso fazer com que o texto digitado numa ComboBox seja mostrado imediatamente, ao passo que vou digitando o texto, vai aparecendo no combo. Combo Box dinamica. Já vi alguns exemplos mas ainda não consegui adaptar ao meu projeto. Alguém poderia me ajudar com isso?
   
b.3.d.1.n
SANTO ANDRE
SP - BRASIL
ENUNCIADA !
Postada em 26/01/2007 19:00 hs            
Duas rotinas, a Combo1_Change() que auto preenche o combo de acordo com o texto encontrado e uma outra Combo1_LostFocus() que impede que o Compo perca o focus se o texto digitado não existir...

PS: Declare as variaveis... OK?

Private Declare Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long

Const CB_FINDSTRING As Long = &H14C
Const CB_ERR As Long = (-1)

Private Sub Combo1_Change()
  With Combo1
    'Procura pelo texto já digitado
    strPartial = .Text
    I = SendMessage(.hwnd,CB_FINDSTRING,-1, _
        ByVal strPartial)

    'Se achou, adiciona o resto do Texto
    If I <> CB_ERR Then
      'Pega o texto inteiro
      strTotal = .List(I)

      'Compute number of unmatched characters
      j = Len(strTotal) - Len(strPartial)
      If j <> 0 Then
        'Adiciona o resto da string encontrada
        m_bEditFromCode = True
        .SelText = Right$(strTotal, j)

        'Marca os caracteres adicionados
        .SelStart = Len(strPartial)
        .SelLength = j
      End If
    End If
  End With
End Sub

Private Sub Combo1_LostFocus()
  With Combo1
    if Len(.Text) then
      'Procura pelo texto digitado
      strPartial = .Text
      I = SendMessage(.hwnd,CB_FINDSTRING,-1,ByVal strPartial)
      'Se não achou, retorna      o focus para o Combo
      If I = CB_ERR Then .SetFocus
    End if
  End With
End Sub

.:Rodrigo Bedin:.
   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 26/01/2007 22:33 hs            
Desculpe amigo, mas não entendi, ou então não precisa de tudo isto.
Ou então estou ficando velho e desatualizado.
 
Private Sub Combo1_Change()
 Combo2.Text = Combo1.Text
End sub
 
Se é isto, teste, a medida que digita na Combo1, aparece na Combo2.
 
vlu//
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página