Newsgroup: it.comp.appl.access
Titolo: Cursorea forma di mano

Sarei grato se qualcuno mi suggerisce come risolvere il seguente problema:
In una form  alcuni campi con il doppio click lanciano una ulteriore form, è
possibile far cambiare la forma del mouse quando si passa sopra quei campi,
con lo scopo di informare l'utente della possibilità inserita.
Ringrazio
Cogo R.


metti uno spazio sull'hiperlinkaddress
--
a.cara

 ha scritto nel messaggio
news:qCLke.14434$Jd....@tornado.fastwebnet.it...

Ti ringrazio, ma non è un campo hiperlink bensì un campo normale nel caso
(intero lungo), che contiene l'Id di una tabella anagrafica da visualizzare
come normale form.
Saluti
Cogo R.

 ha scritto nel messaggio 
news:2NMke.1435041$35.53...@news4.tin.it...

Devi ricorrere alla API.
In un modulo pubblico:
Option Compare Database
Option Explicit
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
Su Mouse spostato del controllo che ti interessa scrivi:
MouseCursor(IDC_HAND )
Ciao, Carlo 

 ha scritto nel messaggio
news:2NMke.1435041$35.53...@news4.tin.it...

quello di mettere uno spazio nell'hyperlink possiamo dire che è un
trucco a me insegnato da alessandro baraldi.
è sufficente attivare collegamento ipertestuale sulla casella di testo e
aggiungere uno spazio.
praticamente tu fai il collegamento a niente.

 Cogo R.
Alessandro intendeva uno spazio nella Proprietà HipelinkAddress
o SubHiperlinkAddress relativo al controllo sul quale vuoi l'effetto.
In realtà le TextBox non dispongono di questa proprietà, pertanto
non si può fare se non ricorrendo alle API, che trovi sul sito comune.
Alternativa è quella di mettere un controllo Immagine affiancato
oppure una Label(entrambi lo supportano).........
In maschere non ci sono CAMPI ma controlli.
Saluti
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel
messaggio news:CqUke.1436290$35.53...@news4.tin.it...

Ottimo, funziona alla perfezione ... grazie
saluti Cogo r.
P.s. sicuro, nessun problema con l'indirizzo fisico delle costanti a fronte
du nuove release?!


Si tratta di una API a 32 bit e fino a che windows rimane a 32 bit non 
dovrebbero esserci problemi.
Con la nuova architettura a 64 bit credo cambierà poco in questa API. 
Comunque ci sarà sempre bisogno di attribuire a un cursore una forma 
diversa.
Ciao, Carlo 

 ha scritto nel
messaggio news:Cpcle.1442814$35.53...@news4.tin.it...

Grazie
Cogo r