Ejemplos usando el Api de windows para Visual basic

78 - Ejemplo para pintar superficies con el Api ExtFloodFill

Volver al Listado Api - Anterior - Siguiente

El siguiente ejemplo muestra como detectar regiones o superficies de un determinado color en un PictureBox y poder pintar dichas regiones con otro color, utilizando el Api ExtFloodFill entre otros.

Colocar un Picturebox llamado Picture1 y agregar algunos controles Shapes dentro de este, como muestra la imagen

Vista del Ejemplo utilizando el Api extFloodFill para pintar superficies

Luego agregar un control CommonDialog y un Command para seleccionar el color en el cual se pintarán las regiones donde se haga un click.

Nota: Al Api ExtFloodFill se le envía en uno de los parámetros el color que debe detectar para cambiar, es decir el color de la superficie elegida, en este ejemplo se utiliza el Api GetPixel, por lo tanto siempre se cambiará de color al hacer un click en cualquier región. Si deseamos cambiar solo un color determinado, especificar en dicho parámetro el color en cuestión, por ejemplo si le colocamos VbRed, solo se cambiará de color si la región o superficie donde hicimos Click es de color Rojo

Código fuente

Option Explicit 'Funciones Api Private Declare Function SelectObject _ Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal hObject As Long) As Long Private Declare Function CreateSolidBrush _ Lib "gdi32" ( _ ByVal crColor As Long) As Long Private Declare Function DeleteObject _ Lib "gdi32" ( _ ByVal hObject As Long) As Long Private Declare Function GetPixel _ Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long) As Long Private Declare Function ExtFloodFill _ Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal crColor As Long, _ ByVal wFillType As Long) As Long Const FLOODFILLSURFACE = 1 'Color que se usará para pintar la superficie al hacer un click Dim Color As Long 'Color que debe tener la región Dim ColorActual As Long Private Sub Init() Color = vbGreen With Picture1 .ScaleMode = vbPixels .Refresh .AutoRedraw = False End With End Sub Private Sub Command1_Click() 'Seleccionamos el color que se usará para pintar CommonDialog1.ShowColor Command1.BackColor = CommonDialog1.Color Color = CommonDialog1.Color End Sub Private Sub Form_Load() Init End Sub Private Sub Picture1_MouseDown( _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) Dim hBrush As Long hBrush = CreateSolidBrush(Color) With Picture1 Call SelectObject(.hdc, hBrush) 'Obtiene el color del pixel ( zona donde hicimos click ) ColorActual = GetPixel(.hdc, x, y) 'Pintamos la superficie Call ExtFloodFill(.hdc, x, y, ColorActual, FLOODFILLSURFACE) 'Eliminamos de memoria el pincel Call DeleteObject(hBrush) End With End Sub

Ejemplos relacionados

No hay ejemplos.

Buscar en Recursos vb