Kod za dugme za ubacivanje slike

[ lazemi @ 06.05.2008. 15:04 ] @

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!

[ domaci_a_nas @ 06.05.2008. 18:49 ] @

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

[ Trtko @ 07.05.2008. 07:17 ] @

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)

[ domaci_a_nas @ 07.05.2008. 10:51 ] @

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

[ lazemi @ 07.05.2008. 18:12 ] @

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!

[ Getsbi @ 07.05.2008. 18:48 ] @

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

[ DarioBH @ 07.05.2008. 18:56 ] @

Jeli ovo otprilike to

[ lazemi @ 07.05.2008. 23:43 ] @

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.

[ DarioBH @ 08.05.2008. 14:38 ] @

Jesi li ovako htio

[ lazemi @ 08.05.2008. 17:51 ] @

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!

[ DarioBH @ 08.05.2008. 20:28 ] @

Hvala, i tebi sve najbolje

[ Dr.Pucko @ 16.03.2009. 09:41 ] @

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