[VB6] Inserire in TextBox solo 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 .Per aggiungere un nuovo record(estrazione)ho provato con data1.recordset.addnew ma mi da errore,possibile avere il codice per Nuova,Salva,Annulla
mi date una mano grazie
Alarico_Re

[Il Pazzo]

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 58
Case 8
Case 13
If Text1.Text = "" Then
MsgBox "Inserire un valore", vbCritical, "Errore"
Else
If CInt(Text1.Text) <= 90 Then
chiama la funzione del lotto
Else
MsgBox "Inserire un valore minore di 90", vbCritical, "Errore"
End If
End If
Case Else
KeyAscii = 0
End Select
End Sub

[Alarico_Re]

Ciao ho provato ma non va,
Text1(index)in rete ho trovato questo modulo


Public Function CkDgtNumber(KeyAscii As Integer, nMin As Integer, nMax As Integer) As Integer
CkDgtNumber = 30
If KeyAscii >= 48 + nMin And KeyAscii <= 48 + nMax Then CkDgtNumber = KeyAscii
Select Case KeyAscii
Case 44,45
CkDgtNumber = KeyAscii
Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn
CkDgtNumber = KeyAscii
Case vbKeyEscape, vbKeyDelete, vbKeyNumlock
CkDgtNumber = KeyAscii
End Select
End Function

-------------------------------------------------------------
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = CkDgtNumber(KeyAscii, 0, 9)

End Sub
-------------------------------
sembra andar bene ma non mi controlla i numeri da 1 a 90 e nell'inserimento nel text se ne possono scrivere 4 numeri invece di 2.

[Il Pazzo]

come non va che l'ho copiato da un mio prog???

[motogpdesmo16]

io ho fatto semplicemente così (parte di codice copiato da un programma che memorizza i voti degli alunni. Quindi adattalo alle tue esigenze)

Private Sub txtIta_Change()
If (Val(txtIta) < 1 Or Val(txtIta) > 10) Then
MsgBox "Inserire un numero compreso fra 1 e 10", 16, "Errore"
txtIta.Text = ""
End I
End Sub

[Alarico_Re]

ho risolto il problema 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

come si fa a chiudere una discussione?
Alarico_Re

End Sub

[ans]

la textbox ha stili, tra questi c'è Numeric per l'inserimento di solo numeri, in vb6 non è gestito come per altri stili (password ad esempio), ma si puo' settarlo tramite una chiamata API, e si ha una textbox che accetta solo numeri senza dover gestire nessun evento.

[Magicolotto]

anche io sto cercando di creare un programma, per la visualizzazine dell'archivio nei vari txt ci sono, pero' non sto riuscendo a creare una ricerca nella estrazione visualizzata

mi aiutate?

[oregon]

Ti aiutiamo ... ?

Un forum serve a questo ...

Crea un thread con una domanda mirata fornendo tutte le informazioni del caso ...

[alka]

Originariamente inviato da Magicolotto
anche io sto cercando di creare un programma, per la visualizzazine dell'archivio nei vari txt ci sono, pero' non sto riuscendo a creare una ricerca nella estrazione visualizzata
mi aiutate?

Sollevare discussioni vecchie per proporre un altro problema non è una pratica ben accetta: apri una discussione separata.

Ciao!