|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Forms/MDI)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Pintar um local do formulario com a cor escolhida
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|