:ciao:
Pensavo che impostando la proprietà:
mi permettesse di vedere un cursore a forma di croce quando il mouse passa sull'oggetto TextArea1.
Non succede. :-\
Cosa sto sbagliando?
Scrivendo così a me funziona la croce:
Public Sub TextArea1_MouseMove()
TextArea1.Mouse = 3
End
Il codice va sostanzialmente impostato così:
Public Sub Form_Open()
TextArea1.mouse = 2
End
Un'alternativa con identico comportamento è questa:
Public Sub TextArea1_Enter()
TextArea1.mouse = 2
End
Per i più curiosi segnalo anche la nostra WIKI:
http://www.gambas-it.org/wiki/index.php?title=Modificare_l%27aspetto_del_cursore_del_mouse
Piccolo passo avanti, impostando la proprietà traking a true ora questo codice funziona:
Public Sub TextArea1_MouseMove()
TextArea1.Mouse = Mouse.Cross
End
:ciao: :ciao:
Io dico: Facciamo un'ipotesi di studio:
Quando nella TextArea scrivo Freccia il cursore si tramuta in una freccia, quando scrivo Croce si tramuta in una croce e quando scrivo default il cursore...
È fattibile? Così su due piedi sembrerebbe di no.
:ciao: :ciao:
Si può fare:
Public Sub TextArea1_MouseMove()
If TextArea1.Selected Then
Select Case TextArea1.Selection.Text
Case "Croce", "croce"
TextArea1.Mouse = Mouse.Cross
Case "Freccia", "freccia"
TextArea1.Mouse = Mouse.Arrow
Case Else
TextArea1.Mouse = Mouse.Text
End Select
Endif
End
NOTA: Va impostata la proprietà della TextArea Traking a True
:ciao: :ciao:
Allora:
TextArea1.Mouse = Mouse.Cross FUNZIONA
TextArea1.Mouse = 2 NON FUNZIONA
Altri valori interi funzionano, sembra che la tabella del libro sia errata, o nel frattempo è cambiato qualcosa!
Per esempio 10 o 1 funzionano!
:ciao:
Ma stai usando il mio codice o cosa?
Ho usato il tuo codice, adesso funziona.
Ho poi usato un codice con solo una TextArea1 e semplicemente:
Public Sub Form_Open()
TextArea1.Mouse = 1
End
Ovviamente ho fatto le prove con un valore non funzionante! ;D