Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
23.11.2002. ikone u menijima
28.07.2003. Msgbox problem
28.07.2003. Kako importovati resurse u DLL?
16.02.2004. Pravljenje file managera - ikonice fajlova
06.04.2004. Ikone na Formi?!?
24.05.2004. Kako da sklonim IKONE koje sam zakacio ..
27.08.2004. Velike ikone u exploreru pod XP-om

Navigacija

Brisanje liste

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

Ikone i jos nesto? Pomoc molim!

[es] :: Visual Basic 6 :: Ikone i jos nesto? Pomoc molim!

[ Pregleda: 3411 | Odgovora: 16 ] > FB > Twit

Autor

Pr[o_O]F
Tamna strana mjeseca ;)

Član broj: 30368
Poruke: 155
*.as3.sr.bih.net.ba.

Profil

Ikone i jos nesto? Pomoc molim!

^{01.09.2004. u 21:00 - pre 239 meseci}

1) koji je kod za izvlacenje ikona iz exe fajlova?? Naime pravim mali toolbar i potrebno mi je to? PS da li je to ikako moguće??

2)kako bi mogao u kod da ubacim sljedeće:

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" processorArchitecture="X86" name="Company.Product.ImePrograma.exe" type="win32" />
<description>WindowsExecutable</description>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="X86" publicKeyToken="6595b64144ccf1df" language="*" />
</dependentAssembly>
</dependency>
</assembly>

to je kod za primjenu XP stila za programe i nalazi se u "manifest" fajlu
da li bih ga mogao ikako strpati u VB kod pa da ne moram slepati non-stop jos jedan fajl s exe-om?????
ili sam ipak osudjen da imam dva fajla???

[ :. n!t .: ]

Odgovor na temu

VRKY

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

+8 Profil

Re: Ikone i jos nesto? Pomoc molim!

^{01.09.2004. u 21:17 - pre 239 meseci}

1.
Potraži po netu program:
ResHack

Odgovor na temu

zerostyle
Damir Basic
INTERNET KLUB EXTREME

Član broj: 10633
Poruke: 260
80.65.81.*

Profil

Re: Ikone i jos nesto? Pomoc molim!

^{01.09.2004. u 21:34 - pre 239 meseci}

Tacnije:
[url]http://www.users.on.net/johnson/resourcehacker/[/url]

A zasto bi izvalcio ikonu iz necaga kad imas na netu milijarde ikona probaj je naci :)

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

Re: Ikone i jos nesto? Pomoc molim!

^{02.09.2004. u 09:49 - pre 239 meseci}

1. Koristi google, keyword Icon extractor

2. XP Style

http://www.elitesecurity.org/tema/22522/0#159277
http://www.elitesecurity.org/tema/50331/0#326094

Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

Re: Ikone i jos nesto? Pomoc molim!

^{03.09.2004. u 13:52 - pre 239 meseci}

Za ikone:
nerazumijem baš. Da li hoćeš da izvučeš ikone iz resorce-a i ubaciš u toolbar ili hoćeš da praviš program koji izvlači ikone iz exe file-a. Javi, ja imam oba primjera.

Za Style xp:
Kad upališ VB idi na Add-Ins pa tu na Add-In Manager... e tu ti se otvori neka lista i dole u pri kraju nađi VB 6 Resource Editor e njega upali(Loaded/Unloaded,Load on startup). Sad ugasi VB i ponovo upali pa ideš na Project i dole u dnu imaš Add new resource file.Kad klikneš na njega otvoriće se resource editor eh tu ubaciš ovaj resource što sam zakačio. I još trebaš da dodaš na formu Microsoft Comm Control 6.0. Sad imaš Style XP program bez onog <imeprojekta>.EXE.Manifest,to ti više netreba.

I ♥ ♀

Ovaj post je zlata vrijedan!

Prikačeni fajlovi

XPStyle.res

XPStyle.res - 0.75k

Odgovor na temu

Pr[o_O]F
Tamna strana mjeseca ;)

Član broj: 30368
Poruke: 155
195.222.41.*

Profil

Re: Ikone i jos nesto? Pomoc molim!

^{03.09.2004. u 20:45 - pre 239 meseci}

Da treba mi da izvlacim iz Exe filea ikone...
ps nemoj mi slati nikakve gotove programe koji to rade
imam ih i previse
ako moze kod iz vb6
Unaprijed hvala!

[ :. n!t .: ]

Odgovor na temu

Pr[o_O]F
Tamna strana mjeseca ;)

Član broj: 30368
Poruke: 155
195.222.41.*

Profil

Re: Ikone i jos nesto? Pomoc molim!

^{03.09.2004. u 20:52 - pre 239 meseci}

A na ovo pitanje "zasto bih izvlacio??" odgovor je:
jer pravim jednostavniji toolbar i eto da ne bih uvijek koristio
Icon Snatcher, Icon Sucker i slicne stvari!

[ :. n!t .: ]

Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

Re: Ikone i jos nesto? Pomoc molim!

^{03.09.2004. u 21:06 - pre 239 meseci}

Imam negdje na računaru primjer pa kad nađem poslaću ti. Inače imam na tone vb koda tako da stvarno više nemam pojma gdje šta stoji. Uglavnom kad nađem...

I ♥ ♀

Ovaj post je zlata vrijedan!

Odgovor na temu

Pr[o_O]F
Tamna strana mjeseca ;)

Član broj: 30368
Poruke: 155
195.222.41.*

Profil

Re: Ikone i jos nesto? Pomoc molim!

^{03.09.2004. u 21:15 - pre 239 meseci}

Oki!!
Hvala stari...

[ :. n!t .: ]

Odgovor na temu

Vojin Petrovic
zemun

Član broj: 33333
Poruke: 15
*.ptt.yu

ICQ: 10594603
Sajt: www.zoki.com

Profil

Re: Ikone i jos nesto? Pomoc molim!

^{04.09.2004. u 00:35 - pre 239 meseci}

Icons = ExtractIcon(form.hWnd, file, -1)
ova funkcija vraca broj ikona u exe fajlu, odnosno dll-u, gde je form prozor u kom radis, a file je null terminated path do exe fajla

hIcon = ExtractIcon(form2.hWnd, fajl, n)
ova funkcija vraca instancu n-te ikone u istoimenom fajlu

f = DrawIcon(Picture1.hdc, 0, 0, hIcon)
ovo funkcijom je crtas u odredjeni pic ili sta vec. Tako dobijes picture1.image... ako ti treba bas .picture a ne .image, onda jednostavno drugoj slici ili objektu dodelis objekat.picture=picture1.image.

a one gore funkcije definises sa:

Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long

nadam se da ti je to trebalo :) Pozdrav

Odgovor na temu

Pr[o_O]F
Tamna strana mjeseca ;)

Član broj: 30368
Poruke: 155
*.as54.tz.bih.net.ba.

Profil

Re: Ikone i jos nesto? Pomoc molim!

^{04.09.2004. u 22:40 - pre 239 meseci}

Mozes li mi poslati citav kod
jer u mene prijavljuje neku gresku!

[ :. n!t .: ]

Odgovor na temu

Vojin Petrovic
zemun

Član broj: 33333
Poruke: 15
*.ptt.yu

ICQ: 10594603
Sajt: www.zoki.com

Profil

Re: Ikone i jos nesto? Pomoc molim!

^{05.09.2004. u 02:39 - pre 239 meseci}

Evo, da konkretizujemo
Napravi novi form, nek ostane Form1, ubaci sliku Pict, obavezno stavi autorefresh=true, napravi i cmd button i nazovi ga cmd, recimo

i sad:
sub cmd_Click ()
dim fajl as string ' fajl iz koga citamo ikone
dim icons as long ' broj ikona u fajlu
dim hIcon as long ' instanca ucitane ikone
dim rndicon as long 'neki slucajni broj (redni broj neke slucajne ikone iz fajla)
dim vOK as long ' vraca neko s***** kao da li je dobro nacrtana ikona

file="c:\windows\system32\shell32.dll"+chr$(0) 'ovo je fajl za primer
icons = ExtractIcon(Form1.hWnd, fajl, -1)
rndicons=int(rnd*icons) ' pazi, redni broj ikone je 0-based
hIcon = ExtractIcon(Form1.hWnd, fajl, n)
f = DrawIcon(Pict.hdc, 0, 0, hIcon)
end sub

na pocetku u declarations deklarises kao privatne ove dve funkcije:
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long

mora da radi ! naravno da mozes da napravis funkciju od toga da izvlaci ikone, crta kojekude i bla bla znas vec.. ovo samo primer da vidis kako radi

Pozdrav

Odgovor na temu

Vojin Petrovic
zemun

Član broj: 33333
Poruke: 15
*.ptt.yu

ICQ: 10594603
Sajt: www.zoki.com

Profil

Re: Ikone i jos nesto? Pomoc molim!

^{05.09.2004. u 02:41 - pre 239 meseci}

sorry, pogresno sam upisao imena varijabli...
ova dva reda idu umesto ovako:

rndicons=int(rnd*icons)
hIcon = ExtractIcon(Form1.hWnd, fajl, n)

idu ovako:

rndicon=int(rnd*icons)
hIcon = ExtractIcon(Form1.hWnd, fajl, rndicon)

i da ne zaboravim da ti kazem da chr$(0) mora da ide na kraju imena fajla.

toliko
za
danas
Pozdrav

Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

Re: Ikone i jos nesto? Pomoc molim!

^{05.09.2004. u 10:52 - pre 239 meseci}

Evo nešto što sam našao.

I ♥ ♀

Ovaj post je zlata vrijedan!

Prikačeni fajlovi

GetFileIcon.zip

GetFileIcon.zip - 5.73k

Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

Re: Ikone i jos nesto? Pomoc molim!

^{05.09.2004. u 10:56 - pre 239 meseci}

Evo i ovo.

I ♥ ♀

Ovaj post je zlata vrijedan!

Prikačeni fajlovi

GetIcon.zip

GetIcon.zip - 2.13k

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Ikone i jos nesto? Pomoc molim!

^{22.10.2004. u 12:07 - pre 237 meseci}

Znam da je ovo stara tema, ali trazio sam nesto o XP style-u i nasao ovo, al meni nesto ne radi.
Svidja mi se ovo da nemoram da slepam manifest fajl sa mojim exe-om, al meni prijavljuje da .res fajl nije validan!
Jel zna neko zasto, il je to do mene?

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Pr[o_O]F
Tamna strana mjeseca ;)

Član broj: 30368
Poruke: 155
*.as54.tz.bih.net.ba.

Profil

Re: Ikone i jos nesto? Pomoc molim!

^{28.10.2004. u 20:50 - pre 237 meseci}

Do tebe je! Jer u mene radi perfektno!

Ali ako samo zelis dugmad da budu kako u Xp potrazi na
http://www.planet-source-code.com
projekat pod imenom
Chameleon OCX ili sl
pored XP tu ima jos puno tipova dugmadi kao Office i sl

[ :. n!t .: ]

Odgovor na temu

[es] :: Visual Basic 6 :: Ikone i jos nesto? Pomoc molim!

[ Pregleda: 3411 | Odgovora: 16 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
23.11.2002. ikone u menijima
28.07.2003. Msgbox problem
28.07.2003. Kako importovati resurse u DLL?
16.02.2004. Pravljenje file managera - ikonice fajlova
06.04.2004. Ikone na Formi?!?
24.05.2004. Kako da sklonim IKONE koje sam zakacio ..
27.08.2004. Velike ikone u exploreru pod XP-om

Navigacija

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