Necesito los parametros de esta funcion paint
Publicado por Jimcov (5 intervenciones) el 19/02/2006 23:57:46
buscando en internet encontre este funcion paint dice que pinta cualquier figura cerrada pero no puedo hacerla funcionar
no doy con los parametros
Declare Function FloodFill Lib "GDI32" (ByVal hDC, ByVal x, ByVal y, ByVal crColor As Long )
Sub Paint(pic As PictureBox, x As Integer, y As Integer, FillClr As Long, Optional FillStyle As Variant)
If IsMissing(FillStyle) Then
pic.FillStyle = vbFSSolid
Else
pic.FillStyle = Int(FillStyle)
End If
pic.FillColor = FillClr
If FloodFill(pic.hDC, x, y, pic.ForeColor) = 0 Then
MsgBox "Error Sub Paint..."
End If
End Sub
La función Paint() pinta de un color el fondo de una figura cerrada y creada con métodos gráficos. Los parámetros x e y son cualquier punto dentro de la figura. Opcionalmente puede pintar empleando algún FillStyle suministrado por Visua Basic.
si pudieras ayudarme te lo agradeceria mucho gracias
jimcov
no doy con los parametros
Declare Function FloodFill Lib "GDI32" (ByVal hDC, ByVal x, ByVal y, ByVal crColor As Long )
Sub Paint(pic As PictureBox, x As Integer, y As Integer, FillClr As Long, Optional FillStyle As Variant)
If IsMissing(FillStyle) Then
pic.FillStyle = vbFSSolid
Else
pic.FillStyle = Int(FillStyle)
End If
pic.FillColor = FillClr
If FloodFill(pic.hDC, x, y, pic.ForeColor) = 0 Then
MsgBox "Error Sub Paint..."
End If
End Sub
La función Paint() pinta de un color el fondo de una figura cerrada y creada con métodos gráficos. Los parámetros x e y son cualquier punto dentro de la figura. Opcionalmente puede pintar empleando algún FillStyle suministrado por Visua Basic.
si pudieras ayudarme te lo agradeceria mucho gracias
jimcov
Valora esta pregunta


0