+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

Solo numeri in matrice di controlli

  1. #1
    Cis
    Cis non  in linea Scribacchino
    Ciao a tutti, volevo sottoporvi questo nuovo problema, in effetti nel form ho 5 textBox come matrice di controlli, vorrei fare in modo che solo la n 1, possa accettare solo numeri all'interno.
    Vi riporto il codice che ho utilizzato ma mi d errore di tipo non corrispondente:


    Private Sub txtPers_KeyPress(Index As Integer, KeyAscii As Integer)
    
     Select Case KeyAscii
        Case txtPers(1) = 48 To 57, 8, 46       
     Exit Sub
        Case Else
            KeyAscii = 0
    End Select
    
    End sub
    
    Volevo chiedere gentilmente dove sbaglio ed in che modo posso risolvere il problema.

    Grazie anticipatamente delle risposte.

    Ciao CIS;
    Ultima modifica di Cis; 22-05-2007 22:23 

  2. #2
    keiji68 non  in linea Scolaretto
    Ciao Cis

    Private Sub txtPers_KeyPress(Index As Integer, KeyAscii As Integer)
    
    if index = 0 then   ' se il controllo  il primo eseguo
       Select Case KeyAscii
          Case 48 To 57, 8, 46       
         
         Case Else
            KeyAscii = 0
       End Select
    end if
    
    End sub
    
    Dovrebbe essere pi o meno cosi.
    Io non ho provato, provalo tu.

    ciao
    ℹ️ Leggi di pi su keiji68 ...

  3. #3
    Cis
    Cis non  in linea Scribacchino
    Ciao KEIJI, ho provato come tu dicevi e funziona perfettamente.

    Grazie dell'aiuto.

  4. #4
    L'avatar di ceklo
    ceklo non  in linea Scribacchino
    Ho seguito questa discussione ed risultata utile anche per me.
    Voglio aggiungere, se voglio controllare anche quanti punti "." vengono inseriti, cosa devo fare?
    Mi spiego meglio, in una text box riesco a controllare l'inserimento di numeri (p.es. 0.89), ma non riesco ad evitare espressioni del tipo (0.0.3, ..87, 9873.455.55, .....) Voglio autorizzare la scritura di un simbolo come il punto soltanto una volta!

    Ho usato il seguente codice:

    For cont08 = 0 To 9
    Index = cont08
    Select Case KeyAscii
    Case 48 To 57, 46

    Case Else
    KeyAscii = 0
    End Select
    Next


    Grazie
    Ceklo

  5. #5
    L'avatar di gibra
    gibra non  in linea Very Important Person
    Puoi fare cos: se il carattere inserito un punto, ed esiste gi un punto, emette un beep ed annulla il carattere.


    Private Sub Text1_KeyPress(KeyAscii As Integer)
        If Chr$(KeyAscii) = "." And InStr(Text1.Text, ".") > 0 Then
            Beep
            KeyAscii = 0 ' annullo il carattere inserito
        End If
    End Sub
    
    ℹ️ Leggi di pi su gibra ...

  6. #6
    L'avatar di ceklo
    ceklo non  in linea Scribacchino
    Grazie della risposta,

    Ho provato ad inserire il codice in questo modo:

    Private Sub Portata_KeyPress(Index As Integer, KeyAscii As Integer)

    For cont09 = 0 To 9
    Index = cont09
    Select Case KeyAscii
    Case 48 To 57, 46
    If Chr$(KeyAscii) = "." And InStr(Portata(Index), ".") > 0 Then
    Beep
    KeyAscii = 0 ' annullo il carattere inserito
    End If
    Case Else
    KeyAscii = 0
    End Select
    Next

    End Sub


    Dove Portata il nome della mia Text box con indici da 0 a 9.
    Ho fatto una prova in questo modo, ho scritto il numero 19.23 nella prima textbox,
    poi mi sono spostato sulla seconda textbox (indice 1) e non viene accettato il punto.

    La "griglia" che ho creato deve ricevere numeri interi o decimali, ma deve rifiutare stringhe come ho indicato prima (0..5 ecc)

    Grazie

  7. #7
    L'avatar di gibra
    gibra non  in linea Very Important Person
    Se tu cicli ogni volta per tutti i controlli della matrice...
    ...mi sembra ovvio.

    Comunque, se devi continuare devi aprire una nuova discussione, perch l'argomento di questa un'altro.

    Ciao
    ℹ️ Leggi di pi su gibra ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Matrice di controlli
    Da dolcissimo nel forum Visual Basic .Net
    Risposte: 3
    Ultimo Post: 14-12-2011, 00:11
  2. VB 2010 - Matrice di controlli
    Da simonesalerno nel forum Visual Basic .Net
    Risposte: 5
    Ultimo Post: 03-09-2010, 21:52
  3. Matrice di controlli CommandButton
    Da Cis nel forum Visual Basic 6
    Risposte: 33
    Ultimo Post: 28-06-2007, 21:58
  4. Problema con matrice di controlli
    Da eugenio nel forum Visual Basic 6
    Risposte: 12
    Ultimo Post: 06-06-2007, 19:38
  5. Matrice di controlli ?
    Da persichetti nel forum Visual Basic .Net
    Risposte: 6
    Ultimo Post: 31-01-2007, 09:19