使用VB.NET设置墙纸时出现黑屏

问题描述

我正在使用以下代码通过编程在VB.NET中设置我的桌面墙纸

    Private Const SPI_SETDESKWALLPAPER As Integer = &H14
    Private Const SPIF_UPDATEINIFILE As Integer = &H1
    Private Const SPIF_SENDWININICHANGE As Integer = &H2
    Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer,ByVal uParam As Integer,ByVal lpvParam As String,ByVal fuWinIni As Integer) As Integer


    Sub Main()

        SystemParametersInfo(SPI_SETDESKWALLPAPER,"result.jpg",SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

    End Sub

之前运行良好。但是现在当我运行它时，它会将我的桌面设置为黑色，而不是设置图像，因此我无法找出原因。有谁知道为什么会这样吗？这种方法有依赖性吗？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）