Visual Basic.NET - Crear metafiles con VB.net

 
Vista:

Crear metafiles con VB.net

Publicado por Gonzalo (1 intervención) el 01/06/2006 14:57:03
Hola, tengo un control propio en el cual grafico mediante las funciones un grafíco de tiempos. Quiero grabar este gráfico a un archivo en formato WMF o EMF de tal forma que al abrirlo en Office, se mantenga las propociones. hasta ahora lo logre, pero al agrandar la imagen, las lineas dibujadas y las fuentes también se agrandan, y deseo que no sea asi, sino que independientemente del tamaño de la imagen, las lineas dibujadas siempre sean de grosor 1 . Quisiera saber como se debe hacer para setearle esta propiedad al metafile y que no se modifique ni los anchos de las lineas ni los tamaños de las fuentes.. Copio el código que tengo hasta ahora:

Dim gr As Graphics = Me.CreateGraphics()
Dim hdc As IntPtr = gr.GetHdc()
Dim mf As New Metafile("c:\1.WMF", hdc, New Rectangle(0, 0, 200, 200), MetafileFrameUnit.Pixel)

Dim mf_gr As Graphics = Graphics.FromImage(mf)

DibjuarGrafico(mf_gr) ' Función propia que dibuja todas las lineas.

mf_gr.Dispose()
mf.Dispose()
gr.ReleaseHdc(hdc)
gr.Dispose()

Muchas gracias
GM
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder