olá amigos, goataria de saber como faço para obter o nome desejado, ex.:    tenho uma tabela com 20 nomes, gostaria de saber como faço para ficar passando os nomes bem rapido na tela, q quando eu precionasse uma tecla ele parasse neste nome ?

eu não sei se entendi mas vê se é isso

 

no programa a seguir uma lista de 10 nomes ficarão passando em um textbox

 

quando você pressionar "a barra de espaço" um nome será escolhido

 

coloque em um form um textbox e um timer

 

mude a propriedade interval do timer para 100, quanto maior mais devagar

 

agora insira o seguinte codigo:

 

Dim nome(10) As String
Dim f As Variant

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeySpace Then
Timer1.Interval = 0
End If
End Sub

Private Sub Form_Load()
nome(0) = "maria"
nome(1) = "marcelo"
nome(2) = "Joaquim"
nome(3) = "joão"
nome(4) = "Josefa"
nome(5) = "Joaquina"
nome(8) = "Pedro"
nome(9) = "Carminda"
End Sub

Private Sub Timer1_Timer()
Text1.Text = nome(f)
f = f + 1
If f = 9 Then f = 0
End Sub

espero ter ajudado

 

poste resposta

 

até