Good Fader codes for fadding forms
Good Fader codes for fadding forms
Rate Good Fader codes for fadding forms
(1(1 Vote))
Sub EndRed(theform As Form)
'Put in form 'Paint'
Dim w, b, i, Y
theform.BackColor = &H0&
theform.DrawStyle = 6
theform.DrawMode = 13
theform.DrawWidth = 2
theform.ScaleMode = 3
theform.ScaleHeight = (256 * 2)
For w = 255 To 0 Step -1
theform.Line (0, b)-(theform.Width, b + 100), RGB(w + 100, w, w * 100), BF
b = b + 100
Next w
For i = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, Y + 100), RGB(i + 100, i, i * 100), BF
Y = Y + 100
Next i
End Sub
Sub EndBlack(theform As Form)
'Put in form 'Paint'
Dim w, b, i, Y
theform.BackColor = &H0&
theform.DrawStyle = 6
theform.DrawMode = 13
theform.DrawWidth = 2
theform.ScaleMode = 3
theform.ScaleHeight = (256 * 2)
For w = 255 To 0 Step -1
theform.Line (0, b)-(theform.Width, b + 1), RGB(w + 1, w, w * 1), BF
b = b + 100
Next w
For i = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, Y + 1), RGB(i + 1, i, i * 1), BF
Y = Y + 100
Next i
End Sub
Sub LineDown(theform As Form)
'Put in form 'Paint'
Dim w, b, i, Y
theform.BackColor = vbBlack
theform.DrawStyle = 6
theform.DrawMode = 13
theform.DrawWidth = 2
theform.ScaleMode = 3
theform.ScaleHeight = (256 * 100)
For w = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, b + 10), RGB(w + 10, w, w * 10), BF
b = b + 100
Next w
For i = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, Y + 10), RGB(i + 10, i, i * 10), BF
Y = Y + 100
Next i
End Sub
Sub EndFire(theform As Form)
'Put in form 'Paint'
Dim w, b, i, Y
theform.BackColor = &H0&
theform.DrawStyle = 6
theform.DrawMode = 13
theform.DrawWidth = 2
theform.ScaleMode = 3
theform.ScaleHeight = (256 * 2)
For w = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, b + 1), RGB(255, 255 - w, 0), BF
b = b + 100
Next w
End Sub
Good Fader codes for fadding forms Comments
No comments yet — be the first to post one!
Post a Comment