[es] - Pravljenje prozora za ubacivanje slika

niknen

Član broj: 69798
Poruke: 67
*.beogrid.net.

Profil

Pravljenje prozora za ubacivanje slika

^{24.03.2006. u 08:47 - pre 220 meseci}

Kako mogu da u accessu na novoj formi napravim formicu koja ce da sadrzi dva dugmeta jedni za ubacivanje slike a drugo za brisanje te slike i kada pritisnem dugme ubaci da mi ubaci sliku iz nekog direktorijum po mogucstvu ako moze da me pita koji direktorijum zelim da otvorim?! I da se ta slika ubaci u neki prozorcic za image?!!!

pomagajte hvala Vam unapred

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
195.29.146.*

+8 Profil

Re: Pravljenje prozora za ubacivanje slika

^{27.03.2006. u 11:05 - pre 220 meseci}

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
Label59.Caption = vrtSelectedItem
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing

Eto tak.
a imas i drugi nacin s activex controlom commodialogom

Dim izb As String
izborsli.FileName = ""
izb = ""
izborsli.ShowOpen
izb = izborsli.FileName
If IsNull(izb) Or izb = "" Then
Else
slika.Picture = izb
Label59.Caption = izb
End If

Odgovor na temu