Hintergrund Wechseln

    • VB.NET

    Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Beep!.

      Hintergrund Wechseln

      Ich bin total genervt wenn ich immer den selben Hintergrund habe deswegen hab ich mir schnell dieses kleine Programm geschrieben. Ich weiß es ist nichts großartiges oder komplexes aber doch gans lustig. :thumbsup:


      VB.NET-Quellcode

      1. Public Class Form1
      3. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal pncMetrics As String, ByVal fuWinIni As Integer) As Integer
      4. Private Const SPI_SETDESKWALLPAPER = 20
      5. Private Const SPIF_UPDATEINIFILE = &H1
      6. Private Const SPIF_SENDWININICHANGE = &H2
      8. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      10. Dim generator As New Random()
      11. Dim a As Integer = generator.Next(1, 20)
      14. OpenFileDialog1.FileName = "C:\Dokumente und Einstellungen\DeinName\Eigene Dateien\Eigene Bilder\Desktophintergründe\" + a.ToString + ".bmp"
      17. If OpenFileDialog1.FileName > "" Then
      18. SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
      19. OpenFileDialog1.FileName, SPIF_UPDATEINIFILE Or _
      20. SPIF_SENDWININICHANGE)
      21. End If
      22. Me.Close()
      23. End Sub
      26. End Class


      Also einfach einen Ordner anlegen, mit Bildern, die die durchnummeriert und im .bmp Vormat sind. Dann den Pfad angeben und die anzahl der Bilder im Ordner +1 da hinschreiben wo bei mir die 20 steht.

      Ps.: Ich hab mir ne verknüpfung in den Autostart gemacht damit ich immer einen anderen zufallshintergrund habe. ;)

    Facebook
    Telefonspende