EXIBICAO DE REGISTROS NUMA LISTBOX

XYKOVIEIRA 15/10/2011 00:49:12
#386741
Olá... Ói nóis aqui traveis... Preciso de um help, pls.....
Tenho um project em VB6 que utiliza uma listbox para exibir, em tempo real, os registros que vão sendo digitados numa textbox.
Ocorre que, ao encher a listbox, os novos registros não são exibidos (a list se mantém na tela desde o primeiro registro gravado.
Os novos ficam ocultos, até o limite visível da listbox, sendo acessáveis através de um clique na scrollbar vertical).
Como devo fazer para, a cada novo registro cadastrado, a list rolar automaticamente, exibindo na tela não o início dos registros,
mas sim os últimos? (ela exibe o início dos registros por [ô]default[ô]).
Abaixo, algumas partes do código, para entendimento:

Private Sub cmdNovo_Click()
Label2.Visible = True
txtAtor.Visible = True
cmdGravar.Visible = True
Set Banco = OpenDatabase([Ô]D:\Filmes.mdb[Ô])
Set TabAtores = Banco.OpenRecordset([Ô]CadastrodeAtores[Ô], dbOpenDynaset)
TabAtores.AddNew
txtAtor.SetFocus
End Sub

Private Sub cmdGravar_Click()
If txtAtor.Text = [Ô][Ô] Then
MsgBox [Ô]Preencha o nome do ator![Ô], vbOKOnly
txtAtor.SetFocus
Else
AtualizaCamp
TabAtores.Update
MsgBox [Ô]Registro gravado...[Ô]
txtAtor.Text = [Ô][Ô]
Label2.Visible = False
txtAtor.Visible = False
cmdGravar.Visible = False
cmdMostrarAtores_Click
End If
End Sub

Private Sub cmdMostrarAtores_Click()
List2.Visible = True
List2.Clear
Set TabAtores = Banco.OpenRecordset([Ô]Select Distinct Atores From CadastrodeAtores[Ô])
TabAtores.MoveFirst
While Not TabAtores.EOF
List2.AddItem TabAtores!Atores
TabAtores.MoveNext
Wend

[ô]A medida em que vai sendo preenchida, a list2 deixa invisíveis os registros que não cabem na tela.
[ô](Somente os primeiros são exibidos)...

End Sub


Obrigado de novo, galera...
MARCELO.TREZE 15/10/2011 01:40:11
#386743 Resposta escolhida
assim

Private Sub cmdMostrarAtores_Click()
List2.Visible = True
List2.Clear
Set TabAtores = Banco.OpenRecordset([Ô]Select Distinct Atores From CadastrodeAtores[Ô])
TabAtores.MoveFirst
While Not TabAtores.EOF
List2.AddItem TabAtores!Atores
TabAtores.MoveNext
Wend

[txt-color=#0000f0]List2.TopIndex = List2.ListCount - 1[/txt-color]

End Sub
XYKOVIEIRA 15/10/2011 09:16:58
#386754
Grande Marcelo Treze... Na mosca....
(Nada como poder contar com a inestimável ajuda daqueles que sabem, e que se dispõem a compartilhar seu conhecimento.)
Valeu.
Chico.
Tópico encerrado , respostas não são mais permitidas
Voltar