Uso di Screen.MousePointer

lunedì 14 giugno 2010 - 16.52

luigice Profilo | Newbie


Vorrei chiedere se e` possibile eliminare il cursore intermittente in una form o un casella di testo Access .
Grazie

luigidibiasi Profilo | Guru

Prova a vedere questa funzione se fa al caso tuo:

ShowCaret per mostrarlo: http://msdn.microsoft.com/en-us/library/ms648406(VS.85).aspx

HideCaret per nasconderlo : http://msdn.microsoft.com/en-us/library/ms648403(v=VS.85).aspx

Luigi Di Biasi
http://blogs.dotnethell.it/luigidibiasi/
http://www.dibiasi.it/

luigice Profilo | Newbie

Scusa ma che linguagggio e` ? Io sto` lavorando in VBA Access 2003.
Ciao

luigidibiasi Profilo | Guru

Sono API di windows. Quindi puoi richiamarle usando Declare function se non sbaglio da VBA
Luigi Di Biasi
http://blogs.dotnethell.it/luigidibiasi/
http://www.dibiasi.it/

luigice Profilo | Newbie

Secondo te una cosa di questo tipo andrebbe bene ?

Option Compare Database
Option Explicit

Private Declare Function apiShowCaret Lib "user32" _
Alias "ShowCaret" _
(ByVal hWnd As Long) _
As Long

Private Declare Function apiHideCaret Lib "user32" _
Alias "HideCaret" _
(ByVal hWnd As Long) _
As Long

Private Declare Function apiGetFocus Lib "user32" _
Alias "GetFocus" _
() As Long


Private Sub Text1_GotFocus()

' Hide the text caret when text box Text1 has the focus.

Dim lngRet As Long

lngRet = apiHideCaret(apiGetFocus())

End Sub


Private Sub Text1_LostFocus()


' Show the text caret when text box Text1 loses the focus.

Dim lngRet As Long

lngRet = apiShowCaret(apiGetFocus())

End Sub

luigidibiasi Profilo | Guru

Devi provarlo direttamente tramite VBA... non ti scompare il caret?
Luigi Di Biasi
http://blogs.dotnethell.it/luigidibiasi/
http://www.dibiasi.it/

luigice Profilo | Newbie

NOn mi funziona, infatti mi e`stato detto che in Access e`piu`complicato ed il codice era relativo A VB6 e non VBA. Altre idee ?
Andrebbe bene anche poter modificare la I lampeggiante con un puntino quasi invisibile.
Ciao
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5