USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Windows)

Título da Dica:  Mudando o Papel de Parede pelo VB
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
'Coloque isto num modulo

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 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"
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página