Autore Topic: [RISOLTO] Modalità sovrascrittura  (Letto 1665 volte)

Offline tornu

  • Gran Maestro dei Gamberi
  • *****
  • Post: 855
    • Mostra profilo
Re:[RISOLTO] Modalità sovrascrittura
« Risposta #15 il: 06 Maggio 2016, 20:53:56 »
Che dire
 :o :o
You're the best
« Ultima modifica: 06 Maggio 2016, 20:58:27 da tornu »
Il software è come il sesso, è meglio quando è libero. (Linus Torvalds)

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.244
  • Tonno verde
    • Mostra profilo
Re:[RISOLTO] Modalità sovrascrittura
« Risposta #16 il: 07 Maggio 2016, 00:31:53 »
Changeons les dames !

 

Oui, je suis d'accord
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.723
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:[RISOLTO] Modalità sovrascrittura
« Risposta #17 il: 07 Maggio 2016, 00:36:16 »
...queste non sono  the best, ma sono "le bestie" !!!   :devil:
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline tornu

  • Gran Maestro dei Gamberi
  • *****
  • Post: 855
    • Mostra profilo
Re:[RISOLTO] Modalità sovrascrittura
« Risposta #18 il: 04 Ottobre 2016, 22:28:16 »
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.
« Ultima modifica: 04 Ottobre 2016, 22:29:02 da tornu »
Il software è come il sesso, è meglio quando è libero. (Linus Torvalds)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.723
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:[RISOLTO] Modalità sovrascrittura
« Risposta #19 il: 05 Ottobre 2016, 00:06:38 »
...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
« Ultima modifica: 05 Ottobre 2016, 00:10:25 da vuott »
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.244
  • Tonno verde
    • Mostra profilo
Re:[RISOLTO] Modalità sovrascrittura
« Risposta #20 il: 05 Ottobre 2016, 11:46:21 »
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

 :ciao:
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline tornu

  • Gran Maestro dei Gamberi
  • *****
  • Post: 855
    • Mostra profilo
Re:[RISOLTO] Modalità sovrascrittura
« Risposta #21 il: 05 Ottobre 2016, 21:25:14 »
...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.... :nono:
Grazie comunque per la risposta
Il software è come il sesso, è meglio quando è libero. (Linus Torvalds)

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.244
  • Tonno verde
    • Mostra profilo
Re:[RISOLTO] Modalità sovrascrittura
« Risposta #22 il: 05 Ottobre 2016, 21:52:57 »

@ Gianluigi
Non hai letto con attenzione ciò che ho chiesto.... :nono:
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
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.723
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:[RISOLTO] Modalità sovrascrittura
« Risposta #23 il: 05 Ottobre 2016, 22:50:03 »
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 !    :rolleyes:
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »