Questo topic e' stato chiuso dal moderatore.
23/04/09 16:45
Sal47
Salve, Vi ringrazio dell'attenzione. Cerco di spiegare il motivo della mia richiesta.
Ho necessità di attivare il CapsLock, e non me ne vogliate per il basso
livello del "mio" VB, perchè non riesco ad utilizzare UCase.
Si tratta di un programma di enigmistica e cliccando lettera per lettera sulle
caselle della definizione scelta, nonostante UCase se non attivo il CapsLock,
le lettere vengono scritte in minuscolo. Tra l'altro non so perchè ma se digito
ad es. la lettera "A" nella casella interessata mi compare "aA" e allora per fare
in modo che nella casella resti scritta solo la maiuscola devo prendere una
lettera a partire dalla seconda. (*)
Questa sotto è la Sub interessata e certamente sbaglio ma non capisco dove
nè come rimediare (altre volte riesco a utilizzare UCase).
--------------------------------------------------------------------------
Public Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Dim N As Integer
Text1(Index).BackColor = &H80000005 ' riporta il colore della casella a bianco
Text1(Index).ForeColor = &HC00000
Text1(Index) = UCase(Mid$(Chr$(KeyAscii), 2, 1)) ' (*)
If opt_Or.Value = True Then
If Index + 1 > 263 Then Index = 262
Text1(Index + 1).SetFocus
End If
If opt_vert.Value = True Then
If Index + 22 > 264 Then Index = Index - 22
Text1(Index + 22).SetFocus
End If
End Sub
--------------------------------------------------------------------------
Saluti
Ho necessità di attivare il CapsLock, e non me ne vogliate per il basso
livello del "mio" VB, perchè non riesco ad utilizzare UCase.
Si tratta di un programma di enigmistica e cliccando lettera per lettera sulle
caselle della definizione scelta, nonostante UCase se non attivo il CapsLock,
le lettere vengono scritte in minuscolo. Tra l'altro non so perchè ma se digito
ad es. la lettera "A" nella casella interessata mi compare "aA" e allora per fare
in modo che nella casella resti scritta solo la maiuscola devo prendere una
lettera a partire dalla seconda. (*)
Questa sotto è la Sub interessata e certamente sbaglio ma non capisco dove
nè come rimediare (altre volte riesco a utilizzare UCase).
--------------------------------------------------------------------------
Public Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Dim N As Integer
Text1(Index).BackColor = &H80000005 ' riporta il colore della casella a bianco
Text1(Index).ForeColor = &HC00000
Text1(Index) = UCase(Mid$(Chr$(KeyAscii), 2, 1)) ' (*)
If opt_Or.Value = True Then
If Index + 1 > 263 Then Index = 262
Text1(Index + 1).SetFocus
End If
If opt_vert.Value = True Then
If Index + 22 > 264 Then Index = Index - 22
Text1(Index + 22).SetFocus
End If
End Sub
--------------------------------------------------------------------------
Saluti
aaa
