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 Dieser Tipp wurde bereits 19.921 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |