TextWidth en VB2008
Publicado por Anonimo (3 intervenciones) el 06/08/2008 20:47:54
Hola a todo el mundo.
¿Alguien sabe por que esto me da como resultado un numero con decimales en lugar de darme el resultado en pixels?
Gracias.
Dim Grafico As Graphics
Grafico = Me.CreateGraphics
Grafico.PageUnit = GraphicsUnit.Pixel
Dim Fuente As New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Point)
Dim TamanoTexto As SizeF
TamanoTexto = Grafico.MeasureString("Hola", Fuente)
MsgBox(TamanoTexto.Width)
PD: Se supone que las nuevas versiones deben hacer la vida mas facil a los programadores pero MS se ha empeñado en todo lo contrario. ¡Con lo facil que resultaban algunas cosas en VB6...!
¿Alguien sabe por que esto me da como resultado un numero con decimales en lugar de darme el resultado en pixels?
Gracias.
Dim Grafico As Graphics
Grafico = Me.CreateGraphics
Grafico.PageUnit = GraphicsUnit.Pixel
Dim Fuente As New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Point)
Dim TamanoTexto As SizeF
TamanoTexto = Grafico.MeasureString("Hola", Fuente)
MsgBox(TamanoTexto.Width)
PD: Se supone que las nuevas versiones deben hacer la vida mas facil a los programadores pero MS se ha empeñado en todo lo contrario. ¡Con lo facil que resultaban algunas cosas en VB6...!
Valora esta pregunta
0