[es] - Kod za dugme za ubacivanje slike

lazemi
Lazareski Marjan
Ohrid

Član broj: 14841
Poruke: 108
77.29.211.*

Profil

^{06.05.2008. u 15:04 - pre 194 meseci}

Uradio sam aplikaciju u Accessu za evidenciju nekih predmeta ali sada treba mi jos tri dugmeta za ubacivanje slike i jedno polje (Insert Image) za njeno prikazivanje. Ustvari radi se za jednu sliku slikanu iz razlicitih uglova pa sad prvo dugme nek bude za ubacivanje prvu sliku pod default, a ostala dva za ubacivanje ostalih slika ako ih ima, a da ima dugme kad se klikne na njega da da prikaz slike moze i u gore spomenuti prozor za prikazivanje slike. Jos jedan detalj, ako moze klikom na polje za prikazivanje slike da se slika prikaze u Full Screen ili moze i da se otvori neki od windows picture manager ili ACDSEE na primjer. Ovo mi treba cisto za prikazivanje slike na cjelog ekrana a ne i za njeno editiranje. Slike bice smesteni u posebni folder na C drive, a u tabeli neka budu zapisani samo putanju do te slike.
Za sve ovo treba mi neki kod, pa upomoc drugovi!
Pozdrav!

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Kod za dugme za ubacivanje slike

^{06.05.2008. u 18:49 - pre 194 meseci}

Ako imaš Image Box objekat, kod za prikazivanje slike bi bio Image1.Picture = "C:\Putanja.jpg".

Što se tiče prikaza slike u fullscreen, isto bi trebalo koristiti imagebox sa size mode stretch, na formi koja nema controlbox, ali mislim da bi kvalitet bio loš. Zato je i bolja varijanta sa snimanjem putanje ka originalnoj slici u bazi, jer bi mogao da koristiš sledeći kod. Otvoriće se program koji je zadužen za otvaranje slike na računaru.

Code:
Kod iskopiraš na samom vrhu u kodu forme
Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Const SHOWMAXIMIZED = 3

Private Sub OtvoriSliku_Click
ShellExecute Me.hwnd, "open", Putanja, vbNullString, vbNullString, SW_SHOWMAXIMIZED
End Sub

Uh, tek sam sad video

Ozbiljan i odgovoran mladić

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Kod za dugme za ubacivanje slike

^{07.05.2008. u 07:17 - pre 194 meseci}

A možeš i ovako .
Na klik dugmeta stavis ovaj kod da ti se otvori browser s kojim odabereš sliku na bilo kojem folderu

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Filters.Clear
.Filters.Add "All files", "*.*"
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Slika.Picture = vrtSelectedItem
Imeslike = vrtSelectedItem
Next vrtSelectedItem
Else
Slika.Picture = ""
Imeslike = ""
End If
End With
Set fd = Nothing

slika.picture ti je imagebox na formi

imeslike ti je txtbox u kojem si ispises putanju do slike , ako želiš

a ako želiš tu sliku otvoriti u Paintu ili acdsee onda bi ovako napisao

Dim RetVal
RetVal = Shell("C:\WINDOWS\system32\mspaint.EXE " + Imeslike, vbMaximizedFocus)

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Kod za dugme za ubacivanje slike

^{07.05.2008. u 10:51 - pre 194 meseci}

Trtkov kod zahteva referencu ka Microsoft Office Object Library (MSO.DLL)

Ozbiljan i odgovoran mladić

Odgovor na temu

lazemi
Lazareski Marjan
Ohrid

Član broj: 14841
Poruke: 108
77.29.210.*

Profil

Pomoc oko koda za ubacivanje slike

^{07.05.2008. u 18:12 - pre 194 meseci}

Posto mi nije dozvoljeno da ubacim jedan mali primjer za poruku stariju od jednog dana morao sam da otvorim novu temu koja u stvari je nastavak temi Kod za dugme za ubacivanje slike. Jel moze na ovom primjeru kojeg sam ostavio da se ubaci taj kod koji mi predlazete jer se ja ne snalazim bas najbolje. Folder za slike nek bude u C:\Slike.
Unaprjed Hvala!

Prikačeni fajlovi

Primer.mdb - 180k

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Kod za dugme za ubacivanje slike

^{07.05.2008. u 18:48 - pre 194 meseci}

@ Lazemi
Spojio sam teme. Nema potrebeda otvaraš novu, samo odgovori na svoju postavljenu temu kao bilo ko drugi.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

DarioBH
Bosna i Hercegovina

Član broj: 86881
Poruke: 453
*.europronet.ba.

+1 Profil

Re: Kod za dugme za ubacivanje slike

^{07.05.2008. u 18:56 - pre 194 meseci}

Jeli ovo otprilike to

Prikačeni fajlovi

Primer.mdb - 192k

Odgovor na temu

lazemi
Lazareski Marjan
Ohrid

Član broj: 14841
Poruke: 108
77.29.208.*

Profil

Re: Kod za dugme za ubacivanje slike

^{07.05.2008. u 23:43 - pre 194 meseci}

Odlicno majstore to sam trazio. Zaboravio sam jos da stavim po jedno dugme (ukupno 3) u primjeru odmah do dugmetom sa 4 tacke, koje di se zvalo Prikaz. Klikom na njega da se otvori slika u Paintu ili ACDSEE. E sad tu daje domaci_a_nas i Tvrtko predlog ali ne znam kako i gde ubaciti taj kod???
Ako moze u preimeru jos ovo pa da bude kompletan.

Odgovor na temu

DarioBH
Bosna i Hercegovina

Član broj: 86881
Poruke: 453
*.PPPoE-7958.sa.bih.net.ba.

+1 Profil

Re: Kod za dugme za ubacivanje slike

^{08.05.2008. u 14:38 - pre 194 meseci}

Jesi li ovako htio

Prikačeni fajlovi

Primer.mdb - 192k

Odgovor na temu

lazemi
Lazareski Marjan
Ohrid

Član broj: 14841
Poruke: 108
77.29.214.*

Profil

Re: Kod za dugme za ubacivanje slike

^{08.05.2008. u 17:51 - pre 194 meseci}

Bas to sam trazio. Hvala, Hvala i jos sto puta Hvala.
Da ti Bog da zdravlje i dug zivot da nam sto duze pomazes.
Pozdrav!

Odgovor na temu

DarioBH
Bosna i Hercegovina

Član broj: 86881
Poruke: 453
*.europronet.ba.

+1 Profil

Re: Kod za dugme za ubacivanje slike

^{08.05.2008. u 20:28 - pre 194 meseci}

Hvala, i tebi sve najbolje

Odgovor na temu

Dr.Pucko
Jurica Lucic
Hrvatska

Član broj: 35345
Poruke: 30
*.adsl.net.t-com.hr.

Profil

Re: Kod za dugme za ubacivanje slike

^{16.03.2009. u 09:41 - pre 183 meseci}

ovo je super
napravio kod sebe da donsi ovako sliku ali ...
kako da u Continuous Forms pozove sliku za svaki slog da prikaze svoju sliku koja je zapisana samo putanja do slike
pretrazio cjeli forum nisam nasao nista slicno kako bi to izveo

ako neide ovdje sorry ...

_{[Ovu poruku je menjao Dr.Pucko dana 16.03.2009. u 11:09 GMT+1]}

Odgovor na temu