Cambiare cursore al mouse

[kicco]

 
Pensavo che impostando la proprietà:

Codice: [Seleziona]

TextArea1.mouse = 2

mi permettesse di vedere un cursore a forma di croce quando il mouse passa sull'oggetto TextArea1.
Non succede.
Cosa sto sbagliando?

[Gianluigi]

Pensavo che impostando la proprietà:

Codice: [Seleziona]

TextArea1.mouse = 2

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:

Codice: [Seleziona]

Public Sub TextArea1_MouseMove()
  
  TextArea1.Mouse = 3
  
End

[Gianluigi]

Scusa rettifico: Anche a me non funziona.
 
 

[vuott]

A me funziona perfettamente.

Il codice va sostanzialmente impostato così:

Codice: [Seleziona]

Public Sub Form_Open()

  TextArea1.mouse = 2

End

Quando entro nel Form, l'aspetto del mouse non cambia. La mutazione avviene quando il puntatore del mouse entra nella TextArea.

Un'alternativa con identico comportamento è questa:

Codice: [Seleziona]

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

[Gianluigi]

A me funziona perfettamente.

Il codice va sostanzialmente impostato così:

Codice: [Seleziona]

Public Sub Form_Open()

  TextArea1.mouse = 2

End

Quando entro nel Form, l'aspetto del mouse non cambia. La mutazione avviene quando il puntatore del mouse entra nella TextArea.

Un'alternativa con identico comportamento è questa:

Codice: [Seleziona]

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

Grazie tante ma così non serve a niente, è come cambiarlo da IDE.
Come fai a giostrarlo in base agli eventi?

[vuott]

Grazie tante ma così non serve a niente, è come cambiarlo da IDE.

Ma kicco cosa voleva ?   

Come fai a giostrarlo in base agli eventi?

...in che zenzo ?   

[Gianluigi]

Grazie tante ma così non serve a niente, è come cambiarlo da IDE.

Ma kicco cosa voleva ?   

Veramente non lo so    io mi ero fatto tutto un mio ragionamento... 

Come fai a giostrarlo in base agli eventi?

...in che zenzo ?   

Nel zenzo di variarne l'aspetto a runtime, ma non chiedermi perché 

[kicco]

Scusate se mi intrometto...
Da A Beginners's Guide to Gambas a pagina 66
sembra che settando:

(controllo).mouse = 3 (ad esempio)

il cursore semplicemente entrando nell'area del controllo cambi secondo la selezione.

[Gianluigi]

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.
 

[Gianluigi]

Scusate se mi intrometto...

 

 

[Gianluigi]

Piccolo passo avanti, impostando la proprietà traking a true ora questo codice funziona:

Codice: [Seleziona]

Public Sub TextArea1_MouseMove()
  
  TextArea1.Mouse = Mouse.Cross
  
End

 

[vuott]

il cursore semplicemente entrando nell'area del controllo cambi secondo la selezione.

Quindi il mio primo intervento è perfettamente coerente e conferente.

Scusate se mi intrometto...

 

kicco, fa bene Gianluigi a randellarti:
* la discussione l'hai avviata tu;
* in questo forum nessun membro ha dovuto mai chiedere un pemesso speciale per scrivere.

[Gianluigi]

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.
 

Si   può   fare:

Codice: [Seleziona]

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
 

[kicco]

Il mio cursore non cambia... (ho posto Tracking=true)
Mi viene un sospetto:
il cursore del mouse è la freccia che quando entra nella TextArea dovrebbe diventare una linea verticale  a formata di I
non è il prompt che indica dove si sta immettendo (o cancellando il testo). Giusto?
Perchè se scrivo "croce" nella TextArea, si blocca e non riesco a scrivere altro!

[kicco]

SCUSA!!!!
Funziona, non selezionavo il testo!!