Ver Mensaje Individual
  #4 (permalink)  
Antiguo 15/09/2006, 11:58
Kelbethor
 
Fecha de Ingreso: agosto-2004
Mensajes: 62
Antigüedad: 20 años, 6 meses
Puntos: 2
Me respondo yo mismo:

Para pasar desde metafila a bitmap he hecho lo siguiente:

Código:
Dim bmi As New Bitmap(Me.Width, Me.Height)
        Dim gr As Graphics = Graphics.FromImage(bmi)
        If Not mf Is Nothing Then
            gr.DrawImage(mf, 0, 0, bmi.Width, bmi.Height)
            e.Graphics.Clear(Me.BackColor)
            e.Graphics.DrawImage(bmi, 0, 0)
            If mfr Is Nothing Then
                SetRegion(bmi)
            End If
        End If
Esto es para mostrarlo en pantalla. El sub SetRegion utiliza el bitmap para crear la region del formulario. La pega: Es lentisimo... hay que recorrer todos los pixeles, si alguien sabe otra forma, muy agradecido.