[VB6] Printer - Allineamento Testo

[hunt]

ciao ragazzi...

qualkuno di voi conosce percaso la formula che ti consente di allineare centralmente una stringa tra 2 punti?

Ad esempio:
Devo stampare, tramite l'oggetto printer, la stringa "CIAO" tra il punto 500 ed il punto 1500. Vorrei sapere la formula da utilizzare per stampare codesta stringa allineata centralmente tra i 2 punti citati poco fa.

Grazie...

[hunt]

:quote:

[anatroccolo]

Originariamente inviato da hunt
ciao ragazzi...

qualkuno di voi conosce percaso la formula che ti consente di allineare centralmente una stringa tra 2 punti?

Ad esempio:
Devo stampare, tramite l'oggetto printer, la stringa "CIAO" tra il punto 500 ed il punto 1500. Vorrei sapere la formula da utilizzare per stampare codesta stringa allineata centralmente tra i 2 punti citati poco fa.

Grazie...

Lunghezza in punti: 1500 - 500 = 1000

Lunghezza in punti - Stringa: 1000 - 4 = 996

Punto di partenza = 996 / 2 = 498

Ciao

[anatroccolo]

dimenticavo......

498 + 500 = 998 E' il punto dal margine tra 0 e 1500

Forse..................

[hunt]

grazie anatroccolo, ma nn è giusto come me l'hai proposto!!!

Cmq l'ho risolto...il testo centrato tra il punto A e il punto B

A|_______TESTO_______|B

Dim A, B, middle as single
Dim text as string

A = 500
B = 1500
text = "CIAO"
middle = (B - Printer.TextWidth(text) + A) / 2
Printer.CurrentX = middle
Printer.Print text

[anatroccolo]

Perchè dici che non è giusto. Se consideri la stringa "CIAO" lunga 4 caratteri la tua veriabile Middle ha come valore "998" lo stesso che dava a me.

Ciao

[hunt]

nn è giusto semplicemente perchè 4 caratteri in realtà non hanno la stessa unità di misura della posizione della stampante!

[anatroccolo]

Originariamente inviato da hunt
nn è giusto semplicemente perchè 4 caratteri in realtà non hanno la stessa unità di misura della posizione della stampante!

OK!!!!!!!