Tipp 0040 SplashScreen (Begrüßungsfenster)
Autor/Einsender:
Datum:
  Marcus Schmitt
24.04.2001
Entwicklungsumgebung:   VB 5
Bei allen modernen Windows-Programmen wird in der Regel heute ein Begrüßungsbildschirm eingeblendet. Wie dies mit ganz einfachen Mitteln unter Zuhilfenahme eines Timers zu realisieren ist, zeigt dieses Beispiel.
 
Option Explicit

Private Sub Form_Load()
  Dim bilddatei As String

  bilddatei = App.Path
  If right(bilddatei, 1) <> "\" Then bilddatei = bilddatei & "\"
  bilddatei = bilddatei & "splash.jpg"

  Picture1.Picture = LoadPicture(bilddatei)

  Me.Height = Picture1.Height
  Me.Width = Picture1.Width

  Me.MousePointer = 11

  Timer1.Enabled = False
  Timer1.Interval = 2500
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
   Me.MousePointer = 1
   frmMain.Show
   Unload Me
End Sub
 
Weitere Links zum Thema
AboutBox-Demo
Fenster immer sichtbar
Transparente Fenster
Transparente Fenster (ab Windows 2000)

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (18,5 kB) Downloads bisher: [ 3259 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 28. August 2011