Newsgroup: it.comp.appl.access
Titolo: Immagine sensibile?

Ecco la richiesta.
Posso inserire in una maschera una foto, quindi renderla sensibile in vari
punti o aree per eseguire un codice associato a seconda se l'utente clicca
su un punto o un altro della stessa foto?
Esempio: un immagine jpg con la piantina di casa.
Se clicco sulla camera mi esegue una routine evento x
se clicco sul bagno mi esegue una routine evento y ecc ecc.
Grazi Mille
Zzero!!!


bottoni "trasparenti" sulle varie zone dell'immagine
--
a.cara

 ha scritto nel messaggio
news:3DB406AE...@blunet.it...

..sarebbe anche interessante far cambiare la forma del puntatore del mouse
sull'evento onmouseover... tipo 'web'. E' possibile secondo te?


per quello che ne so e' possibile attraverso la gestione di 
MousePointer (cfr Help) e l'evento di mousemove. 
I tipo di pointer a disposizione sono limitati, per gestire
gli altri tipi credo che si debbano "scomodare" le API di windows
--
a.cara
e l'evento di mousemove

 ha scritto nel messaggio
news:3DB40C7D...@blunet.it...

grazie! non ci avevo pensato

 ha scritto nel messaggio
news:ap112d$604$1...@fe1.cs.interbusiness.it...

Sull'evento mouse spostato dell'immagine
    screen.MousePointer = N
Sull'evento mouse spostato del form
    screen.MousePointer = 0
I possibili valori di N sono (dalla guida in linea)
      0 Impostazione predefinita. La forma è determinata da Microsoft
Access.
      1 Selezione normale (Freccia)
      3 Selezione testo (Cursore)
      7 Ridimensionamento verticale (Ridim. N, S)
      9 Ridimensionamento orizzontale (Ridim. E, O)
      11 Occupato (Clessidra)
Ma per la famigerata manina, stile web appunto, qualcuno ne sa qualcosa?
Ciao, omnitow

 e l'evento di mousemove
Le funzioni API dovrebbero essere queste ma il risultato non è quello che ci
si aspetta:
Declare Function LoadCursorFromFile Lib "user32" Alias _
      "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetCursor Lib "user32" _
  (ByVal hCursor As Long) As Long
Function SetMyCursor(strPathToCursor As String)
  Dim lngValue As Long
  lngValue = LoadCursorFromFile(strPathToCursor)
  lngValue = SetCursor(lngValue)
End Function
strPathToCursor deve essere il path di un file ICO ma una volta lanciata la
function a volte non succede nulla altre volte il cursore scompare, mai una
volta che visualizzi il'immagine ICO passata
Ciao, omnitow

 Ciao, omnitow
Puoi farlo usando le API.
Quello che segue l'ho provato e funziona con W95, W98 e WMe: non ho idea se
funzioni anche con W2000 e WXP
In un modulo del tuo database inserisci questo codice VBA:
Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare Function LoadCursorFromFile Lib "user32" Alias _
  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetCursor Lib "user32" _
  (ByVal hCursor As Long) As Long
Function MouseCursor(CursorType As Long)
  Dim lngRet As Long
  lngRet = LoadCursorBynum(0&, CursorType)
  lngRet = SetCursor(lngRet)
End Function
Function PointM(strPathToCursor As String)
  Dim lngRet As Long
  lngRet = LoadCursorFromFile(strPathToCursor)
  lngRet = SetCursor(lngRet)
End Function
Function Cursore()
Call PointM("C:\Windows\Cursors\HAND-M.CUR")
End Function
Nella casella a destra della proprietą "Su mouse spostato" del controllo sul
quale vuoi compaia la manina scrivi:
=Cursore()
Attenzione =Cursore() devi scriverlo nella casella relativa alla proprietą
posta alla sua destra e non generarlo a fronte dell'evento.
Naturalmente, per trasformare il puntatore in un altra immagine, sostituisci
C:\Windows\Cursors\HAND-M.CUR con il path completo di un file .cur di tuo
piacimento (solo nella cartella C:\Windows\Cursors\ hai l'imbarazzo della
scelta).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 > > sull'evento onmouseover... tipo 'web'. E' possibile secondo te?
Molti controlli di Access (Button, immagini, etichette) possiedono le
proprietą "collegamento ipertestuale" e "Sottoindirizzo colleg. ipertes".
Accedi a una delle due e premi Barra spazio.

 scelta).
risolutivo come sempre ;<)
(con w2000 funziona )
--
a.cara


Le ho provate tutte e due: MouseCursor funziona, purtroppo non posso dire lo
stesso per PointM (utilizzo W2000), curioso come il cursore predefinito
ritorni dopo che il mouse viene spostato dalla casella di testo...
Ciao e grazie, omnitow

 ha scritto nel messaggio
news:ap1idr$mbs$1...@fe1.cs.interbusiness.it...

Strano che ad Alessandro con W2000 funzioni.
