Tvorba gradientu |
![]() |
Postup: V deklarační části formuláře zapište: Sub Dither(vForm As Form) Dim intLoop As Integer vForm.DrawStyle = vbInsideSolid vForm.DrawMode = vbCopyPen vForm.ScaleMode = vbPixels vForm.DrawWidth = 2 vForm.ScaleHeight = 256 For intLoop = 0 To 255 vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), _ RGB(0, 0, 255 - intLoop), B Next intLoop End Sub Private Sub Form_Activate() Dither Me End Sub Pokud chcete experimentovat
s barvami gradientu, je třeba modifikovat řádek v loopu. Například tato
modifikace vytvoří zelený gradient: |
![]() |
Autor: The Bozena |