Newsgroup: it.comp.appl.access
Titolo: utilizzo e chiamata di funzioni (e moduli di classe??)

questo è quanto grossolanamente ho capito:
D) come posso creare un effetto di OnMouseOver sulle Maschere di access?
R) l'evento equivalente della Maschere di access è OnMouseMove.
Possiamo chiamare una funzione per mostrare l'effetto voluto ed allora
dall'evento di OnMouseMove della sezione circostante, chiamiamo una funzione
per rimuovere l'effetto.
Per ogni etichetta su una Maschera, disponga una chiamata al fSetFontBold di
funzione dal loro evento di OnMouseMove e passi il nome dell'etichetta come
argomento alla funzione.
[ OnMouseMove ] = fSetFontBold("lblThisLabel") Dall'evento di OnMouseMove
della sezione circostante del particolare, chiami il fRemoveFontBold di
funzione.
[ OnMouseMove ] = fRemoveFontBold() Crei una variabile del livello della
Maschera.
Dim mstPrevControl As String
questa è la pagina da dove provengono le informazioni che ho:
http://www.mvps.org/access/forms/frm0037.htm
e questo è quanto è riportato (per comodità):
(Q)    How can I create a OnMouseOver effect on Access forms?
(A)    The equivalent Access form event is OnMouseMove.  We can call a
function to show the desired effect and then from the surrounding section's
OnMouseMove event, call a function to remove the effect.
    For each label on a form, place a call to function fSetFontBold from
their OnMouseMove event and pass the label's name as an argument to the
function.
[OnMouseMove]    = fSetFontBold("lblThisLabel")
From the OnMouseMove event of the surrounding detail section, call the
function fRemoveFontBold.
[OnMouseMove]    = fRemoveFontBold()
Create a form level variable.
Dim mstPrevControl As String
'**************** Code Start *************
Function fSetFontBold(stControlName As String)
Const cBold = 700
Const cNormal = 400
    On Error Resume Next
    With Me(mstPrevControl)
        .FontWeight = cNormal
        .ForeColor = 1279872587
    End With
    mstPrevControl = stControlName
    With Me(stControlName)
        .FontWeight = cBold
        .ForeColor = 0
    End With
End Function
Function fRemoveFontBold()
Const cNormal = 400
    On Error Resume Next
    With Me(mstPrevControl)
        .FontWeight = cNormal
        .ForeColor = 1279872587
    End With
End Function
'***************** Code End ***************
questo è quanto non riesco a capire e quello che ho provato a fare:
cosa ho capito io: mi sono creato due moduli di classe 1)fRemoveFontBold
2)fSetFontBold
solo che non sono in nessun modo riuscito a richiamarli, ne come metodi ne
come proprietà della casella di testo.
anche perchè non mi è chiaro dove inserire:
[OnMouseMove]    = fSetFontBold("lblThisLabel") e [OnMouseMove]    =
fRemoveFontBold()
scusate la mia ignoranza, ma mi sono messo a studiare stamattina i moduli di
classe e mi rendo conto di correre, però devo provare con esempi concreti
per capire e non usare gli esempi scemi dei libri.
scusate per la lunghezza del post, accetto tutto, anche un bel arrangiati e
impara...
by
stwe

CUT
OK ho quasi capito...
ho messo tutto nel modulo della maschera e si comporta stanamente, ora devo
solo cercare di capire meglio.
mi sono reso conto di avere detto delle cavolate prima.
Però non sarebbe possibile creare un modulo di classe per fare ciò ed
utilizzarlo in tutte le maschere?
grazie e scusate per i continui post
by
stwe