Pomoc oko sacuvanja slike sa Common Dialogom

Pomoc oko sacuvanja slike sa Common Dialogom 08.06.2008. u 16:13 · pre 223 meseca #1

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.

Potpis

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

Re: Pomoc oko sacuvanja slike sa Common Dialogom 09.06.2008. u 21:10 · pre 223 meseca #2

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

Re: Pomoc oko sacuvanja slike sa Common Dialogom 09.06.2008. u 22:47 · pre 223 meseca #3

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

Potpis

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

Re: Pomoc oko sacuvanja slike sa Common Dialogom 09.06.2008. u 23:31 · pre 223 meseca #4

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

Re: Pomoc oko sacuvanja slike sa Common Dialogom 10.06.2008. u 00:36 · pre 223 meseca #5

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...

Potpis

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

Re: Pomoc oko sacuvanja slike sa Common Dialogom 10.06.2008. u 09:32 · pre 223 meseca #6

@LittleHacker93 a ti si mi pa mnogo stariji?? Molim te bez suvisnih komentara

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

Re: Pomoc oko sacuvanja slike sa Common Dialogom 10.06.2008. u 10:00 · pre 223 meseca #7

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.

Re: Pomoc oko sacuvanja slike sa Common Dialogom 10.06.2008. u 10:05 · pre 223 meseca #8

ok, u pravu si, slazem se

Re: Pomoc oko sacuvanja slike sa Common Dialogom 10.06.2008. u 13:23 · pre 223 meseca #9

Izvinjavam se zbog uvredljivih komentara... :D

Potpis

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

Re: Pomoc oko sacuvanja slike sa Common Dialogom 10.06.2008. u 15:24 · pre 223 meseca #10

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]}

Re: Pomoc oko sacuvanja slike sa Common Dialogom 10.06.2008. u 20:25 · pre 223 meseca #11

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

Potpis

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

Re: Pomoc oko sacuvanja slike sa Common Dialogom 10.06.2008. u 21:03 · pre 223 meseca #12

ajde uozbilji se

Re: Pomoc oko sacuvanja slike sa Common Dialogom 10.06.2008. u 23:19 · pre 223 meseca #13

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

Potpis

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

Re: Pomoc oko sacuvanja slike sa Common Dialogom 11.06.2008. u 00:16 · pre 223 meseca #14

Otvoris fajl for binary i smestis ga byte po byte u array... :)

Nije tesko...

Re: Pomoc oko sacuvanja slike sa Common Dialogom 11.06.2008. u 03:28 · pre 223 meseca #15

@ 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

Potpis

rgdrajko

cmdlgOPENSAVE.zip6.54k

Re: Pomoc oko sacuvanja slike sa Common Dialogom 11.06.2008. u 09:51 · pre 223 meseca #16

ok, to je vec doterivanje :)

Re: Pomoc oko sacuvanja slike sa Common Dialogom 11.06.2008. u 12:03 · pre 223 meseca #17

@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)

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Forum kao aplikacija na telefonu

Srodne teme