Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pravljenje prozora za ubacivanje slika

[es] :: Access :: Pravljenje prozora za ubacivanje slika

[ Pregleda: 4073 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

niknen

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



Profil

icon Pravljenje prozora za ubacivanje slika24.03.2006. u 08:47 - pre 222 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

icon Re: Pravljenje prozora za ubacivanje slika27.03.2006. u 11:05 - pre 222 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

[es] :: Access :: Pravljenje prozora za ubacivanje slika

[ Pregleda: 4073 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.