Code-Beispiel

Eine Art Splash - Window

Lizenz:	Erster Autor:	Letzte Bearbeitung:
LGPL	Volta	03.03.2013

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

'dieser Programmteil erstellt ein Testbild

'wenn kein passendes BMP-Bild vorhanden ist.

'ScreenRes 100, 100, 32

''Image mit Transparentfarbe erstellen

'Dim As Any Ptr a= ImageCreate(250,250,&hff00ff)

'Circle a,(125,125),100,&hff0000,,,,F 'Kreis einzeichnen

'BSave "DeinSplash.bmp", a 'als BMP-Bild speichern



'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



'ein Splashwindow ohne Transparenz

ScreenRes breit, hoch, 32,,8 Or &h20 '&h20 = GFX_ALWAYS_ON_TOP

BLoad dateiname, 0

Sleep 5000, 1             '5 Sekunden lang anzeigen



'ein Splashwindow mit Transparenz

ScreenRes breit, hoch, 32,,&h10 Or &h20

BLoad dateiname, 0

Sleep 5000, 1             '5 Sekunden lang anzeigen

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 03.03.2013 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.