|
|
Postada em 29/10/2005 00:27 hs
Como eu faço para colocar esta cor de fundo do fórum no meu Form.
O Senhor é o meu Pastor e nada me faltará !!!
|
|
|
|
|
|
|
|
Postada em 29/10/2005 10:15 hs
Veja esta dica : Private Sub Form_Resize()
Dim Cont As Single
Me.AutoRedraw = True
Me.ScaleHeight = 255
Me.DrawWidth = 2
For Cont = 0 To 254
Me.Line (0, Cont)-(Me.Width, Cont), RGB(0, 0, Cont) 'cor azul
Next
End Sub
|
|
|
|
|
|
Postada em 29/10/2005 10:44 hs
Altere os valores da rgb para modificar as cores : Private Sub Form_Load()
Me.AutoRedraw = True
Me.DrawStyle = 6
Me.DrawMode = 13
Me.DrawWidth = 2
Me.ScaleMode = 3
Me.ScaleHeight = (256 * 2)
For i = 255 To 0 Step -1
Me.Line (0, y)-(Me.Width, y + 2), RGB(100, 150, i), BF
y = y + 2
Next i
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
|
Postada em 29/10/2005 13:08 hs
Geronimo é esta cor azul mais clara. |
|
|
|
|
|
Postada em 30/10/2005 05:42 hs
Você tera que ir testando alterne estes valores: RGB(100, 150, i), RGB(i, 150,50), RGB(100, i, 90), RGB(200, 10, i), e por ai afora esta função ela trabalha em degrade de uma cor mais escura a tonalidade mais clara mas para isso é preciso modificar os valores ...
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
