[VB6] controllo inserimento numeri

[Alarico_Re]

Salve a tutti
sto creando un nuovo software del lotto,da premettere che sono alle prime armi,ho creato l'interfaccia ed ho connesso il tutto al database con DATA1,adesso ho bisogno di controllare l'inserimento nei Text1(index)di solo due numeri per singola text1(index) i numeri ovviamente sono dal 1 al 90.una volta inserito il numero nel text1(index)dovrebbe saltare alla text1(index) successiva automaticamente e così via.
grazie

Alarico_Re

[motogpdesmo16]

ti ho risposto a questo thread.
Non è necessario aprire i thread più di una volta con lo stesso contenuto.

[Alarico_Re]

ciao ho provato ma non va,se leggi bene il mio post,potresti spiegarmi meglio ok
per l'inserimento di solo due numeri ho risolto
con la proprietà di text1 maxlength = 2
per la tabulazione automatica non ancora

grazie

Alarico_Re

[motogpdesmo16]

riguardo la tabulazione non so come aiutarti. Mi spiace. Comunque ti è servito quel pezzo di codice che ti ho postato come guida per risolvere il tuo problema??

[Alarico_Re]

il codice che mi hai dato non va mi blocca tutto all'avvio,
lo ho corretto con i miei dati ,ma non va lo stesso.
grazie lo stesso

Alarico_Re

[donini]

prova cosi


Private Sub textbox1_GotFocus()
textbox1.SelStart = 0
textbox1.SelLength = Len(xl.Text)
End Sub

Private Sub textbox1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub

Private Sub textbox1_Validate(Cancel As Boolean)
Cancel = (Len(textbox1.Text) <> 2)
End Sub

[Alarico_Re]

ciao ti ringrazio ma ho già risolto l'inserimento di solo 2 numeri,quello che mi serve adesso è questo,quando inserisco i primi 2 numeri il cursore dovrebbe andare automaticamente alla prossima text1(index) e così via in totale sono 55 text1(index),in più ho un problema con il data1 se lo imposto readonly true per motivo che quando visualizzo non si deve modificare nulla,quando aggiungo nuova estrazione mi da errore su readonly,come faccio tramite codice quando aggiungo nuova estrazione a modificare la propietà di readonly a false ci ho provato ma non va,tieni presente che sono alle prime armi e autodidatta.

Alarico_Re

[motogpdesmo16]

Originariamente inviato da Alarico_Re
il codice che mi hai dato non va mi blocca tutto all'avvio,
lo ho corretto con i miei dati ,ma non va lo stesso.
grazie lo stesso

Alarico_Re

hai modificato con i nomi delle tue textbox??
Mi sembra strano perchè è estratto da un mio progetto in VB che funziona perfettamente.

[Alarico_Re]

si ho modificato i textbox con i miei ma non va come detto prima mi si blocca tutto ,devo chiudere dalle risorse.
io ho in totale 55 text1(index) disposte in 11 righe e 5 colonne
il codice mi dovrebbe controllare che i numeri siano da 1 a 90 e per ogni riga 5 text1(INDEX)che i numeri siano diversi cioè non ripetuto .


Alarico_Re

[Alarico_Re]

ho risolto il prblema del controllo nell'inserimento dei numeri in questo modo


Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = vbWhite
Dim i As Integer


For i = 0 To 54
If Val(Text1(i).Text) < 0 Or Val(Text1(i).Text) > 90 Then
MsgBox "I numeri devono essere compresi tra 1 e 90", 16, "Errore"

Text1(i).Text = ""

Text1(i).SetFocus
Exit Sub
End If
Next i


End Sub

adesso sto cercando di risolvere il modo di passare automaticamente
alla texbox successiva senza premere il tasto tab
qualcuno mi aiuta?

Alarico_Re

Disse la goccia d'acqua alla roccia dammi il tempo e ti bucherò.