[es] - Kod za dugme za ubacivanje slike

lazemi
Lazareski Marjan
Ohrid

Član broj: 14841
Poruke: 109
77.29.211.*

Profil

^{pre 5 dana i 13h}

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!

^{06.05.2008. u 15:04}

domaci_a_nas
Nikola Radovanović
Kragujevac

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

Profil

Re: Kod za dugme za ubacivanje slike

^{pre 5 dana i 9h}

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ć

^{06.05.2008. u 18:49}

Trtko
Koprivnica

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

Profil

Re: Kod za dugme za ubacivanje slike

^{pre 4 dana i 21h}

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)

^{07.05.2008. u 07:17}

domaci_a_nas
Nikola Radovanović
Kragujevac

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

Profil

Re: Kod za dugme za ubacivanje slike

^{pre 4 dana i 17h}

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

Ozbiljan i odgovoran mladić

^{07.05.2008. u 10:51}

lazemi
Lazareski Marjan
Ohrid

Član broj: 14841
Poruke: 109
77.29.210.*

Profil

Pomoc oko koda za ubacivanje slike

^{pre 4 dana i 10h}

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!

Prikaceni fajlovi

Primer.mdb - 180k

^{07.05.2008. u 18:12}

Getsbi
Miroljub Zahorjanski
Vršac

Moderator
Član broj: 124608
Poruke: 1005
79.101.129.*

Profil

Re: Kod za dugme za ubacivanje slike

^{pre 4 dana i 9h}

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

I'll know what I want, when I see it.

^{07.05.2008. u 18:48}

DarioBH
Bosna i Hercegovina

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

Profil

Re: Kod za dugme za ubacivanje slike

^{pre 4 dana i 9h}

Jeli ovo otprilike to

Prikaceni fajlovi

Primer.mdb - 192k

^{07.05.2008. u 18:56}

lazemi
Lazareski Marjan
Ohrid

Član broj: 14841
Poruke: 109
77.29.208.*

Profil

Re: Kod za dugme za ubacivanje slike

^{pre 4 dana i 4h}

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.

^{07.05.2008. u 23:43}

DarioBH
Bosna i Hercegovina

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

Profil

Re: Kod za dugme za ubacivanje slike

^{pre 3 dana i 13h}

Jesi li ovako htio

Prikaceni fajlovi

Primer.mdb - 192k

^{08.05.2008. u 14:38}

lazemi
Lazareski Marjan
Ohrid

Član broj: 14841
Poruke: 109
77.29.214.*

Profil

Re: Kod za dugme za ubacivanje slike

^{pre 3 dana i 10h}

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!

^{08.05.2008. u 17:51}

DarioBH
Bosna i Hercegovina

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

Profil

Re: Kod za dugme za ubacivanje slike

^{pre 3 dana i 8h}

Hvala, i tebi sve najbolje

^{08.05.2008. u 20:28}