Code-Beispiel

Eine Art Splash - Window

Lizenz:	Erster Autor:	Letzte Bearbeitung:
LGPL	Volta	28.11.2011

Als Splash wird ein Logo (meist rahmenloses Window) bezeichnet, das vor dem Start einer Anwendung erscheint.
Mit einfachen FB-Anweisungen kann eine Art Splash erscheinen:

'FB_Splash.bas ------- by Volta

Dim As Integer breit, hoch, ff

Dim As String dateiname = "DeinSplash.bmp"

ff = Freefile

Open dateiname For Binary As #ff

  Get #ff, 19, breit 'Breite aus der BMP-Datei holen

  Get #ff, 23, hoch  'Höhe aus der BMP-Datei holen

Close #ff

Screenres breit, hoch, 32,,8 'eine Art Splash-Window

Bload dateiname, 0

Sleep 5000, 1             '5 Sekunden lang anzeigen



Cls

Screen 18,32

Print "verdisch.."

Sleep

End 'FB_Splash.bas ------- by Volta

Als transparenter Splashscreen:

'FB_Splash.bas ------- by Volta

#Include "windows.bi"

Dim As Integer breit, hoch, ff, iAlpha

Dim As String dateiname = "DeinSplash.bmp"

ff = Freefile

Open dateiname For Binary As #ff

  Get #ff, 19, breit 'Breite aus der BMP-Datei holen

  Get #ff, 23, hoch  'Höhe aus der BMP-Datei holen

Close #ff

ScreenRes breit, hoch, 32,,&h10 'ein Splash-Window

ScreenControl 2, ff  'Fensterhandle

iAlpha=120

SetLayeredWindowAttributes(Cast(HWND,ff), 0, iAlpha, LWA_ALPHA)

BLoad dateiname, 0

Sleep 5000, 1             '5 Sekunden lang anzeigen



Screen 18,32

Print "verdisch.."

Sleep 3000

Viel Spass damit
Volta

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 18.06.2007 von Volta angelegt.
Die aktuellste Version wurde am 28.11.2011 von Volta gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.