Rubrik: Grafik und Font · Grafische Effekte | VB-Versionen: VB4, VB5, VB6 | 18.02.01 |
Grafik-Animation (Tunnel-Effekt) Dieser Tipp zeigt Ihnen, wie Sie einen netten 3D-Effekt (Grafikanimation) für ein Splash-Screen realisieren können. | ||
Autor: Heinz Prelle | Bewertung: | Views: 19.923 |
www.visual-basic5.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Unser heutiger Tipp zeigt Ihnen, wie Sie einen netten 3D-Effekt (Grafikanimation) für ein Splash-Screen realisieren können. Am besten Sie probieren den Tipp einfach einmal aus und lassen sich überraschen!
' Grafikanimation: 3D-Effekt für Splash-Screen ' Parameterbeschreibung: ' ' objForm: Form-Objekt ' iRed: Rot-Anteil ' iGreen: Grün-Anteil ' iBlue: Blau-Anteil Public Sub f3DEffect(objForm As Form, iRed As Integer, _ iGreen As Integer, iBlue As Integer) Dim I As Integer With objForm objForm.Scale (0, 100)-(100, 0) .BackColor = vbBlack .ForeColor = vbBlack For I = 0 To 100 .ForeColor = RGB(95, 95, 95) objForm.Line (I, 0)-(100 - I, 100) .ForeColor = RGB(iRed, iGreen, iBlue) objForm.Line (0, I)-(100, 100 - I) vActTime = Timer Do DoEvents Loop Until Timer - vActTime > 0.000000000000001 Next I For I= 10 To 50 objForm.Line (50 - I, 50 + I)-(50 + I, 50 - I), , BF vActTime = Timer Do DoEvents Loop Until Timer - vActTime > 0.000000000000001 Next I End With End Sub
Beispiel für den Aufruf:
Private Sub Form_Load() Me.Show f3DEffect Me, 0, 0, 255 End Sub