Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
18/01/2013 23:54
Konu Sahibi
accessdelisi
Yorumlar
3
Okunma
1714
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

accessdelisi

Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Gümüş Üye
344
30/10/2008
27
-
-
19/09/2017,21:30
Çözüldü 
Herkese merhabalar.
https://www.accesstr.net/konu-access-vba...silme.html linkindeki konu ile klasör ekleme ve silme olayını hallettim. Şimdi yapamadığım bir probleme geldi sıra.

Webbrowser üzerindeki resmi uygulama ile aynı dizinde bulunan resimlerim klasörüne kaydedilmesini ve bu resmin formdaki resim kutusuna yansımasını istiyorum. Sayın üstadlarımızdan bu olayın çözümünü rica ediyorum.

Nette aramadığım yer kalmadı, webbrowser ile ilgili bu sitedeki arkadaşlardan başka anlayan bulamadım. Teşekkür ederim.


SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.807
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
örnek uygulama veya link ekleyebilir misin?


Cevapla

accessdelisi

Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Gümüş Üye
344
30/10/2008
27
-
-
19/09/2017,21:30
Çözüldü 
örnek uygulama diger makinada kaldi. http://www.captcha.net/ linkindeki resim alınabilirmi?


SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.807
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
İnceleyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Komut1_Click()
 Dim HTML_Body, HTML_Img As Object, AlinanResim As Object
        
        Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
        Set HTML_Img = HTML_Body.getElementsByTagName("img")
        Set AlinanResim = HTML_Img(0)
        
        URLDownloadToFile 0, AlinanResim.src, CurrentProject.Path & "\resimlerim\1.png", 0, 0
        Me.resim1.Picture = CurrentProject.Path & "\resimlerim\1.png"
End Sub
Private Sub Form_Load()
    WebBrowser1.silent = True
    WebBrowser1.Navigate2 "http://www.captcha.net/"
End Sub


Ek Dosyalar
.rar   webbrowser.rar (Dosya Boyutu: 94,57 KB / İndirme Sayısı: 56)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Webden Resim Çağırma estapan 6 262 09/09/2017, 21:57 estapan
Çözüldü İlişkili Combobox - Resim Çağırma tsots 13 494 06/09/2017, 21:34 ozanakkaya
Çözüldü Seçili Dönemi Pdf Aktarma paseidon19 6 239 04/09/2017, 11:27 ozanakkaya
Çözüldü Üst Formdan Alt Forma Veri Aktarma teo81a 2 128 21/08/2017, 08:45 teo81a
Çözüldü Worde Aktarımda Ön İzmele Ve Wordü Otomatik Kaydetme derzulya 6 474 25/05/2017, 14:42 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.