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.513 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. |
Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |