Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - testo ristretto
Forum - C# / VB.NET - testo ristretto

Avatar
max611 (Normal User)
Newbie


Messaggi: 3
Iscritto: 23/07/2009

Segnala al moderatore
Postato alle 12:21
Giovedì, 23/07/2009
ciao a tutti sono nuovo e ho un bel problema con vb.net
ho bisogno di stringere un testo ,di una variabile, in stampa con printdocument
nel senso che ho la tabella prestampata e se il testo supera la lunghezza del campo devo stringerlo in modo da stamparlo dentro il campo
sono giorni che cerco in giro ma non riesco a trovare niente
qualcuno può darmi una mano??
grazie

PM Quote
Avatar
Gianluca87 (Ex-Member)
Expert


Messaggi: 300
Iscritto: 16/11/2008

Segnala al moderatore
Postato alle 9:51
Venerdì, 24/07/2009
per stringere il testo intendi cambiare la dimensione del font?

PM Quote
Avatar
max611 (Normal User)
Newbie


Messaggi: 3
Iscritto: 23/07/2009

Segnala al moderatore
Postato alle 16:21
Venerdì, 24/07/2009
no,intendo la spaziatura non so come spiegare bene , allego un JPEG come esempio
grazie


max611 ha allegato un file: esempio.jpg (9509 bytes)
Clicca qui per guardare l'immagine
PM Quote
Avatar
riseofapocalypse (Ex-Member)
Pro


Messaggi: 150
Iscritto: 08/07/2009

Segnala al moderatore
Postato alle 17:55
Venerdì, 24/07/2009
Allora intendi un allineamento giustificato?

PM Quote
Avatar
max611 (Normal User)
Newbie


Messaggi: 3
Iscritto: 23/07/2009

Segnala al moderatore
Postato alle 17:47
Lunedì, 27/07/2009
più o meno nel senso che la riga è 1 sola e devo stringerla a seconda della lunghezza per farla stare dentro il campo fisso

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 9:17
Martedì, 28/07/2009
Salva il testo come immagine e restringi l'immagine.
Codice sorgente - presumibilmente VB.NET

  1. Dim Text As String = "testo"
  2. Dim Size As SizeF = e.Graphics.MesaureString(Text, TuoFont)
  3. Dim B As New Bitmap(Size.Width, Size.Height)
  4. Dim G As Graphics = Graphics.FromBitmap(B)
  5. G.DrawString(Text, TuoFont, 0, 0)
  6.  
  7. e.Graphics.DrawImage(B, New Rectangle(x, y, larghezzacampo, B.Height), New Rectangle(0, 0, B.Width, B.Height), GraphicsUnit.Pixel)


Ridurre semplicemente lo spazio potrebbe non bastare, ecco perchè ti ho cinsigliata di convertirlo in immagine.

PM Quote