Ich versuche momentan mit meinem programm den desktop hintergrund zu ändern. leider funktioniert das nicht
es kommt keine fehlermeldung,sondern es passiert einfach nichts
VB.NET-Quellcode
- Dim img As Bitmap
- 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
- Private Const SPI_SETDESKWALLPAPER = 20
- Private Const SPIF_SENDWININICHANGE = &H2
- Private Const SPIF_UPDATEINIFILE = &H1
VB.NET-Quellcode
- img = Bitmap.FromFile(ListView1.SelectedItems(0).SubItems(1).Text)
- If settings.GroupBox2.Enabled = True Then
- Dim bmp1 As Bitmap = New Bitmap(img, settings.TextBox1.Text, settings.TextBox2.Text)
- bmp1.Save(My.Computer.FileSystem.SpecialDirectories.Temp & "\Backup", System.Drawing.Imaging.ImageFormat.Png)
- SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, My.Computer.FileSystem.SpecialDirectories.Temp & "\Backup.png)", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
- Else
- End If
es kommt keine fehlermeldung,sondern es passiert einfach nichts