Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Sfondo desktop

Ho scaricato la libreria Intel per la gestione dei JPG e BMP, ma non
riesco ad inserire un riferimento in VB, mi dà errore "Impossibile
inserire la libreria", anche con COM Explorer cerco di registrare la
dll come DLL Server ma mi dà errore.
Stranamente, però, il controllo Nm di GbC funziona. Come mai?
E ora vengo alla domanda principale: i wallpaper possono essere
centrati, affiancati o estesi.
Con la chiamata API SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,
sFilePath, 0) imposto il wallpaper ma non posso decidere quale dei tre
stili utilizzare (in pratica, usa quella attiva).
Come modificare lo stile? Immagino sia uno degli '0', ho provato con
valori 1 2 3 ma non funziona...
--
Brian T
Risposte via email a ::
#hitech@#
virgilio.it#

 #hitech@#
virgilio.it#
quello sotto e codice vecchio, e non e' molto bello, ma lo sfondo lo
applicavo cosi' e di solito funzionava. il valore di tile viene dato dalla
seconda sub.
ciao, a.
Public Sub Apply()
    On Error GoTo errman
    If MyFile = "" Then Exit Sub
    With frmV
        .GvbWP.Thumbnail = 0
        .GvbWP.Zoom = 1
        .GvbWP.FileName = MyFile
        .Caption = "V :: " & FileData(.File1.FileName)
        SavePicture .GvbWP.Picture, GetWinDir & "v_wp.bmp"
        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)
        Dim TmpName As String
        TmpName = GetWinDir & "v_wp.bmp"
        rtn = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, TmpName, _
            SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    End With
    Exit Sub
errman: MsgBox Error
End Sub
Public Sub SwitchTile()
    On Error GoTo errman
    bTile = Not bTile
    If bTile Then
        TileValue = "1"
        frmV.mnuSettingsTileWP.Checked = True
        frmV.TB.Buttons("tile").Value = tbrPressed
    Else
        TileValue = "0"
        frmV.mnuSettingsTileWP.Checked = False
        frmV.TB.Buttons("tile").Value = tbrUnpressed
    End If
    Exit Sub
errman: MsgBox Error
End Sub

Grazie per l'aiuto, pal, ma avevo appena controllato proprio la
sottochiave desktop di CURRENT_USER:
1. TileWallpaper va a 0 per sfondi Centrati e Estesi e (ovviamente) a
1 per Affiancati
2. WallpaperStyle va a 2 per sfondi Estesi e a 0 per gli altri.
Grazie mille, comunque.
Ho esaminato il progetto di esempio della libreria Intel jpeg. Io
vorrei però ESPORTARE in .BMP una .JPEG (di cui grazie alla dll Intel
so le dimensioni).


->
DoS :: dENIAL OF sTABILITY
dos...@hotmail.com

 so le dimensioni).
grazie alla politica di ms, non ti dovrebbe servire nient'altro che un
picbox standard di vb, visto che legge jpeg ma salva bmp.
quanto alle dimensioni dovrebbe bastare caricare l'immagine in un image con
bordo = 0 e stretch = false e dividere h e l per i twips x e y. quello che
l'image non vede credo sia il numero di colori.
ciao, a.

 ha scritto:

->


 dalla mia memoria....
:)
il sabato pom il sistema si rilancia e rom/ram si resettano ?
hai c:\inutil\struscio.bat in autoexec ?
di solito funzia...