Form Üzerinde Renk Geçişi
Private Sub RenkGecisi(Ref As Form)
Dim intLoop As Integer
Ref.DrawStyle = vbInsideSolid
Ref.DrawMode = vbCopyPen
Ref.ScaleMode = vbPixels
Ref.DrawWidth = 2
Ref.ScaleHeight = 256
For intLoop = 0 To 255
Ref.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255, 0, 255 - intLoop), B
Next intLoop
End Sub
Private Sub Form_Activate()
RenkGecisi Me
End Sub
1 yorum:
selamlar böyle bir şey yapmakla çok duacınız oldu baştada ben inşallah bir gün bende kendi başıma kod yazmaya başlarım herşey için çok teşekkür ederim şidlik ..bay bay başarılar
Yorum Gönder