Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Tutorial
Bildschirmschoner Erweiterungen
von  Volta | Seite 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 | Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|||||||
Bearbeiten
Versionen