Guten Tag liebe Community
In diesem Tutorial zeige ich euch wie man mit Visual Basic
einen Splash Screen wie man es von Photoshoo, Cinema4D und anderen großen
Programmen kennt.
Was wir brauchen:
2x Formen mit dem Form1 und Form 2
Für die Form 1 brauchen wir:
-1 Timer (Timer1)
-1 Picturebox (Picturebox1)
Für die Form 2
- 1 CommandButton (Command1)
Form1:
Code
Private Sub Form_Load()
Bilddatei = App.Path
If Right(Bilddatei, 1) <> "\" Then _
Bilddatei = Bilddatei & "\"
Bilddatei = Bilddatei & "splash.jpg"
Picture1.Picture = LoadPicture(Bilddatei)
With Me
.Height = Picture1.Height
.Width = Picture1.Width
.MousePointer = 11
End With
Timer1.Enabled = False
'Andere Aktionen (Daten laden)
Timer1.Interval = 2000
Timer1.Enabled = True
End Sub[B][FONT=Verdana][size=10][COLOR=#ff0000]
[/COLOR][/SIZE][/FONT][/B]
Alles anzeigen
Form 2
Natürlich müsst ihr euch noch ein bild machen das angezeigt werden soll.
dazu könnt ihr jedes beliebigie nehmen.
Ich hoffe das hat einigen geholfen.
Bis zum nächsten Tutorial.
Mfg
G.A.M.E