![]() |
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
|
|
|
|
|
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 ]
|
|
|