[RISOLTO] Modalità sovrascrittura

[tornu]

Che dire
 
You're the best

[Gianluigi]

Changeons les dames !

 

Oui, je suis d'accord

[vuott]

...queste non sono  the best, ma sono "le bestie" !!!   

[tornu]

Buonasera a tutti,
riapro questa discussione per chiedervi un ulteriore aiuto in merito.
Uso il codice suggeritomi in questo post (l'ultimo postato da Vuott per semplicità rispetto a quello di Gianluigi),
che funziona benissimo per l'esigenza che avevo allora, ora è sorta un'altra necessità, e cioè quella di limitare l'input
solo ai numeri, per fare questo ho inserito un controllo che funziona perfettamente, ma unito al codice di questa
discussione mi impedisce l'uso di tasti come frecce direzione, canc, backspace, ecc..
Vi allego un piccolo esempio per farvi capire meglio cosa intendo.

[vuott]

...se tu avessi letto con un Print il comando Key.Code...... 

Codice: [Seleziona]

Public Sub TextBox1_KeyPress()
  
   If (Key.Code > 47) And (Key.Code < 58) Then TextBox1.Select(TextBox1.pos, 1) 
   If ((Key.Code > 47) And (Key.Code < 58)) Or Key.Code > 220 Then
     Return
   Else
     Stop Event
  Endif

End

[Gianluigi]

Non ho capito se vuoi che i numeri si allineino a destra, se si:

Codice: [Seleziona]

Public Sub Form_Open()

  TextBox1.Alignment = 2
  TextBox2.Alignment = 2
  
End

 

[tornu]

...se tu avessi letto con un Print il comando Key.Code...... 

Codice: [Seleziona]

Public Sub TextBox1_KeyPress()
  
   If (Key.Code > 47) And (Key.Code < 58) Then TextBox1.Select(TextBox1.pos, 1) 
   If ((Key.Code > 47) And (Key.Code < 58)) Or Key.Code > 220 Then
     Return
   Else
     Stop Event
  Endif

End

Ciao vuott,
chiedo venia ma mi sono perso proprio in uno sputo...

@ Gianluigi
Non hai letto con attenzione ciò che ho chiesto....
Grazie comunque per la risposta

[Gianluigi]

@ Gianluigi
Non hai letto con attenzione ciò che ho chiesto....
Grazie comunque per la risposta

Prego, ma ho capito cosa non avrei letto con attenzione.
Ho visto questo codice:

Codice: [Seleziona]

Public Sub TextBox1_MouseUp()
  TextBox1.Alignment = 1  ' ***** Codice suggerito da Vuott
'   TextBox1.SelectAll()  ' Metodo 1
'   TextBox1.Select(0, Len(TextBox1.Text))  ' Metodo 2
End

E dato che non mi sembravi particolarmente ispirato ho completato così il codice di vuott:

Codice: [Seleziona]

' Gambas class file


Public Sub Form_Open()

  TextBox1.Alignment = 2
  TextBox2.Alignment = 2
  
End


Public Sub TextBox1_KeyPress()
  
   If (Key.Code > 47) And (Key.Code < 58) Then TextBox1.Select(TextBox1.pos, 1) 
   If ((Key.Code > 47) And (Key.Code < 58)) Or Key.Code > 220 Then
     Return
   Else
     Stop Event
   Endif

End

Public Sub TextBox1_Activate()
  TextBox2.Text = TextBox1.Text
End

[vuott]

Codice: [Seleziona]

  TextBox1.Alignment = 1  ' ***** Codice suggerito da Vuott
'   TextBox1.SelectAll()  ' Metodo 1
'   TextBox1.Select(0, Len(TextBox1.Text))  ' Metodo 2
End

...ma....... non mi pare che questa parte di codice sia mia !