|
|
|
|||||||
 | ||
 |
|
|
Seçenekler | Arama | Stil |
  Form Üzerinde Renk Geçişi | ||||||||||
|
(#1)
|
|||||||||
|
Üye
 
Mesaj Sayısı: 923
Açtığı Konu: 551
Level: 27 [  ]Paylaşım: 130 / 651
Üyelik tarihi: Nov 2007
Kullanıcı No: 191658
Nerden: STARHACk.ORG'dan
Tecrübe Puanı: 38
REP Puanı : 364
REP Seviyesi :
 |
Form Üzerinde Renk Geçişi -
05-08-2008
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 |
|||||||||
|
||||||||||
 | ||||||||||
|
|
|
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | Arama |
| Stil | |
|
|
Normal
