eu fiz um programa de armazenamento de registos em que as datas exstentes no listview também se encontram num combo box "cbo_data" e ao clicar num registo do cbo_data o seu equivalente é selecionado no list view
Private Sub cbo_data_Click()
Dim i As Integer
For i = 1 To lst_reg(6).ListItems.Count
If (lst_reg(6).ListItems(i).ListSubItems(1).Text = cbo_data.Text) Then
lst_reg(6).ListItems(i).Selected = True
lst_reg(6).SetFocus
End If
Next
End Sub
o problema é que tendo muitos registos se o registo em causa for dos ultimos o registo so é visto deslocando a barra de rolagem
Pergunta
balduino
eu fiz um programa de armazenamento de registos em que as datas exstentes no listview também se encontram num combo box "cbo_data" e ao clicar num registo do cbo_data o seu equivalente é selecionado no list view
Private Sub cbo_data_Click()
Dim i As Integer
For i = 1 To lst_reg(6).ListItems.Count
If (lst_reg(6).ListItems(i).ListSubItems(1).Text = cbo_data.Text) Then
lst_reg(6).ListItems(i).Selected = True
lst_reg(6).SetFocus
End If
Next
End Sub
o problema é que tendo muitos registos se o registo em causa for dos ultimos o registo so é visto deslocando a barra de rolagem
como fazer isso automaticamente
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.