Kod:
Private Sub ekle_img_Click()
Dim f As Object
Set f = Application.FileDialog(1)
f.AllowMultiSelect = False
If (f.show = True) Then
Me![img].Picture = f.SelectedItems(1)
End If
End Sub
Private Sub ekle_img_Click()
Dim f As Object
Set f = Application.FileDialog(1)
f.AllowMultiSelect = False
If (f.show = True) Then
Me![img].Picture = f.SelectedItems(1)
End If
End Sub
Bu Konudaki Yorumlar |
Otomatik Resim Ekleme - Yazar: yakanic - 02/08/2019, 12:20
Cvp: Otomatik Resim Ekleme - Yazar: berduş - 02/08/2019, 12:36
Cvp: Otomatik Resim Ekleme - Yazar: yakanic - 02/08/2019, 13:06
Cvp: Otomatik Resim Ekleme - Yazar: ozanakkaya - 02/08/2019, 16:01
RE: Otomatik Resim Ekleme - Yazar: yakanic - 02/08/2019, 16:03
RE: Otomatik Resim Ekleme - Yazar: yakanic - 02/08/2019, 18:30
Re: Otomatik Resim Ekleme - Yazar: berduş - 02/08/2019, 16:10
RE: Otomatik Resim Ekleme - Yazar: yakanic - 02/08/2019, 18:48
Cvp: Otomatik Resim Ekleme - Yazar: berduş - 02/08/2019, 18:58
RE: Otomatik Resim Ekleme - Yazar: yakanic - 02/08/2019, 19:06
Cvp: Otomatik Resim Ekleme - Yazar: berduş - 02/08/2019, 19:30
RE: Otomatik Resim Ekleme - Yazar: yakanic - 02/08/2019, 20:07
Cvp: Otomatik Resim Ekleme - Yazar: berduş - 02/08/2019, 20:26
RE: Otomatik Resim Ekleme - Yazar: yakanic - 02/08/2019, 20:34
Cvp: Otomatik Resim Ekleme - Yazar: berduş - 02/08/2019, 21:16
|