Visual Basic 6.0 -Utilizzo timer per playlist record tabella access

di Anonimizzato23084 il
10 risposte
/
Anonimizzato23084
Utente anonimizzato
Ciao a tutti mi chiamo pippo e mi ero già presentato diverso tempo addietro. Volevo chiedere a qualcuno se può aiutarmi su un argomento di visual basic 6.0
praticamente prelevando i dati da un dalla tabella ARCHIVIO di access (sono dei documenti)
li visualizzo in un txtlettera e li faccio scorrere con il timer fino alla fine (attraverso il seguente codice prelevato mi sembra da questo forum). Non so se è possibile ma desidero mettere alla fine di tutti i documenti (txtlettera) una frase convenzionale che fa bloccare il timer e passa al record successivo (alla lettera successiva) . Voglio organizzare una sorta di playlist non con canzoni ma con documenti. grazie anticipatamente

Sub Timer1_Timer()
Static iCount As Integer
iCount = iCount + 1
For i = 1 To 1
Txtlettera.Top = Txtlettera.Top - txttempo.Text
DoEvents
If bStop Then Exit For
Next i
End Sub

Private Sub Form_Load()
st = "SELECT * FROM ARCHIVIO WHERE idlettera=" & FrmAnagrafica.Listalettere.ItemData(FrmAnagrafica.Listalettere.ListIndex)
Set rs2 = DB.OpenRecordset(st)
ID = rs2!idlettera
txttitolo = NullValue(rs2!titolo)
Txtlettera = NullValue(rs2!lettera)
End Sub

10 Risposte

  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Intanto devi scrivere i quesiti tecnici nella sezione opportuna (Visual Basic 6) e non nelle PRESENTAZIONI.

    Poi, questa

    For i = 1 To 1

    e quindi questa

    If bStop Then Exit For

    non hanno alcun senso.

    E anche queste

    Static iCount As Integer
    iCount = iCount + 1

    Per il resto, non si capisce ... da dove vengono i dati ... e il resto della richiesta
  • /
    Anonimizzato23084
    Utente anonimizzato
    Scusa oregon come dicevo è la prima volta che scrivo nel forum e non sapevo che dovevo aprire una nuova discussione in una sezione dedicata. Penso che dovrò aprirla nella sezione database bho! proviamo. Cmq fatta la pulizia del codice e togliendo tutto quello che hai detto funziona perfettamente lo stesso grazie.
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Il problema che hai non è chiaro, forse lo stai affrontando male.

    Se è un problema di codice va in Visual Basic 6
  • /
    Anonimizzato23084
    Utente anonimizzato
    Grazi mille
  • /
    Anonimizzato23084
    Utente anonimizzato
    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
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    In cosa non sono stato chiaro? Qui NON SI PONGONO problemi tecnici !! Mi pareva di averti detto che devi scegliere la sezione adatta e non questa che è riservata alle Presentazioni
  • /
    Anonimizzato23084
    Utente anonimizzato
    Sei stato chiarissimo
    ma dov'è sta sezione?
  • /
    Anonimizzato23084
    Utente anonimizzato
    Area software oppure il bar dei presentatore oppure..... scusami ma
    dove devo andare?
  • /
    Anonimizzato23084
    Utente anonimizzato
    Programmatori non presentatore
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Visual Basic 6 !
Devi accedere o registrarti per scrivere nel forum
10 risposte