+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 6 su 6

Lampeggio alternato di due image

  1. #1
    pazienza non è in linea Scolaretto
    Salve
    Forse mi sto perdendo in un bicchier d'acqua ma...
    Con questo mi lampeggiano(appiono e scompaiono) insieme 2 images
    Private Sub Timer1_Timer()
    Timer1.Interval = 500
    Image1.Visible = Not Image1.Visible
    Image2.Visible = Not Image2.Visible
    End Sub
    
    é possibile farle lampeggiare (apparire) alternativamente a distanza di mezzo secondo?
    Cioé una volta una e una volta l'altra?
    Sempre usando un solo timer?
    grazie
    pazienza

  2. #2
    Prova a partire con una visibile e l'altra no nel Form_Load
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    pazienza non è in linea Scolaretto
    Soluzione perfetta, Antonio.
    Funziona.
    Voglio spiegare meglio il mio scopo:
    In un programma, tra le altre cose, ho due images.
    Posso riempirne 1 o tutte e due
    SE ne ho una deve solo lampeggiare.
    Se sono 2 lampeggiano altenativamente.
    In questo modo, con la tua soluzione,
    Private Sub Form_Load()
    Image2.Visible = False
    End Sub
    Private Sub Timer1_Timer()
    Timer1.Interval = 500
    Image1.Visible = Not Image1.Visible
    Image2.Visible = Not Image2.Visible
    End Sub
    
    si soddisfano tutti e due le cose.
    grazie
    pazienza

  4. #4
    L'avatar di Brontolo
    Brontolo non è in linea Very Important Person
    La prorpietà Interval non dovrebbe essere impostata all'interno dell'evento Timer.
    ℹ️ Leggi di più su Brontolo ...

  5. #5
    Infatti ... anche l'intervallo nel Form_Load
    ℹ️ Leggi di più su AntonioG ...

  6. #6
    pazienza non è in linea Scolaretto
    Ok per interval.
    Ma ho dovuto un po modificare.
    Infatti se le immagini sono fisse allora va bene impostare in partenza il not visible nel form_load.
    Ma se le imagini devono essere caricate di volta in volta con commodialog allora diventa
    Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    Image1.Picture = LoadPicture(CommonDialog1.FileName)
    End Sub
    Private Sub Command2_Click()
    CommonDialog1.ShowOpen
    Image2.Picture = LoadPicture(CommonDialog1.FileName)
    End Sub
    Private Sub Command3_Click()' fa partire il timer
    Image2.Visible = False
    Timer1.Enabled = True
    End Sub
    Private Sub Form_Load()
    Timer1.Interval = 500
    timer1.enabled=false
    End Sub
    Private Sub Timer1_Timer()
    Image1.Visible = Not Image1.Visible
    Image2.Visible = Not Image2.Visible
    End Sub
    
    in questo modo, se non sbaglio, posso caricare 1 o due immagini
    Con una lampeggia solo 1
    con 2 si alternano
    pazienza

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Label con lampeggio
    Da glak nel forum Visual Basic .Net
    Risposte: 6
    Ultimo Post: 28-08-2011, 09:57
  2. lampeggio per x secondi
    Da tizike nel forum Visual Basic 6
    Risposte: 4
    Ultimo Post: 19-04-2011, 18:04
  3. Lampeggio controllo
    Da fpta09 nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 18-12-2009, 21:42
  4. Lampeggio continuo celle
    Da gugluca nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 17-11-2009, 09:36
  5. Caricare file immagine in modo alternato
    Da Cis nel forum Visual Basic 6
    Risposte: 7
    Ultimo Post: 23-07-2006, 16:25