Im vorigen Tipp haben wir Ihnen gezeigt, wie man das Desktop-Hintergrundbild aus einer VB-Anwendung heraus ändern kann. Unser heutiger Tipp zeigt, wie Sie das Desktop-Hintergrundbild zeitgesteuert ändern können. Hierbei werden alle Bilder eines bestimmten Dateiordners berücksichtigt. Das Zeitintervall lässt sich frei festlegen. ' zunächst die benötigten API-Funktionen Private Declare Function SystemParametersInfo Lib "user32" _ Alias "SystemParametersInfoA" ( _ ByVal uAction As Long, _ ByVal uParam As Long, _ ByVal lpvParam As Any, _ ByVal fuWinIni As Long) As Long Private Const SPIF_SENDWININICHANGE = &H2 Private Const SPI_SETDESKWALLPAPER = 20 Private Const SPIF_UPDATEINIFILE = &H1 ' Bilddatei (sFilename) muß BITMAP enthalten Public Sub SetDesktopWallpaper(ByVal sFilename As String) SystemParametersInfo SPI_SETDESKWALLPAPER, 0, sFileName, _ SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE End Sub ' alle BMP-Dateien eines best. Verzeichnisses ermitteln Private Function ReadGrafiken(ByVal sVerz As String, _ ByRef sFile() As String) As Integer Dim sName As String Dim intZaehler As Integer If Right$(sVerz,1) <> "\" Then sVerz = sVerz + "\" sName = Dir$(sVerz & "*.bmp") While sName <> "" ReDim Preserve sFile(intZaehler) sFile(intZaehler) = sVerz & sName intZaehler = intZaehler + 1 sName = Dir$() Wend ReadGrafiken = intZaehler End Function ' Haupt-Anwendung Dim sFile() As String Dim sCount As Integer Private Sub Form_Load() Dim Pfad As String ' Grafiken ermitteln Pfad = Command$ If Pfad = "" Then Pfad = App.Path sCount = ReadGrafiken(Pfad, sFile()) ' Zeitintervall: 5 Sekunden Timer1.Interval = 5000 Timer1.Enabled = (sCount>0) End Sub ' Bild im festgelegten Zeitintervall zufällig ' ermitteln und als Desktop-Hintergrund setzen Private Sub Timer1_Timer() Dim bIdx As Integer Randomize -Timer bIdx = Int(sCount * RND + 1) SetDesktopWallpaper sFile(bIdx) End Sub Dieser Tipp wurde bereits 21.598 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. |
||||||||||||||||
Microsoft, Windows 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. |