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

 

  Dicas

  Visual Basic    (Imagem/Som/Multimídia)

Título da Dica:  Altera o papel de parede do windows.
Postada em 22/8/2003 por Tekki            
'Delcare
Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
      ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
      Public Const SPI_SETDESKWALLPAPER = 20

Use o código.

Dim lngSuccess As Long
Dim strBitmapImage As String

strBitmapImage = "c:\MeuPapelDeParede.bmp"
      lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage,
      0)
 


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