|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Pintar um local do formulario com a cor escolhida
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Private Declare Function FloodFill Lib _
"gdi32" (ByVal hDC As Long, ByVal _
X As Long, ByVal Y As Long, ByVal _
crColor As Long) As Long
Private Sub Form_Click()
ScaleMode = vbPixels 'Windows draws in pixels.
ForeColor = vbBlack 'Set draw line to black.
Line (100, 50)-(300, 50) 'Draw a triangle.
Line -(200, 200)
Line -(100, 50)
FillStyle = vbFSSolid 'Set FillStyle to solid.
FillColor = RGB(128, 128, 255) 'Set FillColor.
'Call Windows API to fill.
FloodFill hDC,200,100,ForeColor
End Sub
|
|
|
|
|
