![]() |
|
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 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 