Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Tutorial

Bildschirmschoner Erweiterungen

von RedakteurVoltaSeite 1 von 4

Screensaver Erweiterungen

Nachdem die Grundlagen der Screensaver hier in einem Tutorial von Mao gut erklärt wurden, habe ich sie um einige Funktionen erweitern und etwas komfortabler gemacht.

Übersicht:
1. Testmodus
2. Abbruch bei Mausbewegung
_ 2.1. Mausabfrage
_ 2.2. ScreenEvent ab FB 0.17b
3. Kleine bunte Animation

1. Testmodus

Ohne einen Aufrufparameter lässt sich der Screensaver (als EXE kompiliert) nicht starten, das wirst du sicher selbst schon gemerkt haben.

...
' Kein Parameter?
If Command(1) = "" Then
  End
End If
...

Dieses Programmteil beendet den Screensaver wenn kein Parameter übergeben wird.
Fügen wir hier eine Abfrage ein, ob ein Test gestartet werden soll.

...
' Kein Parameter?
If Command(1) = "" Then
  If MessageBox(0, "Sreensaver testen?", " ", MB_ICONQUESTION Or MB_YESNO) = IDYES Then
    sleep 500 'kleine Verzögerung
    ShowScreensaver
  End if
  End
End If
...

Diese eingefügten Zeilen bewirken, dass ein Abfragefenster erscheint in dem du den Testmodus mit "Ja" starten kannst oder mit "Nein" abbrichst.

Es geht aber noch wesentlich einfacher wenn der Screensaver als SCR kompiliert oder umbenannt wurde.
Dann wird bei einem Aufruf des Screensavers im Kontextmenü (rechte Maustaste gedrückt) mit 'Testen' der Parameter 'S' übergeben.

...
Select Case Param
Case "s","s" '<- "s" hinzufügen
  ShowScreensaver
Case "c"
  ConfigureScreensaver
End Select
End
...

Mit dieser einfachen Änderung geht der Test dann..

 

Gehe zu Seite Gehe zu Seite  1  2  3  4  
Zusätzliche Informationen und Funktionen
  • Das Tutorial wurde am 20.06.2007 von RedakteurVolta angelegt.
  • Die aktuellste Version wurde am 15.08.2007 von RedakteurVolta gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen