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:     [ Jetzt bewerten ]	Views:  9.907
www.visual-basic5.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 55 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Adventsangebot 2008 Während der Adventszeit, Woche für Woche interessante Festtagsangebote Diese Woche (01.12.08 bis 07.12.08): sevDataGrid 2.0 für nur 99,- EUR sevOutBar 3.0 für nur 29,- EUR - Werbung -Greifen Sie jetzt zu!

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