Newsgroup: it.comp.appl.access
Titolo: far blinkare un pulsante

Domanda: e' possibile far blinkare un pulsante (farlo lampeggiare?)
non c'e' un modo diretto quindi ho pensato di fare una roba del genere:
                Me.GenPwd.Transparent = True
                For i = 0 To 10000
                    a = 0
                Next i
                Me.GenPwd.Transparent = False
in questo caso attiva la trasparenza del bottone, fa un ciclo per 10000t
e disattiva la trasparenza...
risultato? non te ne accorgi nemmeno.. :(
ora evitando di star li a provare di trovare il numero giusto
di iterazioni da fargli fare... 
c'e' mica un modo piu' semplice?
tipo un comandino che faccia "addormentare" il ciclo per tot ms ?
grazie :)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie :)
Sleep
č un API, trovi il codice nei post precedenti 

 grazie :)
Il modo migliore è l'uso dell'evento Timer.
Ora immagino tu abbia una condizione che deve dare origine al
Lampeggio...!
Se non utilizzi l'evento Timer in altro modo:
If condizione=True Then
   Me.TimerInterval=500
Else
   Me.TimerInterval=0
End if
Se utilizzi l'evento Timer serve un pò più di fantasia con i
calcoli...!
Private Sub Form_Timer()
    Me.GenPwd.Transparent = Not Me.GenPwd.Transparent
End Sub
Ciao
@Alex

 è un API, trovi il codice nei post precedenti
mi piacerebbe poterla vedere... ma sto usando newsland e la ricerca
non mi da risultati (in ufficio non posso accedere ai newsgroup in nessun
altro modo :(  )
comunque mi hai dato l'idea di sleep.. ho googlato un po ed ho trovato
questo:
Private Declare Sub sapiSleep Lib "kernel32" _
        Alias "Sleep" _
        (ByVal dwMilliseconds As Long)
Sub sSleep(lngMilliSec As Long)
    If lngMilliSec > 0 Then
        Call sapiSleep(lngMilliSec)
    End If
End Sub
richiamandola con
Call sSleep(1000)
solo che non ha alcun effetto... io il bottone continuo a vederlo..
pur funzionando la pausa... (ho provato con un trace...)
come mai? (provato sia con la proprieta' transparent che visible) 


 è un API, trovi il codice nei post precedenti
Purtroppo Sleep è un'api SINCRONA che sospende pertanto l'esecuzione
del codice, e
non mi pare una buona idea...!
Eventualmente sarebbe più opportuna SleepEx che prevede la
possibilità di svincolo ed agisce
sul thread che la chiama, ma anche questa ....... sarebbe più dedicata
all'attesa di funzioni di lettura o scrittura di File impostando una
funzione di CallBack per terminarla dopo aver impostato un Tempo a
infinito o lungo tipo TimeOut(i classici 30 o 60 secondi)...!
In questo caso direi che non conviene.
@Alex

 grazie :)
Scusami, ma un pulsante che va e viene in una maschera (qualunque sia il
codice o il sistema utilizzato per ottenere questo effetto) di che utilità
può essere? 
Penso che sia senz'altro meglio un'etichetta a cui cambi il colore di
fondo..
--
sv


 fondo..
per far capire all'utonto che deve premere quel dannato pulsante 
e non fare altre cose.... che invece, essendo utonto, e' portato a fare..
eheheheh
a parte gli scherzi, voglio che a seguito di un controllo l'utente capisca
che deve premere quel pulsante altrimenti non va avanti.. un highlight sul
pulsante sarebbe il massimo... ma ora che ci penso mi hai dato una
meravigliosa idea... vediamo se funzia.. ;)
grazie per l'ispirazione


 grazie per l'ispirazione
Ci sono già degli esempi sulle etichette utilizzate come
pulsanti su AccessGroup..
Buon lavoro :-))
--
sv


 End Sub
grazie del suggerimento..
sono riuscito a farlo in questo modo:
settato sull'evento Form_Timer:
Me.GenPwd.Transparent = False
ed ho messo nella sub che verifica la condizione
Me.GenPwd.Transparent = True
Me.TimerInterval = 500
et voila'
funzia..
grazie ancora
