Ciao a tutti.
Mi trovo in difficoltà con una piccola e sciocca funzione e chiedevo se
qualcuno di Voi può aiutarmi. Mi spiego meglio.
Ho un vecchio programma in RealBasic 4.5.2. Mac OS X Ita che non posso
convertire in un formato più recente.
Il problema è l'allineamento a destra dei caratteri numerici. Ho creato una
piccola funzione che riporto qui sotto che mi serve per contare fisicamente
il numero dei caratteri che formano il numero.
Dim ctrs as integer
ctrs = 1
do until mid(numero-da-stampare,ctrs,1) = ""
ctrs = ctrs +1
loop
g.drawstring numero-da-stampare,150-ctrs,160
in questo modo alla posizione di stampa 150 sottraggo il numero di cifre che
compongono il numero.....ma il risultato è che l'allineamento è sempre a
sinistra e non a destra.
Accetto qualsiasi consiglio.
Grazie Enrico
|