Newsgroup: it.comp.appl.access
Titolo: Screen.ActiveControl = OnMOuseOver ? Forse...

Ciao a tutti...
Vorrei trovare su access una risorsa corrispondente ad OnMouseOver... 
ho provato  Screen.ActiveControl
ma mi risponde...
Il controllo specificato nell'espressione immessa deve essere nella finestra attiva
ma qual'e' l'attiva se non quella dove ci passa sopra il mouse... ???
mah... forse interpreto male la segnalazione... 
cmq non mi dice qual'e' il controllo attivo... 
vorrei tipo:
se il nome del controllo è ciao allora fai questo
passando sopra il mouse ad un pulsante che nel mio caso è una immagine.. 
grazie per l'aiuto... :)
-- 
Saluti
- - -- - -- - -- - -- - -- - -- - -- - -
JoeBlack

 ha scritto nel messaggio
news:irX5d.4052$75.1...@news3.tin.it...
Ciao a tutti...






Ciao ben risentito.....!! ;-)
Stai purtroppo commettendo un errore di concetto.
Supponi di avere 2 Form aperte affiancate.
Il Focus è sulla Form1 ma nulla ti vieta di passare con il Mouse
sulla Form2 senza CLICCARLA.
Ora il Focus rimane sulla Form1 di conseguenza la Form rilevata
dall'oggetto Screen atraverso il Metodo ActiveForm rimane quasta.
Per fare quello che chiedi devi perforza usare l'EVENTO che hai citato
non hai alternative.
Perchè non vuoi usare OnMouseOver......????(Ti ha ofeso)
Se però mi spieghi meglio a cosa lo vuoi finalizzare magari si può
ottimizzare
la gestione.....!!!!
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 la gestione.....!!!!
allora... :
Mascherina menu... 
tutti i pulsantini bellini... 
passando sopra il mouse su ogni pulsante si "dovrebbe" spostare una cornice per evidenziare il tasto ed inoltre cambiare il caption di una label testuale per spiegare a cosa serve l'opzione... 
spostare la cornice lo so fare.. cambiare il caption pure.. ma non so rilevare la posizione del mouse e quindi restituirmi il nome dell'oggetto che sta "attraversando"... 
Joe.........
- La psicanalisi? E' un mito tenuto in vita dall'industria dei divani.
Woody Allen

 ha scritto nel messaggio
news:FUX5d.4232$75.1...@news3.tin.it...








Joe.........
Devi usare OnMouseOVer, c'è.....!
Ma dove hai guardato....???
Nel mio sito sempre c'è anche un Demo bellino di come
formattare dei Pulsanti in Stile OutLook con tanto di Immagine
BlackWithe/Colori e Testo in risalto al passagio del Mouse.
Oltre al Demo che ti ho suggerito in separata sede, prova a vedere
anche "ToolBars con effetto Outlook" sempre nella sezione Forms fatto
da me e da Silvio .


 ha scritto nel messaggio news:cj9k41$ltm$1...@lacerta.tiscalinet.it...

sono spettacolari tutti i due gli esempi.... grande Alex... 
ma uno, quello che sposti i pulsanti, non è quello che intendevo nella richiesta di aiuto....
ed il secondo.... poeretto di me non ci ho capito nulla... :(
sigh... io volevo solo spostare un cazzettino di cornicetta la passaggio del mouse.. 
Joe........ (coperto di vergona)

CI SONO RIUSCITOOOOOO !!!!!
allora:
ho creato una cornice delle stesse dimensioni della maschera menù....
a quest'ultima gli ho associato il comando MouseMove come qui di seguito:
Private Sub CorniceMenu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case X
Case 0 To 840
' Nuovo
    With Me.Cornice
        .Visible = True
        .left = 150
        .top = 100
    End With
    Me.DescrizioneMaschera.Caption = "Creazione di un nuovo record"
etc.. etc....
Me.Cornice è l'oggetto che intendevo muovere... ed Me.DescrizioneMaschera l'altro oggetto testuale che cambia in base alla posizione del mouse... 
alla fine della Sub ho messo:
    If Y > 600 Or Y < 20 Then
    Me.Cornice.Visible = False
    Me.DescrizioneMaschera.Caption = ""
    End If
ovvero fuori dai tasti
 
per azzerare i contenuti e rendere invisibile la cornice piccola.. 
stessa cosa per precauzione con:
Private Sub CorniceMenu_Click()
    Me.Cornice.Visible = False
    Me.DescrizioneMaschera.Caption = ""
End Sub
Spero serva a qualcuno... 
un grazie speciale ad Alex sempre disponibile... :)
Saluti
Joe

 ha scritto nel messaggio
news:8q_5d.5151$75.2...@news3.tin.it...
CI SONO RIUSCITOOOOOO !!!!!
allora:
ho creato una cornice delle stesse dimensioni della maschera menů....
a quest'ultima gli ho associato il comando MouseMove come qui di seguito:
Private Sub CorniceMenu_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Select Case X
Case 0 To 840
' Nuovo
    With Me.Cornice
        .Visible = True
        .left = 150
        .top = 100
    End With
    Me.DescrizioneMaschera.Caption = "Creazione di un nuovo record"
etc.. etc....
Me.Cornice č l'oggetto che intendevo muovere... ed Me.DescrizioneMaschera
l'altro oggetto testuale che cambia in base alla posizione del mouse...
alla fine della Sub ho messo:
    If Y > 600 Or Y < 20 Then
    Me.Cornice.Visible = False
    Me.DescrizioneMaschera.Caption = ""
    End If
ovvero fuori dai tasti
per azzerare i contenuti e rendere invisibile la cornice piccola..
stessa cosa per precauzione con:
Private Sub CorniceMenu_Click()
    Me.Cornice.Visible = False
    Me.DescrizioneMaschera.Caption = ""
End Sub
Spero serva a qualcuno...
un grazie speciale ad Alex sempre disponibile... :)
Saluti
Joe
Perfetto.....!
Non era cosě impossibile.
Ciao Paolo.
