Hola a todos.
Tengo este codigo pero no me funciona, no dibuja el poligono
ya he hecho arcos, rectangulos, circulos, pero con este no lo consigo
Seguro que me falta algo
Si es posible si me podeis poner el codigo para el relleno con un color, solido me basta, aunque sea sin la funcion, yo ya lo pondre luego en la funcion
///////////////////// Modulo.bas /////////////////////
Private Type PointF
X As Long
Y As Long
End Type
Private Declare Function GdipDrawPolygon Lib "gdiplus" (ByVal Graphics As Long, ByVal Pen As Long, Points As PointF, ByVal count As Long) As GpStatus
'''La funcion para dibujar
'''----------------------------------------------------------
Public Function WDGdiPlusPolygon(dstDC As Long)
Dim Pen As Long
Dim Brush As Long
Dim Graphics As Long
'el declare de estas 2 funciones las tengo en el modulo .bas
GdipCreateFromHDC dstDC, Graphics
GdipCreateSolidFill vbBlue, Brush
Dim m_Points(1 To 10) As PointF
Dim i As Long
i = 1
m_Points(i).X = 93
m_Points(i).Y = 87
i = i + 1
m_Points(i).X = 67
m_Points(i).Y = 36
i = i + 1
m_Points(i).X = 241
m_Points(i).Y = 41
i = i + 1
m_Points(i).X = 189
m_Points(i).Y = 78
i = i + 1
GdipDrawPolygon Graphics, Pen, m_Points(1), 5
End Function
///////////////////// Codigo en el Form /////////////////////
'''Picture1 esta en el Form y tiene autoredraw en True
WDGdiPlusPolygon Picture1.hDC
Muchas gracias!!!!!!
Saludos desde España
