Como faço para aparti de um botão fazer trocar o

[thim2005 0]

Galera eu queria saber como faço para mudar um papel de parede aparti de um botão. Só que eu queria pra só um papel de parede.Exemplo:o nome do papel de parede que eu queria pra quando eu clicar no botão é "Wallpaper2_1"então eu queria que na hora que eu clicasse no botão ele mudasse o papel de parede para esse que, cujo o nome é "Wallpaper2_1" se vcs poderem me mandar esse código.Desde já eu agradeço pra quem poder me ajuda!!!!

[Luizgrs 0]

Dá uma olhada nesse código retirado do site www.silicio.com.br:

Mudando o Papel de Parede pelo VB'Coloque isto num moduloPrivate Declare Function SystemParametersInfo Lib _        "User32" Alias "SystemParametersInfoA" _        (ByVal uAction As Long, ByVal uParam As _        Long, ByVal lpvParam As String, ByVal _        fuWinIni As Long) As LongPublic Const SPIF_UPDATEINIFILE As Long = &H1Public Const SPI_SETDESKWALLPAPER As Long = 20Public Const SPIF_SENDWININICHANGE As Long = &H2Public Sub SetWallpaper(ByVal sArquivo As String)  Dim RT as long  RT = SystemParametersInfo(SPI_SETDESKWALLPAPER, _       0&, sArquivo, SPIF_UPDATEINIFILE Or _       SPIF_SENDWININICHANGE)End Sub'P/ chamar:Call SetWallpaper NomeDoArquivo'ATENÇÃO!!! Passe o nome do arquivo com o caminho'completo!'Exemplo:Call SetWallpaper "C:\Windows\Desenho.BMP"

[thim2005 0]

Eu fiz tudo sertinho, mas teve um problema o call estava com erro, ele estava sublinhado pq?

[Luizgrs 0]

hmm...Passa aí como você fez

[thim2005 0]

Private Declare Function SystemParametersInfo Lib _           "User32" Alias "SystemParametersInfoA" _           (ByVal uAction As Long, ByVal uParam As _           Long, ByVal lpvParam As String, ByVal _           fuWinIni As Long) As Long    Public Const SPIF_UPDATEINIFILE As Long = &H1    Public Const SPI_SETDESKWALLPAPER As Long = 20    Public Const SPIF_SENDWININICHANGE As Long = &H2____________________________________________________    Public Sub SetWallpaper_click(ByVal sArquivo As String)        Dim ReT As Long        ReT = SystemParametersInfo(SPI_SETDESKWALLPAPER, _             0&, sArquivo, SPIF_UPDATEINIFILE Or _             SPIF_SENDWININICHANGE)    End Sub____________________________________________________   CALL SetWallpaper("C:\Windows\areia.BMP")

[Luizgrs 0]

No Public Sub SetWallpaper você adiciou um '_click' por isso está dando errado, você está chamando uma função que não existe no call

[thim2005 0]

De novo deu erro, por favor coloque aí como tem que ser!!!!

[Luizgrs 0]

Private Declare Function SystemParametersInfo Lib _          "User32" Alias "SystemParametersInfoA" _          (ByVal uAction As Long, ByVal uParam As _          Long, ByVal lpvParam As String, ByVal _          fuWinIni As Long) As Long   Public Const SPIF_UPDATEINIFILE As Long = &H1   Public Const SPI_SETDESKWALLPAPER As Long = 20   Public Const SPIF_SENDWININICHANGE As Long = &H2____________________________________________________   Public Sub SetWallpaper(ByVal sArquivo As String)       Dim ReT As Long       ReT = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, sArquivo, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)   End Sub____________________________________________________  CALL SetWallpaper("C:\Windows\areia.BMP")

[thim2005 0]

O ERRO AINDA CONTINUA, NÃO ESTÁ DANDO CERTO. AGORA ESTA SUBLINHADO O CALL E SETWALLPAPER....E O QUE EU FAÇO AGORA?????

[Luizgrs 0]

Você está tirando as "linhas" e colocando esse call setwallpaper em algum evento?

[thim2005 0]

Coloquei do geito que você colocou.

[luiz humberto 0]

Dê uma olhada nestes exemplos:

Altera papel de parede

Altera papel de parede

[thim2005 0]

esta dando um erro dizendo que uma dll naum foi encontrada...

[thim2005 0]

me ajudem..................

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[thim2005 0]

ninguém ajuda...

[Graymalkin 0]

A última linha do código...

 

CALL SetWallpaper("C:\Windows\areia.BMP")

... tem que estar em algum evento, como o Click de um botão, por exemplo. Coloque um botão no form e dê um duplo-clique sobre o mesmo e ali adicione esse código.

 

Abraços,

 

Graymalkin