Casella di testo visibile/invisibile

di
Walter61
il
5 risposte
Walter61
Walter61
Utente Attivo
Iscritto da
mar, 2020
Messaggi:
162

Casella di testo visibile/invisibile

Se eseguo il codice in modalita' debug F8 riga per riga mi visualizza la casella di testo txtAttendere
Se eseguo il codice normalmente non visualizza la casella di testo
Perche'?
Private Sub pulProcedi_Click()

If MsgBox("Il conteggio può richiedere diversi secondi di attesa" & vbCrLf & "Premere OK per conteggiare", vbYesNo + vbQuestion) = vbNo Then GoTo esci
Me.txtAttendere = "ATTENDERE"
Me.txtAttendere.Visible = True
Call CalcolAttivi
Me.txtAttendere.Visible = False
esci:
End Sub

5 Risposte

  • O
    OsvaldoLaviosa
    Super Famoso
    Iscritto da
    apr, 2012
    Messaggi:
    7493

    Re: Casella di testo visibile/invisibile

    Perchè 
    Me.txtAttendere.Visible = False
    lo hai messo alla fine.
  • Walter61
    Walter61
    Utente Attivo
    Iscritto da
    mar, 2020
    Messaggi:
    162

    Re: Casella di testo visibile/invisibile

    lo hai messo alla fine.
    la sub CalcolAttivi e' lunga e poi visualizza tutti i suoi risultati
    vorrei far apparire un msg ATTENDERE mentre detta procedura lavora
    il msg dovrebbe scomparire quando la sub e' terminata

    funziona tutto perfettamente in modalita' debug
    mentre in modalita' di normale esecuzione la finestra attendere non compare neanche per un secondo
  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21748

    Re: Casella di testo visibile/invisibile

    Dopo la

    Me.txtAttendere.Visible = True

    aggiungi una

    DoEvents
  • Walter61
    Walter61
    Utente Attivo
    Iscritto da
    mar, 2020
    Messaggi:
    162

    Re: Casella di testo visibile/invisibile

    aggiungi una

    DoEvents
    ecco ho aggiunto e ora funziona, ti ringrazio moltissimo, ma...
    non ne capisco la logica
    perche' c'e' bisogno del NoEvents?
  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21748

    Re: Casella di testo visibile/invisibile

    Il DoEvents permette a Windiws di trattare i messaggi di ridisegno (WM_PAINT) interni prima che il codice vba si concluda.
Devi accedere o registrarti per scrivere nel forum
5 risposte