ALTERAR COR DA LINNHA NO EVENTO MOUSEMOVE LISTBOX

GERALDUS 02/05/2012 18:05:42
#401211
Galera! Gostaria de ao passar o mouse sobre os itens de um listbox a linha ficasse com um fundo diferente, tipo o que ocorre no combobox, mas não consegui fazer, sempre que tento a cor vai pra todas as linhas e eu quero é só nalinha que o mouse passa. Obrigado a quem puder ajudar.
ROBIU 02/05/2012 21:25:12
#401221 Resposta escolhida 
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lIndex As Long
    Set Me.Font = List1.Font
    lIndex = List1.TopIndex + Y \ Me.TextHeight([Ô]A[Ô])
    If lIndex > -1 And lIndex < List1.ListCount Then
        List1.Selected(lIndex) = True
        List1.ToolTipText = List1.List(lIndex)
    Else
        List1.ToolTipText = vbNullString
    End If
End Sub
GERALDUS 03/05/2012 08:23:39
#401242
Valeu ROBIU! Mas esse exemplo ai não resolve meu problema, pois a linha (List1.Selected(lIndex) = True) já seleciona a opção e eu queria selecionar só quando clicar, porém queria que ao passar o mouse nas opções o Bgcolor da linha mudasse. Vou postar meu projeto de teste aqui e vocês vão entender melhor o que eu quero.
GERALDUS 03/05/2012 09:04:41
#401248
Ae galera!! Consegui!! ROBIU seu exemplo foi muito bom!! Deu pra adaptar e ficou legal
Tópico encerrado , respostas não são mais permitidas
Voltar