Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

caselle di testo sempre in maiuscolo

913 views
Skip to first unread message

nicola

unread,
Mar 12, 2008, 7:09:07 AM3/12/08
to
salve,
volevo sapere come si fa in una maschera a impostare una casella di
testo in modo che il testo immesso sia sempre maiuscolo
indipendentemente se il tasto maiuscolo sia on

news...@gmail.com

unread,
Mar 12, 2008, 7:27:59 AM3/12/08
to

per convertire il report direttamente in pdf ti consiglio di usare
PDFCreator che puoi trovare qui http://www.aiutamici.com/software?ID=11200
con tanto di spiegazione sull'utilizzo

eventualmente poi anche fare qualcosa che stampi direttamente il file
in pdf anzichè sulla carta

io ho qualcosa del genere ma non l'ho ancora testato a sufficienza, ma
appena posso lo invierò a www.sitocomune.it per poterlo rendere
disponibile a chi serve.

ciao

news...@gmail.com

unread,
Mar 12, 2008, 7:31:06 AM3/12/08
to
On 12 Mar, 12:09, nicola <cantaluponic...@gmail.com> wrote:

scusa il messaggio di prima non era riferito al tuo post

per quello che vuoi fare tu puoi usare strconv, vedi l'help di access

ciao

geppo

unread,
Mar 12, 2008, 8:25:40 AM3/12/08
to


Evento KeyPress della casella di testo:-------//


private sub tuacaselladitesto_keypress(keyascii as integer, shift as
integer)

dim vCaratteri as string

vCaratteri = chr(KeyAscii)

keyascii = asc(ucase(vcaratteri))

end sub

se nell'editor vba scrivi keypress e premi F1 c'č l'esempio di cui sopra

--
Ciao
Geppo


VedoTondo

unread,
Mar 12, 2008, 8:39:13 AM3/12/08
to

"nicola" <cantalu...@gmail.com> ha scritto nel messaggio
news:d7166636-93b5-4dd3...@m3g2000hsc.googlegroups.com...

Nella proprietą su pressione inserisci questo:

KeyAscii = Asc(UCase(Chr(KeyAscii)))

Saluti @ndrea


Bruno Campanini

unread,
Mar 12, 2008, 11:13:22 AM3/12/08
to
"nicola" <cantalu...@gmail.com> wrote in message
news:d7166636-93b5-4dd3...@m3g2000hsc.googlegroups.com...

Nella proprietą Format del Text Box metti il simbolo >

Bruno

geppo

unread,
Mar 12, 2008, 11:22:48 AM3/12/08
to
...ops, rileggendo il post mi sono accorto di aver aggiunto una cosa in
piu':


private sub tuacaselladitesto_keypress(keyascii as integer)

Filippo

unread,
Mar 13, 2008, 3:51:01 AM3/13/08
to
On Wed, 12 Mar 2008 13:39:13 +0100, "VedoTondo"
<vedotondo...@alice.it> wrote:

aiuscolo sia on
>
>Nella proprietà su pressione inserisci questo:
>
> KeyAscii = Asc(UCase(Chr(KeyAscii)))


Così, tanto per fare prima:
KeyAsccii=KeyAscii+32
Ciao
Filippo

Filippo

unread,
Mar 13, 2008, 4:00:50 AM3/13/08
to
On Thu, 13 Mar 2008 08:51:01 +0100, Filippo <f....@panservice.it>
wrote:


>
>Cosě, tanto per fare prima:
>KeyAsccii=KeyAscii+32
>Ciao
>Filippo


Oops, che cretinata che ho detto č MENO 32, non PIU': KeyAsccii-32
comunque poi bisognerebbe pure selezionare con:

Select Case KeyAscii
Case 97 To 122
KeyAscii=KeyAscii - 32
End Select


e forse a questo punto č meglio UCASE etc.

Scusate
Ciao
Filippo

VedoTondo

unread,
Mar 13, 2008, 5:36:57 AM3/13/08
to

"Filippo" <f....@panservice.it> ha scritto nel messaggio
news:penht3h7m1kis53nh...@4ax.com...

> On Thu, 13 Mar 2008 08:51:01 +0100, Filippo <f....@panservice.it>
> wrote:


> Select Case KeyAscii
> Case 97 To 122
> KeyAscii=KeyAscii - 32
> End Select

Mi spieghi il motivo?
Io nel mio programma uso quello che ho scritto e inserendo nomi ditta non ho
mai avuto problemi ma da quello che tu scrivi deduco che ne potrei avere
giusto?
Perchè limiti da 97 a 122?


Saluti @ndrea


Filippo

unread,
Mar 13, 2008, 6:09:31 AM3/13/08
to
On Thu, 13 Mar 2008 10:36:57 +0100, "VedoTondo"
<vedotondo...@alice.it> wrote:


>
>> Select Case KeyAscii
>> Case 97 To 122
>> KeyAscii=KeyAscii - 32
>> End Select
>
>Mi spieghi il motivo?
>Io nel mio programma uso quello che ho scritto e inserendo nomi ditta non ho
>mai avuto problemi ma da quello che tu scrivi deduco che ne potrei avere
>giusto?
>Perchè limiti da 97 a 122?
>
>
>Saluti @ndrea

No, no, tu non puoi avere problemi perché la funzione Ucase converte
in maiuscolo soltanto i caratteri alfabetici minuscoli (ovviamente)
Però il codice che usi incapsula tre funzioni:
1. Converte il Numero in Carattere (Chr(KeyAscii)
2. Lo converte in Maiuscolo (Ucase)
3. Lo riconverte in formato Numerico (Asc)
Il codice che propongo, si limita a scalare di 32 il numero KeyAscii
Ovviamente è necessario che il numero corrisponda ad un carattere
minusccolo altrimeni il codice trasformerebbe qualsiasi carattere in
quello che lo precede di 32 posti nella tabella ASCII, ivi comprese
quindi le lettere già maiuscole oppure i caratteri numerici, le
virgole, le parentesi etc.
Ecco perché occorre filtrare da 97 a 122
Ti preciso: Chr(97) = "a", Chr(122) = "z"

E' piò o meno una questione di gusti e di stile, a me non piace usare
funzioni stringa e codice ridondante, ma è una 'tara' che mi porto
dietro dai tempi del DOS e che forse oggi non ha più ragione di essere
data la quantità di RAM e la velocità dei processori.
Ciao
Filippo


Filippo

unread,
Mar 13, 2008, 6:16:17 AM3/13/08
to
On Thu, 13 Mar 2008 11:09:31 +0100, Filippo <f....@panservice.it>
wrote:


>Però il codice che usi incapsula tre funzioni:
>1. Converte il Numero in Carattere (Chr(KeyAscii)
>2. Lo converte in Maiuscolo (Ucase)
>3. Lo riconverte in formato Numerico (Asc)
>Il codice che propongo, si limita a scalare di 32 il numero KeyAscii
>Ovviamente è necessario che il numero corrisponda ad un carattere
>minusccolo altrimeni il codice trasformerebbe qualsiasi carattere in
>quello che lo precede di 32 posti nella tabella ASCII, ivi comprese
>quindi le lettere già maiuscole oppure i caratteri numerici, le
>virgole, le parentesi etc.
>Ecco perché occorre filtrare da 97 a 122
>Ti preciso: Chr(97) = "a", Chr(122) = "z"
>
>E' piò o meno una questione di gusti e di stile, a me non piace usare
>funzioni stringa e codice ridondante, ma è una 'tara' che mi porto
>dietro dai tempi del DOS e che forse oggi non ha più ragione di essere
>data la quantità di RAM e la velocità dei processori.
>Ciao
>Filippo

Aggiungo, ma qui vorrei il conforto di qualche programmatore più
esperto di me, che la funzione Ucase restituisce un dato Variant e
credo che questo appesantisca ancora di più il programma in termini
(infinitesimali, d'accordo) di uso di risorse.
Al limite è meglio Ucase$ (con $ alla fine) che restituisce una
stringa.
Ciao
Filippo


VedoTondo

unread,
Mar 13, 2008, 2:28:49 PM3/13/08
to

"Filippo" <f....@panservice.it> ha scritto nel messaggio
news:5luht3t1p0fk3pqqr...@4ax.com...

> No, no, tu non puoi avere problemi perché la funzione Ucase converte
> in maiuscolo soltanto i caratteri alfabetici minuscoli (ovviamente)
> Però il codice che usi incapsula tre funzioni:
> 1. Converte il Numero in Carattere (Chr(KeyAscii)
> 2. Lo converte in Maiuscolo (Ucase)
> 3. Lo riconverte in formato Numerico (Asc)
> Il codice che propongo, si limita a scalare di 32 il numero KeyAscii
> Ovviamente è necessario che il numero corrisponda ad un carattere
> minusccolo altrimeni il codice trasformerebbe qualsiasi carattere in
> quello che lo precede di 32 posti nella tabella ASCII, ivi comprese
> quindi le lettere già maiuscole oppure i caratteri numerici, le
> virgole, le parentesi etc.
> Ecco perché occorre filtrare da 97 a 122
> Ti preciso: Chr(97) = "a", Chr(122) = "z"

Ti ringrazio per la spiegazione.

> E' piò o meno una questione di gusti e di stile, a me non piace usare
> funzioni stringa e codice ridondante, ma è una 'tara' che mi porto
> dietro dai tempi del DOS e che forse oggi non ha più ragione di essere
> data la quantità di RAM e la velocità dei processori.
> Ciao
> Filippo

Avessi solo i problemi di codesto genere sarei un signore :-), in genere i
pc li usiamo per file grafici e ti posso gantire che lì casca veramente
l'asino :-)

Saluti @ndrea


0 new messages