|
|
Postada em 23/09/2004 07:29 hs
Olá Pessoal do VBWEB. Queria saber se tem como fazer no botão próximo e anterior, exibir continuamente os registros, caso o usuário clicar e segurar o botão, até o final do arquivo. |
|
|
|
|
|
|
|
Postada em 23/09/2004 08:16 hs
Tem sim , para o botao proximo execute o rs.MoveNext e pro anterior rs.MovePrevious claro que rs é um recordset e apos cada move vc iguala os objetos da tela com os campos do recordset |
|
|
|
Koenma
|
POÇOS DE CALDAS
MG - BRASIL
|
|
Postada em 23/09/2004 08:18 hs
'Tenta fazer com um TIMER e uma Variavel BOOLEAN
Option Explicit
Dim com As Boolean
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
com = True
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
com = False
End Sub
Private Sub Timer1_Timer()
If com = True Then
Label1 = Label1 + 1
End If
End Sub
________________________ Té + Que NIMB role bons Dados! 
|
|
|
|
|
|
Postada em 24/09/2004 01:06 hs
FatBoy, tentei fazer o seu exemplo, más não sei se fiz certo ou se eu entendi o que você me passou, más no seu esquema tenho que clicar no botão varias vezes, o que queria seria clicar apenas uma vez e segurar o botão pressionado como por exemplo uma barra de rolagem que vai descendo e subindo os registros na tela quando se clica nas setas das barras. Koenma fiz o seu esquema e infelizmente não deu certo, pois ele não está fazendo a soma quando clico no botão ou passo o mouse pelo botão. Agradeço pela atenção de vocês e se puderem ainda me dar uma força agradeço ainda mais. Vocês ou algum outro amigo. Abraços |
|
|
|
Koenma
|
POÇOS DE CALDAS
MG - BRASIL
|
|
Postada em 24/09/2004 08:00 hs
Eu coloquei só um exemplo de como poderia funcionar, mas não sei se vc já usou o Timer. Coloque a Propriedade Interval do Timer como 500. Deve resolver o Problema.
________________________ Té + Que NIMB role bons Dados!
|
|
|
|
|
|
Postada em 26/09/2004 16:16 hs
Koenma obrigado pela ajuda. |
|
|
|
