Visualizzazione dei risultati da 1 a 4 su 4
  1. #1

    vb6 - comportamento strano

    vi sottopongo un pezzo di codice che, secondo me, da risultati opposti
    a quanto mi aspetterei:
    in pratica in circostanze particolari visualizzo un messaggio di attenzione
    e perche' sia incisivo lo rendo lampeggiante tramite l'evento timer

    Private Sub AttivaAttenzione()
    §Attenzione.Visible=true
    §Attenzione = "ATTENZIONE!!!"
    §TimerAttenzione.Interval = 700
    End Sub

    quando viene a mancare il motivo del messaggio lo nascondo con il
    seguente codice

    Private Sub DisattivaAttenzione()
    §TimerAttenzione.interval = 0
    §Attenzione.Visible = False
    End Sub

    ed ecco la stranezza: il messaggio mi rimane visualizzato.
    se pero' utilizzo il seguente codice

    Private Sub DisattivaAttenzione()
    §TimerAttenzione.interval = 0
    §Attenzione.Visible = True
    End Sub

    il messaggio effettivamente scompare.
    E' l'esatto opposto di quanto mi sarei aspettato.
    Qualcuno sa dirmi a cosa e' dovuto questo strano comportamento?

    - Per Gibra
    scusami ma ho tentato di usare il Code come mi hai suggerito ma non ci sono
    riuscito; abbi pazienza mi dici come va utilizzato? cosa devo inserire nel MsgBox
    che mi viene presentato? Grazie

  2. #2
    Utente di HTML.it L'avatar di gibra
    Registrato dal
    Apr 2008
    residenza
    Italy
    Messaggi
    4,244
    Per disabilitare il Timer devi disabilitarlo:

    codice:
    Timer1.Enabled = False
    per il tag CODE:
    1. seleziona il codice da formattare
    2. premi il pulsante CODE


  3. #3
    Utente bannato
    Registrato dal
    Mar 2007
    Messaggi
    190
    ciao Luberto Mario

    strano che eseguendo questi frammenti di codice "esegua" l'opposto.

    codice:
    rem visualizza attenzione
    Private Sub AttivaAttenzione()
    Attenzione.Visible=true
    Attenzione = "ATTENZIONE!!!"
    TimerAttenzione.Interval = 700
    End Sub
    
    rem nascondi attenzione
    Private Sub DisattivaAttenzione()
    TimerAttenzione.interval = 0
    Attenzione.Visible = False
    End Sub
    
    rem disattiva attenzione
    Private Sub DisattivaAttenzione()
    TimerAttenzione.interval = 0
    Attenzione.Visible = True
    End Sub

    potrebbe essere, come a me succede spesso,
    che altri codici interferiscono con questo.

    Fai attenzione a dove è inserito il comando,
    magari viene rieseguito da qualche altra funzione.

  4. #4
    ho risolto con il suggerimento di gibra, ossia
    disabilitando il timer

    grazie comunque

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.