[VB6] TextBox e backspace

[lemac]

ciao ragazzi
in 1 form ho 1 textbox1;
quando digito il testo, quest'ultimo viene inserito
anke in un textbox2 presente su un form2, con il seguente codice inserito nell'evento
change del textbox1:

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Text1_Change()
Form2.Text2.Text = Form1.Text1.Text
End Sub

poi ho inserito il codice:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 0 To 32 ' I tasti di controllo vanno bene.
Case 48 To 57 ' Questa è una cifra
Case Else ' Scarta tutti gli altri tasti.
KeyAscii = 0
End Select
End Sub

per inserire solo numeri nel textbox1;
digitando il testo in textbox1, vorrei disattivare il tasto backspace solo nel textbox2.
ho provato ad inserire il precedente codice, modificato per il backspace, nel evento keypress del textbox2
ma nn funziona, xke continua ad essere valido l'evento change del textbox1.
come devo modificare il codice?
grazie a tutti

[lemac]

ciao a tutti del forum
scusate se ritorno sullo stesso argomento
ma nessuno mi ha aiutato per risolvere questo prob.
spero ke qualcuno possa farlo
vi riporto il mio post precedente:

in 1 form ho 1 textbox1;
quando digito il testo, quest'ultimo viene inserito
anke in un textbox2 presente su un form2, con il seguente codice inserito nell'evento
change del textbox1:

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Text1_Change()
Form2.Text2.Text = Form1.Text1.Text
End Sub

poi ho inserito il codice:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 0 To 32 ' I tasti di controllo vanno bene.
Case 48 To 57 ' Questa è una cifra
Case Else ' Scarta tutti gli altri tasti.
KeyAscii = 0
End Select
End Sub

per inserire solo numeri nel textbox1;
digitando il testo in textbox1, vorrei disattivare il tasto backspace solo nel textbox2.
ho provato ad inserire il precedente codice, modificato per il backspace, nel evento keypress del textbox2
ma nn funziona, xke continua ad essere valido l'evento change del textbox1.
come devo modificare il codice?
spero in un vostro contributo
grazie a tutti
ciao lemac

[albgen]

gestisci il keypress in entrambi i textbox.

[Federico1976]

Prova ad intercettare loggetto tramite sender
Se tutte e due gli eventi o Handler puntano alla stesso Metodo


Private Sub Text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text1.KeyPress

If Ctype(sender, TextBox ).Name = Text2 Then
Quello Che Ti Pare
End If
End Sub
Spero di esseti stato di aiuto Ciao

[alka]

Originariamente inviato da lemac
ciao a tutti del forum
scusate se ritorno sullo stesso argomento
ma nessuno mi ha aiutato per risolvere questo prob.
spero ke qualcuno possa farlo
vi riporto il mio post precedente

Ho unito (eccezionalmente) le due discussioni che hai aperto sullo stesso argomento.

Non si aprono discussioni uguali, indipendentemente dalle risposte ricevute; in questo caso, poi, occorre tenere conto che non è passato nemmeno un giorno dalla prima.

Invito anche alla lettura del Regolamento per prendere visione di altre norme comportamentali da seguire nella partecipazione a quest'area del forum.

Ciao!

[oregon]

Originariamente inviato da Federico1976
Prova ad intercettare loggetto tramite sender

Federico ... lui parla di VB6 non di VB.NET ...

lemac ... segui il suggerimento di albgen ...

[lemac]

salve

ho provato anke la soluzione suggerita da albgen
ma nn funziona;
sicuramente xke il codice ke scrivo nn e corretto:

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeySpace Then
KeyAscii = 0
End If
End Sub

se scrivo questo stesso codice nell'evento Text1_KeyPress viene disabilitato il backspace
nel textbo1, cosa ke non desidero ke avvenga;
nn so come risolvere questo stupido prob.
ciao lemac

[GrG]

come ti ho risp nell'altro forum... ti risp anche qua, prova ad usare questo:

Dim key_premuta As Integer

Private Sub Text1_Change()
If key_premuta <> 8 Then
Text2.Text = Text1.Text
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
key_premuta = 8
Else
key_premuta = 0
End If
End Sub

dovrebbe andare... (è un esempio)

[oregon]

Originariamente inviato da lemac
If KeyAscii = vbKeySpace Then

Guarda che il vbKeySpace NON e' il backspace ma lo spazio ... a questo punto fai un po' di chiarezza ... indica con certezza qual e' il tasto a cui fai riferimento ...

[lemac]

salve
per backspace intendo il tasto della tastiera che ti fa
spostare verso destra il cursore ed il testo;
e.s.
c i a o
insomma il tasto + grande che si trova sulla tastiera
posto in basso tra i tasti alt e altgr.