Newsgroup: it.comp.appl.access
Titolo: Lampeggio controllo

Buongiorno a tutti!
Avrei la necessità di sapere come fare per far lampeggiare una casella di 
testo per un
particolare valore dello stesso controllo.
Qualcuno mi aiuta?
Grazie!!!!!!!!

 particolare valore dello stesso controllo.
Devi utilizzare un timer nel cui evento modifichi il colore di sfondo (o 
quello del testo, come vuoi).
Se l'effetto blick deve funzionare solo per particolari record, allora devi 
utilizzare l'evento Form_Current dove modifichi opportunamente l'intervallo 
del timer.
Attenzione alle maschere in visualizzazione "maschere continue": potresti 
ottenere degli effetti indesiderati.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution

[cut]
Private Sub txt_campo_AfterUpdate()
Dim Conta As Long
Dim Cntr As Integer
If Me.txt_campo.Value = "20" Then
Conta = 10
For Cntr = 1 To Conta
lngred = RGB(255, 0, 0)
lngyellow = RGB(255, 255, 0)
Me.txt_campo.BackColor = lngred
Me.txt_campo.BackColor = lngyellow
Next
Else
MsgBox "test"
End If
End Sub
Questo funziona ... prova un pò se ti va bene!!! ... e adattalo ...
Ciao


per entrambe le faq.
Giuseppe


Figurati!
Saluti.


 Giuseppe
Diciamo che è stato illuminante sì, illuminante no, illuminante sì,
illuminante no, illuminante sì, illuminante no, illuminante sì, illuminante
no, illuminante sì, illuminante no...
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 no, illuminante sì, illuminante no...
Pubblic sub ma_clik
Select Case ' "MA"
Case Is = 1 'ILLUMINANTE SI
    MA= BRAVO BRAVO!
Case is =2 'ILLUMINANTE NO
    MA= RIPROVA SARAI PIU FORTUNATO!
End Select
end sub
Dopo questa vi auguro unbuon week end
Saluti Andrea 

 wrote in message 
news:2XySf.37035$PR2.7...@twister2.libero.it...

Prova questo, che è una bellezza! (ed ha anche il sonoro!)
- crea un TextBox in una scheda e chiamalo ErrAuto
- poni in OnTimer della stessa scheda:
        Blink [ErrAuto].Name, "<>", 0, _
                InactiveBackColor:=16764057, _
                InactiveBorderColor:=26367, _
                Sound:=True
        ' Lampeggia per [ErrAuto]<>0
- poni 400 in Timer Interval della stessa scheda
- poni la seguente routine in un modulo:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Public Sub Blink( _
    TestControl As String, _
    Operator As String, _
    Operand As Double, _
    Optional ActiveForeColor_1 As Long = 16777215, _
    Optional ActiveBackColor_1 As Long = 0, _
    Optional ActiveBorderColor_1 As Long = 255, _
    Optional ActiveForeColor_2 As Long = 16777215, _
    Optional ActiveBackColor_2 As Long = 255, _
    Optional ActiveBorderColor_2 As Long = 0, _
    Optional ActiveBorderWidth As Byte = 2, _
    Optional InactiveForeColor As Long = 0, _
    Optional InactiveBackColor As Long = 16777215, _
    Optional InactiveBorderColor As Long = 0, _
    Optional InactiveBorderWidth As Byte = 0, _
    Optional Sound As Boolean = False _
    )
' TestControl è il controllo sulla scheda ([TC].Name)
' Operator è l'operatore logico ("=", "<", ">", "<>")
' Operand è il valore nei confronti del quale si effettua
' il controllo (Double)
Select Case Operator
    Case "="
        GoSub Uguale
    Case "<"
        GoSub Minore
    Case ">"
        GoSub Maggiore
    Case "<>"
        GoSub Diverso
End Select
Exit Sub
Uguale:
'======
If CodeContextObject(TestControl) = Operand Then
    GoSub Blinking
Else
    GoSub Inactive
End If
Return
Minore:
'======
If CodeContextObject(TestControl) < Operand Then
    GoSub Blinking
Else
    GoSub Inactive
End If
Return
Maggiore:
'========
If CodeContextObject(TestControl) > Operand Then
    GoSub Blinking
Else
    GoSub Inactive
End If
Return
Diverso:
'=======
If CodeContextObject(TestControl) <> Operand Then
    GoSub Blinking
Else
    GoSub Inactive
End If
Return
Blinking:
'========
If Sound Then
    Beep
End If
CodeContextObject(TestControl).BorderWidth = ActiveBorderWidth
If CodeContextObject(TestControl).BackColor <> ActiveBackColor_1 Then
    CodeContextObject(TestControl).BackColor = ActiveBackColor_1
    CodeContextObject(TestControl).ForeColor = ActiveForeColor_1
    CodeContextObject(TestControl).BorderColor = ActiveBorderColor_1
Else
    CodeContextObject(TestControl).BackColor = ActiveBackColor_2
    CodeContextObject(TestControl).ForeColor = ActiveForeColor_2
    CodeContextObject(TestControl).BorderColor = ActiveBorderColor_2
End If
Return
Inactive:
'========
CodeContextObject(TestControl).BackColor = InactiveBackColor
CodeContextObject(TestControl).ForeColor = InactiveForeColor
CodeContextObject(TestControl).BorderColor = InactiveBorderColor
CodeContextObject(TestControl).BorderWidth = InactiveBorderWidth
Return
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Ciao
Bruno 

 - crea un TextBox in una scheda e chiamalo ErrAuto
[...]
... rendendo massimo lo spessore del bordo (6).
Bruno

 ha scritto nel messaggio 
news:dvesou$f3m$1...@area.cu.mi.it...

LoL !!!!
