Başlangıç > Kodlar > Visual Basic 6 ile Spin gradient

Visual Basic 6 ile Spin gradient


Spin Gradient

Sayın Erdem Selçuk spin gradient olayını anlatan örnek bir döküman göndermiş, özellikle yeni başlayanlar için yararlı bir döküman. Kendisine teşekkür ediyorum.


Sub SpinGradient(frm As Form, rs%, gs%, bs%, re%, ge%, be%, smooth As Boolean)
If frm.WindowState = vbMinimized Then Exit Sub
frm.BackColor = RGB(rs, gs, bs)
If smooth = True Then
frm.DrawStyle = 6
Else
frm.DrawStyle = 0
End If
If frm.ScaleWidth <> 255 Then
frm.ScaleWidth = 255
End If
If frm.ScaleHeight <> 255 Then
frm.ScaleHeight = 255
End If
frm.DrawWidth = 5

ri = (rs – re) / 255 / 2
gi = (gs – ge) / 255 / 2
bi = (bs – be) / 255 / 2
rc = rs: bc = bs: gc = gs
For x = 0 To 255
DoEvents
frm.Line (x, 0)-(255 – x, 255), RGB(rc, gc, bc)
rc = rc – ri
gc = gc – gi
bc = bc – bi
Next x
For x = 0 To 255
DoEvents
frm.Line (255, x)-(0, 255 – x), RGB(rc, gc, bc)
rc = rc – ri
gc = gc – gi
bc = bc – bi
Next x
End Sub

Private Sub Form_Paint()
SpinGradient Me, 255, 0, 0, 0, 0, 255, True
End Sub

Erdem Selçuk erdem_2000@yahoo.com


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: