by PulseWave (25 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Wed 24th February 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Good Fader codes for fadding forms
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