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

Pomoc oko sacuvanja slike sa Common Dialogom

[es] :: Visual Basic 6 :: Pomoc oko sacuvanja slike sa Common Dialogom

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

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Srki_94
Okolina Pozarevca

Član broj: 184010
Poruke: 15
*.exe042.net.



Profil

icon Pomoc oko sacuvanja slike sa Common Dialogom08.06.2008. u 15:13 - pre 192 meseci
Prvo da se predstavim

Cao!
Zovem se Srdjan ucenik sam sedmog razreda. Znam Visual Basic i sada ucim C++. Bio sam na takmicenju iz informatike osvojio sam 1. na opstinskom i 1. na regionalnom takmicenju sa jednom VB aplikacijom (Igra Fast And Furious)

E Sad Problem:

Kako da sacuvam, otvorim sliku sa Common Dialogom. Probao sam na istu foru kao sa sacuvanjem texta ali nece.
Pomoc je dobrodosla. Pravim neki program kao paint ali mnogo bolje.
Hvala.


If Pivo.Visible = True then
Call Zgrabi_Pivo
Pijan = True
End if
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom09.06.2008. u 20:10 - pre 192 meseci
nije proveren kôd al bi trebalo da je ovako

Otvaranje:

Code:
DLG.CancelError = False
DLG.ShowOpen
Image1.Picture = LoadPicture(DLG.Filename)


gde ti je DLG ime common dialog-a, a Image1 je Image objekat.

e sad Save pretpostavljam da je ovako

Code:
DLG.CancelError = False
DLG.ShowSave
Call SavePicture(Image1.Picture, DLG.FileName)


ako sam te dobro ukapirao, u principu,ovde su ti najbitniji LoadPicture i SavePicture
 
Odgovor na temu

Srki_94
Okolina Pozarevca

Član broj: 184010
Poruke: 15
*.exe042.net.



Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom09.06.2008. u 21:47 - pre 192 meseci
Hvala "jurim" ovaj kod vec poduze vreme. Ja sam koristio istu foru kao kad bi sacuvao tekst.
Okacicu program kad zavrsim. (ako je sporno obrisite ovu temu) Nece biti kao ACDS ali ce biti dobro
If Pivo.Visible = True then
Call Zgrabi_Pivo
Pijan = True
End if
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
77.46.166.*



+41 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom09.06.2008. u 22:31 - pre 192 meseci
Citat:
Srki_94: Okacicu program kad zavrsim.


Ne moras ovde (molim te), imas u na ES forum "Windows aplikacije" i tamo posebnu temu za objavljivanje besplatnih programa, ako je bas
Citat:
Srki_94: Nece biti kao ACDS ali ce biti dobro
S obzirom na tvoje dosada prikazano umece bojim se da nisi bas objektivan prema svom buducem cedu od programa
 
Odgovor na temu

LittleHacker93
Danilo Cimbaljevic
Ucenik
Beograd

Član broj: 184112
Poruke: 11
*.adsl-a-1.sezampro.yu.

Sajt: www.cimbaljevic.info


Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom09.06.2008. u 23:36 - pre 192 meseci
Haha...Da ti odmah kazem da se previse zanosis...

Citat:
Probao sam na istu foru kao sa sacuvanjem texta ali nece.


Kakve bre fore?U programiranju nema "fora"...

Heh, jos si ti mali...Imas puno da ucis...Nisi ni svestan kolko ne znas, a mislis da sve znas...
Jos jednom ti kazem, samo knjige i tutovi...
Sta je vrhunac u spanskoj seriji? Kad Hose Fernando sazna da je sam sebi keva...
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom10.06.2008. u 08:32 - pre 192 meseci
@LittleHacker93 a ti si mi pa mnogo stariji?? Molim te bez suvisnih komentara

Gorane, moze i ovde ako ce da okaci source :)
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
77.46.166.*



+41 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom10.06.2008. u 09:00 - pre 192 meseci
Pa ne mora bas da kaci svoje rane radove. Od toga niko nece imati koristi - ni on, a ni mi. Ako je u kontekstu resavanja problema uvek sam za kacenje projekata (cak insistiram), ali ako je u fazonu "Vidite ljudi koji sam ja genije napravio sam posle 3 dana ucenja programiranja ACDSee alternativu!" onda bolje ne.
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom10.06.2008. u 09:05 - pre 192 meseci
ok, u pravu si, slazem se
 
Odgovor na temu

LittleHacker93
Danilo Cimbaljevic
Ucenik
Beograd

Član broj: 184112
Poruke: 11
*.adsl-a-1.sezampro.yu.

Sajt: www.cimbaljevic.info


Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom10.06.2008. u 12:23 - pre 192 meseci
Izvinjavam se zbog uvredljivih komentara... :D

Sta je vrhunac u spanskoj seriji? Kad Hose Fernando sazna da je sam sebi keva...
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.192.*



+1 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom10.06.2008. u 14:24 - pre 192 meseci
He, he, jako mi je simpaticna ova tema, pa rekoh samo da se javim da sam tu...

94, 93, 92... Dosle su generacije hitnih sluzbi...



[edit]Tek sad videh sta sam sve propustio... Bila je tu i neka svadja oko lavirinta...[/edit]

[Ovu poruku je menjao stefanpn dana 10.06.2008. u 16:07 GMT+1]
 
Odgovor na temu

Srki_94
Okolina Pozarevca

Član broj: 184010
Poruke: 15
*.exe042.net.



Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom10.06.2008. u 19:25 - pre 192 meseci
Ljudi ! Ljudi Sta vam je? Haha Pa nisam ni planirao da stavim prog. Zaboravio sam da stavim smajl kad sam rek'o da nece biti ko Acds. Haha sta vam je kakav crni ACDS? Kod mi je trebao za taj program u kome mozete da crtate to vam dodje ko neka bedna verzija painta. Necu kaciti primer. Xaxa. Oce neko da pozove 911?
@ Hacker
Ma kakvi bre tutori? Xa xa. Np
Stvarno ti si mnogo stariji
If Pivo.Visible = True then
Call Zgrabi_Pivo
Pijan = True
End if
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom10.06.2008. u 20:03 - pre 192 meseci
ajde uozbilji se
 
Odgovor na temu

Srki_94
Okolina Pozarevca

Član broj: 184010
Poruke: 15
*.exe042.net.



Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom10.06.2008. u 22:19 - pre 192 meseci
Malo se salim. Necu da stavim program ako vi tako kazete. Uozbiljen sam.
Ovo pitanje je mozda offtopick ali mislim da nije.
Kako da ucitam zip fajl u program ( Ne mislim bukvalno nego samo da ga ucitam to dodje kao zip u exe) i da kad kliknem na dugme ono se iskopira. Znam da je ovo tesko cini mi se da sam video ovakvo pitanje ovde. Ako vec postoji onda obrisite poruku naci cu. Hvala
If Pivo.Visible = True then
Call Zgrabi_Pivo
Pijan = True
End if
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.192.*



+1 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom10.06.2008. u 23:16 - pre 192 meseci
Otvoris fajl for binary i smestis ga byte po byte u array... :)

Nije tesko...
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
91.143.217.*



+3 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom11.06.2008. u 02:28 - pre 192 meseci
@ Aleksandar Vasic

Samo da dopunim, zbog drugih clanova, ovaj je kod:

Code:
Option Explicit

Dim ImeFajlaSlike As String

Private Sub Command1_Click()
    On Error Resume Next
    CommonDialog1.DialogTitle = "Otvori"
    CommonDialog1.Filter = "Svi tipovi slika|*.bmp;*.gif;*.ico;*.jpg|BMP fajlovi (*.bmp)|*.bmp|GIF fajlovi (*.gif)|*.gif|ICO fajlovi (*.ico)|*.ico|JPG fajlovi (*.jpg)|*.jpg|"
    CommonDialog1.ShowOpen
    ImeFajlaSlike = CommonDialog1.FileName
    Picture1.Picture = LoadPicture(ImeFajlaSlike)
    Label1.Caption = ImeFajlaSlike
End Sub

Private Sub Command2_Click()
    On Error Resume Next
    CommonDialog1.DialogTitle = "Sacuvaj"
    CommonDialog1.Filter = "Bitmap fajl (*.bmp)|*.bmp|"
    CommonDialog1.ShowSave
    ImeFajlaSlike = CommonDialog1.FileName
    ImeFajlaSlike = Left(ImeFajlaSlike, InStrRev(ImeFajlaSlike, ".") - 1)
    ImeFajlaSlike = ImeFajlaSlike & ".bmp"
    SavePicture Picture1.Picture, ImeFajlaSlike
    Label1.Caption = ImeFajlaSlike
End Sub

rgdrajko
Prikačeni fajlovi
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom11.06.2008. u 08:51 - pre 192 meseci
ok, to je vec doterivanje :)
 
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

icon Re: Pomoc oko sacuvanja slike sa Common Dialogom11.06.2008. u 11:03 - pre 192 meseci
@rajko: a sta ces ako je korisnik pritisnuo Cancel u dijalogu? tvoj kod ce da sacuva sliku i u tom slucaju...

pre CommonDialog1.ShowSave treba da dodas CommonDialog1.CancelError = True a posle ShowSave treba da ide linija If Err.Number = cdlCancel Then Exit Sub

takodje, nije mi jasno za sta ce ti ImeFajlaSlike promenljiva i Picture1 objekat je suvisan (jedino ako hoces da prikazes izabranu sliku)
 
Odgovor na temu

[es] :: Visual Basic 6 :: Pomoc oko sacuvanja slike sa Common Dialogom

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

Postavi temu Odgovori

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