[VB6] Trasformazione caratteri in maiuscolo e spazio

[[_Kilckk_]]

Ciao a tutti io uso questo codice per permettere solamente l'inserimento delle lettere e far diventare le lettere maiuscolo:

If (KeyAscii > 32 And KeyAscii < 65 Or KeyAscii > 90 And KeyAscii < 97 Or KeyAscii > 122 And KeyAscii < 255) Then
'è un numero quindi non scrivo nulla
KeyAscii = 0
Else
KeyAscii = KeyAscii And 223
End If

Il problema è che ora non riesco a utilizzare lo space ma se elimino la riga di comando

KeyAscii = KeyAscii And 223

funziona tutto!!!

Sapete come posso risolvere il mio problema???

Grazie per il vostro aiuto.

[Luciano79]

If (KeyAscii > 32 And KeyAscii < 65 Or KeyAscii > 90 And KeyAscii < 97 Or KeyAscii > 122 And KeyAscii < 255) Then
'è un numero quindi non scrivo nulla
  KeyAscii = 0
Else
  KeyAscii = KeyAscii + 97 'trasforma la lettera in maiuscolo
End If

Se si tratta di VB6

[alka]

Originariamente inviato da Luciano79
Se si tratta di VB6

Pur se in buona fede, meglio accertarsene prima di rispondere, evitando di correre il rischio di scrivere una soluzione da scartare o non utilizzabile, premiando anche l'utente che non ha rispettato il Regolamento e non ha indicato quale versione del linguaggio utilizza.

[[_Kilckk_]]

Chiedo scusa, si tratta di vb6

Luciano79 ho provato il tuo codice ma non funziona... ecco cosa accede se provo a scrivere:

abcde....
ÂÃÄÅÆ....

[tossam]

If not(KeyAscii > 32 And KeyAscii < 65 Or KeyAscii > 90 And KeyAscii < 97 Or KeyAscii > 122 And KeyAscii < 255) Then
'è un numero quindi non scrivo nulla
  KeyAscii = 0
  KeyAscii = KeyAscii - 32 'trasforma la lettera in maiuscolo
End If

PROVA QUESTO...

Luciano79 si è confuso...

[[_Kilckk_]]

niente lo space non funziona

[tossam]

scusa:

If KeyAscii = 32 Then
Label1.Caption = Label1.Caption & " "
End If
If Not (KeyAscii > 32 And KeyAscii < 65 Or KeyAscii > 90 And KeyAscii < 97 Or KeyAscii > 122 And KeyAscii < 255) Then
  KeyAscii = KeyAscii - 32 'trasforma la lettera in maiuscolo
End If
Label1.Caption = Label1.Caption & Chr(KeyAscii)

ciao

[Luciano79]

Ha ragione tossam... va tolto 32.
In realtà non possiamo togliere quel valore a tutti i caratteri, ma solo alle lettere minuscole, altrimenti ti cambia tutto.
Prova questo:

    Select Case KeyAscii
        Case 32
        Case 65 To 90
        Case 97 To 122
            KeyAscii = KeyAscii - 32
        Case Else
            KeyAscii = 0
    End Select

[[_Kilckk_]]

Io avevo risolto con questo codice:

If (KeyAscii > 96 And KeyAscii < 123) Then
        KeyAscii = KeyAscii And 223
    ElseIf (KeyAscii > 64 And KeyAscii < 91 Or KeyAscii = 8 Or KeyAscii = 32 Or KeyAscii = 39) Then
        KeyAscii = KeyAscii
Else
    KeyAscii = 0
End If

Ma devo dire che il tuo è molto più elegante


Grazie a tutti.

[[_Kilckk_]]

Scusa se ti ridisturbo ma ho provato ad apportare una modifica al tuo codice:

    Select Case KeyAscii
        Case 32
        Case 8
        Case 65 To 90
        Case 97 To 122
            KeyAscii = KeyAscii - 32
            Numero = ""
        Case 48 To 57
        Numero = Key
        Case Else
            KeyAscii = 0
    End Select

Così che possa limitare la scritta di solo numeri nella variabile numero, ma non funziona infatti continua a scrivere anche le lettere e non capisco il perchè visto che gli do un valore nullo.

Grazie per il tuo aiuto.