Grazie oregon Nuovamente avevo scritto nella sezione sbagliata.
Ciao a tutti mi chiamo pippo sono un neofida della programmazione e volevo chiedere a qualcuno se può aiutarmi su un argomento di visual basic 6.0
Ho delle poesie che faccio scorrere attraverso un text.txt impostato nella proprietà multilinee a true
Il mio obiettivo è quello di creare una sorta di presentazione di queste poesie che scorrono in maniera verticale. E alla fine della pagina mettere dei simboli o una frase convezionale che fa bloccare lo scorrimento del timer e inizia una nuova pagina con una nuova poesia (record successivo).
praticamente utilizzo un database Access:
nel progetto
1 form che contiene una listbox per l’elenco delle poesie
nel form ci sono:
command1 per azionare l’avvio della poesia
command2 per azionare il blocco
nr.1 text che ho rinominato txtid per visualizzare i record
un text che ho rinominato txtlettera con proprietà multilinee a true
un text che ho rinominato txttitolo
un text che ho rinominato txttempo dove indico la velocità di scorrimento della pagina
1 timer1
Questo è il codice utilizzato che funziona perfettamente solo nello scorrimento in verticale della pagina:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = false
End Sub
Sub Timer1_Timer()
Txtlettera.Top = Txtlettera.Top - txttempo.Text
End Sub
Private Sub Form_Load()
st = "SELECT * FROM POESIE WHERE idlettera
Set rs2 = DB.OpenRecordset(st)
txtID = rs2!idlettera
txttitolo = NullValue(rs2!titolo)
Txtlettera = NullValue(rs2!lettera)
End Sub
grazie anticipatamente