Newsgroup: it.comp.appl.access
Titolo: evidenziare celle a passaggio mouse

Prendendo spunto dall'esempio della form.ClassiControlli dal sito
comune, vorrei applicare tale procedura al Pannello di Controllo del
mio database con la differenza che nell'esempio del sito comune colora
le celle sul doppio click, mentre io lo vorrei al passaggio del mouse.
Ho importato nel mio database il modulo clsActivate e incollato la
funzione su caricamento dalla maschera dell'esempio nel mio pannello
di controllo sostituendo il nome del campo "testo" con il mio
"OptionLabel".
Non mi funziona, l'avviso è:
L'espressione su apertura immessa come impostazione della proprietà di
evento ha provocato il seguente errore: Non valido all'esterno di una
routine. Dove ho sbagliato?
Spero di essere stato chiaro e ringrazio anticipatamente per l'aiuto.
Saluti.
N.B. Siccome il pannello di controllo ha anche il pulsante, vorrei
applicare tale funzione anche a quest'ultimo.


wrote:
 (...) 

In access XP e successivi puoi usare l'evento "Su mouse spostato".
Vincenzo Turturro 
Certificato Eucip Core Level 
ITA 0000-002299 del 14/05/2007 
--------------------------------------------- 
il sito comune di it.comp.appl.access: 
http://www.sitocomune.com
 
--------------------------------------------- 
risorse Access: 
http://www.accessgroup.it
 
--------------------------------------------- 
Il sito comune di it.comp.as400 
http://www.faq400.com
 
---------------------------------------------



Grazie per la risposta, ma il problema non è quello di applicare la
funzione su un evento o sull'altro. Il problema è che la funzione di
seguito riportata nella mia maschera non funziona.
Private Sub Form_Load()
   Dim mCls   As clsActivate
   Dim x As Integer
   For x = 0 To 9 ' numero dei giorni o controlli
      Set mCls = New clsActivate
      ' Differenzio l'effetto volutamente per i primi 5
      If x <= 4 Then
         mCls.ActiveColor = vbGreen
      End If
      c.Add mCls
      Set mCls.Controllo = Me("OptionLabel" & x)
   Next
End Sub
Cosa devo cambiare olre a questa che ho già cambiato "Set
mCls.Controllo = Me("OptionLabel" & x)"?
Poi magari cercherò di applicarla su mouse spostato. Grazie ancora.

 - Mostra testo tra virgolette -
Questo esempio mi pare di riconoscerlo.... ;-)
Cosa intendi quando dici che hai cambiato :
      Set mCls.Controllo = Me("OptionLabel" & x)
In cosa l'avresti cambiato...?
Sei certo di aver assegnato a tutte le Label il nome con
l'indicizzazione in fondo...?
Nel Demo che hai scaricato, dal quale proviene questo codice,
funziona...?
Ti sei importato la Classe che gestisce il tutto...?
@Aled


Allora, mi spiego meglio.
Ho importato nel mio database il modulo di classe.
Poi sono andato nella mia maschera e su caricamento ho inserito la
funzione di cui nel messaggio precedente.
Siccome nel database di esempio le caselle di testo si chiamano Testo1
- Testo 2 e così via, mentre nel mio Pannello di controllo si chiamano
OptionLabel1 - OptionLabel1 ecc. allora nella stringa originale c'era
<   Set mCls.Controllo = Me("Testo" & x) > ed io l'ho modificato in
< Set mCls.Controllo = Me("OptionLabel" & x) >
Il messaggio di errore è:
L'espressione su apertura immessa come impostazione della proprietà di
evento ha provocato il seguente errore: Non valido all'esterno di una
routine. Dove ho sbagliato?
Comunque il mio pannello di controllo è quello generato da access
quando si crea un database da quelli di esempio. Grazie per l'aiuto.
Ciao.

 wrote:

Scusate forse voglio ottenere lo stesso risultato applicando una
procedura sulla mia maschera che ha evidentemente una struttura
diversa da quella dell'esempio.
In poche parole quello che vorrei ottenere è che al passaggio del
mouse sui comandi del pannello di controllo le righe avessero uno
sfondo colorato.
Potete indicarmi un esempio o come modificare il codice di
quell'esempio se è possibile.
Scusate per la confusione.

Scusate forse voglio ottenere lo stesso risultato applicando una
procedura sulla mia maschera che ha evidentemente una struttura
diversa da quella dell'esempio.
In poche parole quello che vorrei ottenere è che al passaggio del
mouse sui comandi del pannello di controllo le righe avessero uno
sfondo colorato.
Potete indicarmi un esempio o come modificare il codice di
quell'esempio se è possibile.
Scusate per la confusione.
Innanzitutto parli di Caselle di Testo.... ma nell'esempio sono Label e la
cosa è MOLTO diversa
anche perchè nella Classe(vado a memoria perchè l'ho fatta diversi mesi fà)
è esplicito il Riferimento
al controllo label...!
Quindi se nel tuo caso non hai LABEL la modifica sarebbe da valutare, sempre
tu sia in una Maschera
Singola e non continua... allora ovviamente non è usabile.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


Ti confermo che la maschera è singola e che il risultato da me sperato
siano etichette.
Ci sono esempi per applicare quanto da me richiesto? Cosa devo
studiare/cercare?
Grazie.