Visual basic timer

[ciro_!]

avrei bisogno di creare un timer in visual basic, premetto che ho iniziato ad imparare il visual basic da due giorni quindi non conosco nomi di funzioni esistenti e ho poca dimestichezza con utilizzi di oggetti proprietà etc.

in pratica ho questo scenario: ho una text boxt nel quale è visualizzato:"erogazione in corso"
voglio che dopo x secondo venga visualizzato "prelevare prodotto"

Codice: Seleziona tutto

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles display.TextChanged
        
        If tipo Like "select" And selezione Like "12" And credito >= 40 And punto < "....." Then
            display.Text = "erogazione in corso"
            
        Else <altre istruzioni>
        End If

   End Sub

come faccio ad inserire un timer?

[danilo84]

Ciao, per il Timer in VB6 c'è l'oggetto timer che puoi mettere nel form e dare come valore 1000. Se non ricordo male è Interval che inizialmente lo setti a 0. Quando ti serve lo metti a 1000 e il timer parte.

[ciro_!]

si ho trovato l'oggetto timer ma mi servirebbe un aiuto pratico.

ho fatto cosi:

Codice: Seleziona tutto

 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles display.TextChanged
        If tipo Like "select" And selezione Like "12" And credito >= 40 Then
            Timer1.Enabled = True
            Timer1.Interval = 6000

        ElseIf <altre istruzioni>
    End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        display.Text = "preleva prodotto"
        Timer1.Enabled = False
    End Sub

se faccio cosi dopo 6 secondi riesco ad ottenere che viene visualizzata la scritta desiderata... il fatto è che nn riesco ad ottenere che 6 secondi prima venga visualizzata una scritta del tipo "erogazione in corso"

cioè se aggiungo al codice:

Codice: Seleziona tutto

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles display.TextChanged
        If tipo Like "select" And selezione Like "12" And credito >= 40 Then
            display.Text = "erogazione in corso" <------------------------------------------------------
            Timer1.Enabled = True
            Timer1.Interval = 6000

        ElseIf <altre istruzioni>
    End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        display.Text = "preleva prodotto"
        Timer1.Enabled = False
    End Sub

mi da errore

[Pixel]

Siccome la programmazione in VB non è supportata da Ubuntu (ovviamente ) sposto al Bar Informatico.
Buon proseguo