Newsgroup: it.comp.appl.access
Titolo: funzione effetto web

Salve a tutti,
 su un'etichetta vorrei implementare una funzione su pulsante mouse giů e su
pulsante mouse su , giocando con la trasparenza...per creare un effetto tipo
link web con css(a:hover)..
Public Function SwitchColorMouseDown(a As Label)
    a.BackStyle = 1
End Function
Public Function SwitchColorMouseUp(a As Label)
    a.BackStyle = 0
End Function
come faccio a generalizzarla e ad assegnarla in modo veloce a tutte le 35
etichette che compongono la mia maschera?
Grazie

 etichette che compongono la mia maschera?
Soluzione A) Array di Controlli
Soluzione B) For Each Label

 > come faccio a generalizzarla



Mi servirebbe anke a me...mi potresti mandare un pezzo di codice?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio news:42ca8902$0$330$5fc...@news.tiscali.it...

Nel sito di Karl (
www.donkarl.com/.it
) e nella sezione CISA c'č un esempio di gestione degli eventi per tutti i controlli contenuti 
in una form...
Ciao.
-- 
Sergio MAZZA 

 wrote in message
news:daea3c$8i7$1...@domitilla.aioe.org...

Ho provato con questo codice ma se vedi nel codice della maschera mi da un
errore...:
*****************************
modulo:Evidenzia_textbox
*****************************
Option Compare Database
Private WithEvents Casella As Label
'Private Sub Casella_BeforeUpdate(Cancel As Integer)
 '   If Len(Casella) > 3 Then
 '       MsgBox "Non puoi inserire piů di 3 caratteri nella casella '" &
Casella.Name & "'.", vbOKOnly + vbExclamation, "Esempio WithEvents"
 '       Cancel = True
'    End If
'End Sub
Private Sub Casella_DblClick(Cancel As Integer)
Casella.BackStyle = 1
    'Casella.BackColor = vbYellow
   'Casella.FontBold = True
End Sub
Private Sub Casella_Click()
Casella.BackStyle = 0
   ' Casella.BackColor = vbWhite
   ' Casella.FontBold = False
End Sub
Public Function associa(TB As Label)
    Set Casella = TB
    'Casella.on
   Casella.OnClick = "[Event Procedure]"
  '  Casella.OnDblClick = "[Event Procedure]"
   ' Casella.OnExit = "[Event Procedure]"
End Function
**********************************
maschera
********************************
Option Compare Database
Private Istanze As New Collection
Private Sub Form_Load()
Dim EvidTxtb As Evidenzia_textbox
Dim Ctl As Control
    For Each Ctl In Me.Controls
            If Ctl.Tag = "label" Then
            Set EvidTxtb = New Evidenzia_textbox
            EvidTxtb.associa Ctl
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!mi da errore qui in fase di
caricamento della maschera (errore run-time 459 L'oggetto o la classe non
supporta il gruppo di eventi)
            Istanze.Add EvidTxtb
        End If
    Next
End Sub
------------------------------------------------------------------------
Sai darmi una dritta?

 '       MsgBox "Non puoi inserire più di 3 caratteri nella casella '" &

Dipende; hai letto bene cosa fa quel codice e come eventualmente modificarlo o hai fatto solo copia/incolla?
Ciao.
-- 
Sergio MAZZA 

 wrote in message
news:dagb2q$pkd$1...@domitilla.aioe.org...

non ho fatto copia ed incolla...ho modificato:
texbox in label
e poi aggiunti ho messo degli eventi compatibili con le label.
Forse, proprio con le Label non funziona...
che ne pensi?
grazie

E' una probabilità da prendere in considerazione; data anche dal fatto
che il messaggio di errore è esplicativo del problema.
Ma puoi crearti delle caselle di testo che graficamente simulano le
label...
Ciao.
-- 
Sergio MAZZA

 wrote in message
news:1120650728.7...@g44g2000cwa.googlegroups.com...

Ciao.
-- 
Sergio MAZZA
Infatti...era quello il problema...Sulle TEXTBOX funziona a meraviglia..
Una cosa: come faccio a impedire la selezione del testo nel textbox?
Se disabilito il campo, naturalmente, il codice non funziona...
Grazie
Davide

 Davide
Abilitato = No, Bloccato = Sě; almeno cosě il backcolor lo cambia...
Ciao.
-- 
Sergio MAZZA