Kod za dugme za ubacivanje slike

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!

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.



Uh, tek sam sad video

Potpis

Ozbiljan i odgovoran mladić

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)

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

Potpis

Ozbiljan i odgovoran mladić

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!

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

Potpis

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

Jeli ovo otprilike to

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.

Jesi li ovako htio

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!

Hvala, i tebi sve najbolje