AJUSTAR TEXTO TEXTWIDTH EM VBNET

MAXCIM 05/01/2011 21:23:18
#361283
Olá Amigos,
preciso ajustar um texto em uma string ( alinhar a direita e contralizar)
no VB6 usava o TextWidth para ver tamanho do texto e posicioná-lo na string.
e no VBnet como faço?

desde já agradeço.
JONATHANSTECKER 06/01/2011 07:52:47
#361307 Resposta escolhida
Caso esse texto esteja dentro de um TextBox use a propriedade TextAlign.
Caso você esteja querendo alinhar o controle use a propriedade Dock.
MAXCIM 06/01/2011 09:07:11
#361314
Olá Jonathan, São strings ( retorno do banco de dados) que tenho que concatenar dentro de uma strimg maior.
JONATHANSTECKER 06/01/2011 09:10:00
#361316
Bom, para ver o tamanho do texto faça assim String.Length.
MAXCIM 06/01/2011 09:17:18
#361321
então... eu tentei usar o Length mas ele retorna o numero de caracteres, e em casas de caractees mais largos que os outros.. o texto não fica bem ajustado.
este comando em VB6 me dá o tamanho exato da string

Vspace = (tamanho - TextWidth(strTesto)) / 45
o mesmo eu não consigo em VBnet
JONATHANSTECKER 06/01/2011 09:30:18
#361323
Tente usando esta função...

    Function TextWidth(ByVal s As String) As Integer
        Dim g As Graphics
        Dim p As New Printing.PrintDocument
        Dim f As New Font([Ô]arial[Ô], 12, FontStyle.Regular, GraphicsUnit.Point, 0)

        g = p.PrinterSettings.CreateMeasurementGraphics
        g.PageUnit = GraphicsUnit.Inch
        TextWidth = g.MeasureString(s, f).Width
        g.Dispose()
        f.Dispose()
    End Function


Fonte.: VB6 to VB.Net Migration of Print TextWidth
MAXCIM 06/01/2011 09:50:13
#361330
valeu Jonathan, acertou em cheio!
Tópico encerrado , respostas não são mais permitidas
Voltar