Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Promjena Beckgrounda

[es] :: Visual Basic 6 :: Promjena Beckgrounda

[ Pregleda: 2476 | Odgovora: 18 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.



+8 Profil

icon Promjena Beckgrounda07.11.2004. u 15:27 - pre 236 meseci
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)
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Promjena Beckgrounda07.11.2004. u 17:05 - pre 236 meseci
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]
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.



+8 Profil

icon Re: Promjena Beckgrounda07.11.2004. u 17:53 - pre 236 meseci
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
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Promjena Beckgrounda07.11.2004. u 18:09 - pre 236 meseci
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]
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.



+8 Profil

icon Re: Promjena Beckgrounda07.11.2004. u 18:11 - pre 236 meseci
Hvala sad ću pogledat, pa ću javit....
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.



+8 Profil

icon Re: Promjena Beckgrounda07.11.2004. u 18:22 - pre 236 meseci
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
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Promjena Beckgrounda07.11.2004. u 18:27 - pre 236 meseci
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.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.



+8 Profil

icon Re: Promjena Beckgrounda07.11.2004. u 19:57 - pre 236 meseci
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.
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Promjena Beckgrounda08.11.2004. u 09:45 - pre 236 meseci
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


 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Promjena Beckgrounda08.11.2004. u 11:06 - pre 236 meseci
Mozes postaviti i .jpg editovanjem Registry-a ali nece se odmah prikazati (do narednog refresh-a).
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.



+8 Profil

icon Re: Promjena Beckgrounda08.11.2004. u 12:50 - pre 236 meseci
Možeš li reći o kojem je ključu riječ?
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Promjena Beckgrounda08.11.2004. u 13:31 - pre 236 meseci
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...
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.



+8 Profil

icon Re: Promjena Beckgrounda08.11.2004. u 13:32 - pre 236 meseci
Hvala , ovo što si ti Željko postovao radi...
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.



+8 Profil

icon Re: Promjena Beckgrounda08.11.2004. u 14:12 - pre 236 meseci
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]
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Promjena Beckgrounda09.11.2004. u 17:43 - pre 235 meseci
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.
 
Odgovor na temu

Toxic Flame
Aljosha Sologub
Beograd

Član broj: 32704
Poruke: 288
*.etf.bg.ac.yu.



+1 Profil

icon Re: Promjena Beckgrounda10.11.2004. u 09:29 - pre 235 meseci
moze li se updateovati ceo registri? ako ne ima li koda za updateovanje bilo kog kljuca?
_-=amateur=-_
 
Odgovor na temu

Milos Dedijer
SQA Engineer
Čačak/Beograd

Član broj: 25147
Poruke: 1159
*.ds.co.yu.



+10 Profil

icon Re: Promjena Beckgrounda10.11.2004. u 12:51 - pre 235 meseci
Moze i ima...
Pitaj krckoorascic
Make me a sandwich!
What? Make it yourself.
sudo Make me a sandwich!
Okay!




[url=http://blog.b92.net/user_stuff/uplo
ad/600/luter.1600.jpg] Martin Luter?
[/url]
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.



+8 Profil

icon Re: Promjena Beckgrounda13.11.2004. u 21:51 - pre 235 meseci
@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...
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Promjena Beckgrounda14.11.2004. u 14:01 - pre 235 meseci
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...
 
Odgovor na temu

[es] :: Visual Basic 6 :: Promjena Beckgrounda

[ Pregleda: 2476 | Odgovora: 18 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.