[ VRKY @ 07.11.2004. 15:27 ] @
Pozdrav
Potrebna mi je pomoć oko mjenjaja pozadine Desktopa (Beckground). Neke stvari sam pokušavao ali bez većeg uspijeha, stoga mi treba vaša pomoć.
P:S Ako iam već slična tema oprostite jer nisam tražio (malo vremena)
[ Marko_L @ 07.11.2004. 17:05 ] @
Misliš na promenu boje desktopa ili ubacivanje wallpapera ? Ako je ovo drugo, probaj ovaj kod koji sam iskopao negde, ali ne znam da li šljaka pošto ga nisam isprobao, nikad mi nije zatrebalo.
Code:
Option Explicit
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
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = 1
Private Sub Command1_Click()
Dim upd As Integer
    If Check1.Value = vbChecked Then
        upd = SPIF_UPDATEINIFILE
    Else
        upd = 0
    End If
    SystemParametersInfo SPI_SETDESKWALLPAPER, _
        0, [putanja do slike], upd
End Sub

Ovaj check služi da ako je čekiran apdejtuješ registry.

[Ovu poruku je menjao mladenovicz dana 07.11.2004. u 20:17 GMT+1]
[ VRKY @ 07.11.2004. 17:53 ] @
Ne radi nešto... Riječ je o tome što ja stavim putanju do fajla i sve se pokrene bez greške ali nije wallpaper taj koji sam zadao nego samo plava boja. Evo kod (Bez deklaracije i ostalog...):

Code:

Private Sub Command1_Click()
Dim upd As Integer
upd = SPIF_UPDATEINIFILE
SystemParametersInfo SPI_SETDESKWALLPAPER, _
0, "C:\3d.jpg", upd
End Sub
[ Marko_L @ 07.11.2004. 18:09 ] @
Pa rekoh da nisam probao :), nego probao sam sad preko googla
http://www.google.com/search?h...1%80%D0%B0%D0%B6%D0%B8&lr=
i izbacuje dosta strana sa primerima promene backgrounda desktopa iz vb-a, probaj nešto od toga.Elem, na prvi pogled čini mi se da bi kod na ovoj strani trebalo da završi posao.Probaj ako imaš vremena.
http://www.ilook.fsnet.co.uk/vb/vbpaper.htm
A ako neće onda vidi šta možeš da nađeš preko googla, ili čekaj da se pojavi neko ko je radio već to što tebi treba, kao što rekoh meni nikad nije trebalo.

[Ovu poruku je menjao Marko_L dana 07.11.2004. u 19:13 GMT+1]
[ VRKY @ 07.11.2004. 18:11 ] @
Hvala sad ću pogledat, pa ću javit....
[ VRKY @ 07.11.2004. 18:22 ] @
Opet isti rezultat sa kojim god primjerom probao... Može li to što imati veze što meni treba .jpg ekstenzija (isprobavao sam sa tom ekstenzijom) a u svakom primjeru je .bmp
[ Marko_L @ 07.11.2004. 18:27 ] @
Izgleda.Sad sam probao i radi sa bmp, a sa jpg neće.Al dobro nije to neki problem, konvertuj taj jpg što imaš u bmp.
[ VRKY @ 07.11.2004. 19:57 ] @
Ma lako je prebacit u bmp format ali je meni ajmo reć potreban jpg format... Možda Željko bude znao neki primjer koji radi s jpg-om. Svakako hvala.
[ mladenovicz @ 08.11.2004. 09:45 ] @
SystemParametersInfo radi samo sa BMPovima

Code:

Private Sub Command1_Click()
    Call SavePicture(LoadPicture("c:\zeljko.jpg"), "c:\zeljko.bmp")
    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\zeljko.bmp", 0)
End Sub

[ Shadowed @ 08.11.2004. 11:06 ] @
Mozes postaviti i .jpg editovanjem Registry-a ali nece se odmah prikazati (do narednog refresh-a).
[ VRKY @ 08.11.2004. 12:50 ] @
Možeš li reći o kojem je ključu riječ?
[ Shadowed @ 08.11.2004. 13:31 ] @
Sad, ne mogu bas da se setim tacno ali trebalo bi da bude u HKCU/ControlPanel/Desktop, HKCU/ControlPanel/Desktop/WindowsMetrics ili mozda imedju HKCU i ControlPanel ima Software... kazem, ne mogu da se setim ali imas hint pa potrazi...
[ VRKY @ 08.11.2004. 13:32 ] @
Hvala , ovo što si ti Željko postovao radi...
[ VRKY @ 08.11.2004. 14:12 ] @
Poz... Sad sam još dodao kod za download... Znači sad bi kad se program pokrene trebao skinuti sliku na C disk i onda kad se pritisne ComandBut..1 stavit ju za Beckground
Ali nešto ne štima pri dovnlodanju... Ne mogu naći grešku:

Code:

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
Private Const SPI_SETDESKWALLPAPER = 20
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, _
LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
Call SavePicture(LoadPicture("c:\3d.jpg"), "c:\3d.bmp")
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\3d.bmp", 0)
End Sub
Private Sub Form_Load()
ret = DownloadFile("http://img119.exs.cx/img119/187/3d.jpg", "C:\3d.jpg")
End Sub


[Ovu poruku je menjao mladenovicz dana 27.03.2005. u 15:08 GMT+1]
[ Shadowed @ 09.11.2004. 17:43 ] @
Da naravno da radi kad konvertujes sliku u .bmp pa je postavis (zapravo ne radi postavljanje .jpg-a).
Stos je u tome sto i Windows kada kroz Display dijalog postavis wallpaper konvertuje isti u .bmp pa ga postavi samo zapisuje i putanju do .jpg-a pa nju prikazuje tako da ti nista ne kontas dok ne probunaris malo.
[ Toxic Flame @ 10.11.2004. 09:29 ] @
moze li se updateovati ceo registri? ako ne ima li koda za updateovanje bilo kog kljuca?
[ Milos Dedijer @ 10.11.2004. 12:51 ] @
Moze i ima...
Pitaj krckoorascic
[ VRKY @ 13.11.2004. 21:51 ] @
@Toxic Flame
Jesi li pogriješio temu?

I da li se može uopće downlodati .jpg fajl sa neta, kolko sam ja vidio ne, možda nešto krivo radim...
[ Shadowed @ 14.11.2004. 14:01 ] @
Pa ako ne moze, sta mislis otkud sve one slike koje vidis po web-u.

Naravno da moze. Mislim da na forumu vec imas neki primer a mozes koristiti i WinSock kontrolu (doduse moras znati i malo http-a, al' sta sad). Trebalo bi da se sa Microsoft Internet Transfer kontrolom moze jednostavnije izvesti ali sam je samo jednom ili dva puta davno koristio tako da...