ARKA PLANA DEGRADE ATMAK
HEMEN hemen tüm büyük programların kurulum arka planlarında maviden siyaha geçiş vardır. VB'nin uygulamalar için oluşturduğu kurulumlarda da bunu görmek mümkündür. Peki nasıl oluyor da oluyor, form üzerine degrade nasıl atılıyor? Aşağıdaki küçük alt yordamı kullanarak bunu siz de kolayca gerçekleştirebilirsiniz.
Sub Gradient(TheObject As Object, Redval&, Greenval&,_
Blueval&, TopToBottom As Boolean)
Dim Step%, Reps%, FillTop%, FillLeft%, FillRight%, FillBottom%, HColor$
Step = (TheObject.Height / 63)
If TopToBottom = True Then FillTop = 0 Else FillTop = TheObject.Height - Step
FillLeft = 0
FillRight = TheObject.Width
FillBottom = FillTop + Step
For Reps = 1 To 63
TheObject.Line (FillLeft, FillTop)-(FillRight, FillBottom),_
RGB(Redval, Greenval, Blueval), BF
Redval = Redval - 4
Greenval = Greenval - 4
Blueval = Blueval - 4
If Redval <= 0 Then Redval = 0
If Greenval <= 0 Then Greenval = 0
If Blueval <= 0 Then Blueval = 0
If TopToBottom = True Then FillTop = FillBottom Else FillTop = FillTop - Step
FillBottom = FillTop + Step
Next
End Sub
Örneğin mavi renkte, yukarıdan aşağıya bir degrade için
Gradient Me, 0, 0, 255, 1
komutunu kullanabilirsiniz. 1 değeri yerine 0 yazdığınızda ise degradenin sırasını değişecektir.