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 18.796 mal aufgerufen.
Anzeige
![]() ![]() ![]() (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. |
Neu! sevEingabe 3.0 ![]() Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Tipp des Monats ![]() Dieter Otter PopUp-Menü wird nicht angezeigt :-( In diesem Tipp verraten wir Ihnen, wie Sie Probleme mit PopUp-Menüs umgehen können, wenn diese unter bestimmten Umständen einfach nicht angezeigt werden. TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |