Newsgroup: it.comp.lang.visual-basic
Titolo: Potreste aiutarmi, per favore ?

Avrei due domande da porvi:
1) Come si pùo cambiare sfondo al desktop da VB ?
Esiste un api che cerca l'IMMAGINE CHE IO VOGLIO
e la mette come sfondo ? Esempio: nella cartella
c:\windows\privateimages io metto le immagini 1.BMP
2.BMP e 3.BMP e (magari con FOR......NEXT) è possibile,
cliccando ripetutamente su un pulsante, fare in modo che lo sfondo cambi ?
Se c'è un altro modo, va benissimo lo stesso.
2) Come si può, da VB, svuotere il Cestino ? C'è un API.......un OCX.....qualcosa ?
Tutto qui.
Vi ringrazio sin d'ora per l'interessamento. Questo Newsgroup è davvero utile !!!!
Buon Anno 2000 a tutti !
Ciao !
Lorenzo
-------------------------------------------------------------------------------------
Rispondetemi anche sul newsgroup, se volete, ma
per favore mandate il vostro messaggio a: 
k...@europe.com
Basta fare "Rispondi a tutti" ! Semplice, no ?  :-)
-------------------------------------------------------------------------------------

 2) Come si può, da VB, svuotere il Cestino ? C'è un API.......un
OCX.....qualcosa ?
scelgo la busta n. 1.
il codice qui sotto non e' il massimo della pulizia, ma ci dovresti poter
ragionare.
ovviamente se vuoi ciclarlo, gestirlo via cmd/menu, ecc., devi adattare il
nucleo come meglio credi.
spero di non dimenticarmi dei pezzi, ce n'e' un po'...
'in un bas
Public Const REG_SZ = 1
Public Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_UPDATEINIFILE = &H1
Public Const SPIF_SENDWININICHANGE = &H2
Public Const HKEY_CURRENT_USER = &H80000001
Declare Function RegOpenKey Lib "advapi32" Alias "RegOpenKeyA" _
    (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As
Long
Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" _
    (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As
Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As
Long
Declare Function RegCloseKey Lib "advapi32" _
    (ByVal hKey As Long) As Long
Declare Function SystemParametersInfo& Lib "user32" Alias
"SystemParametersInfoA" _
     (ByVal uAction&, ByVal uParam&, ByVal lpvParam As Any, ByVal fuWinIni&)
'in un frm o dove credi
'quello che qui chiamo tilevalue puo' essere "0" o "1".
'prova a mettere in tmpname il nome di un'altra bitmap
[sub che applica il wp]
        Dim rtn As Long, KeyName As String
        Dim hKey As Long, KeyValueLength As Long
        KeyName = "desktop\TileWallpaper"
        KeyValueLength = Len(TileValue) + 1
        rtn = RegOpenKey(HKEY_CURRENT_USER, "Control Panel\desktop", hKey)
        rtn = RegSetValueEx(hKey, "TileWallpaper", 0, REG_SZ, TileValue,
KeyValueLength)
        rtn = RegCloseKey(hKey)
rtn = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, [MyPath\MyBmp.bmp], _
            SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
[end sub]
se ci sono casini dimmi qc.
se vuoi vedere il codice in azione (l'ho appena preso da li') --> "v", sul
mio sito.
ciao, pal
--
andrea palazzi
xday at libero dot it
free sw - 
http://www.comune.modena.it/cittadini/apal/html/

 Esiste un api che cerca l'IMMAGINE CHE IO VOGLIO
eccetera..........eccetera..........
GRAZIEEEEEEEEEEEEEEEE !!!!!!!!! SEI UN MAGOOOOOOOOOOOOOOO
!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ti ringrazio davvero ! Mi serviva !!!!!!!!!
Ciao !
Lorenzo