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:

vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), _
RGB(0, 255 - intLoop, 0), B

Zpět

Autor: The Bozena