Listview - Parte 2

[Guest - Dargo -]

Agora é outra questão, não me briguem, hehe, já fucei em tudo que é lugar, uma simples busca rápida na listview, tipo o usuário digita na text.box

"Mar" o foco vai até onde tiver a palavra "Mar" ou semelhante da lista, tem como?

alguém tem um ex. ou tutorial, estou fazendo minha apl via código, achei uma busca com ADO, mas não funcionou, não quero mastigado não quero uma "luz",

Valeu de novo povo,

Abraços.

[PiGmEu]

Se for o q eu estiver pensando (você digita o texto em uma combo e ele vai buscando os valores) abaixo vai o codigo , esse já ta mastigado e quase engolido! ehehhehehe

mas da uma lida nele, caso não for o q você quer, já da pra ter uma nocao

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    Dim CB As Long
    Dim FindString As String
    Const CB_ERR = (-1)
    Const CB_FINDSTRING = &H14C
    
    If KeyAscii < 32 Or KeyAscii > 127 Then Exit Sub
    
    If Combo1.SelLength = 0 Then
        FindString = Combo1.Text & Chr$(KeyAscii)
    Else
        FindString = Left$(Combo1.Text, Combo1.SelStart) & Chr$(KeyAscii)
    End If
    
    CB = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal FindString)
    
    If CB <> CB_ERR Then
        Combo1.ListIndex = CB
        Combo1.SelStart = Len(FindString)
        Combo1.SelLength = Len(Combo1.Text) - Combo1.SelStart
    End If
    KeyAscii = 0
End Sub

Abaixo vai uma API, voce coloca ele num modulo:

    #If Win32 Then
        Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
            (ByVal hwnd As Long, ByVal wMsg As Long, _
             ByVal wParam As Long, lParam As Any) As Long
    #Else
        Declare Function SendMessage Lib "User" _
            (ByVal hwnd As Integer, ByVal wMsg As Integer, _
             ByVal wParam As Integer, lParam As Any) As Long
    #End If

Abracos!

[William Rodrigues]

Brother !!!

não me briguem

Antes de mais nada quero que, se der errado, me perdoe mas apenas estou tentando te ajudar tá

Acho que pode te ajudar:

ListView.SelectedItem = ListView.ListItems(NomeDaTxt.Text)

Ah...

Desculpe por passar mastigado...

É que estou no trabalho e não posso ficar muito tempo na NET

Abraços,

William Rodrigues

[Guest - Dargo -]

Hehhe Valeu Willina, brigadão, vou dar uma fuçada no teu código e ver se funciona aqui pra eu....

[Guest - Dargo -]

Desculpe , William,

Agora ta certo

[William Rodrigues]

Hehhe Valeu Willina

Desculpe , William,

Agora ta certo

Esquenta não brother

Se não der certo posta aí que resolvo !!!

Ah...

Se cadastra e ajude a nossa comunidade a crescer ainda mais. Se cadastrando isso lhe traz muitos benefícios. Por exemplo, fica muito mais fácil se comunicar com os membros, através da PM. Com ele você manda uma mensagem (como se fosse um EMail) e assim que a pessoa se logar ele vê a sua mensagem e assim poderá te ajudar mais rápido, as vezes, sem ao menos ter lido seu post

Abraços,

William Rodrigues