Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma
Tarih
18/01/2013 23:54
Konu Sahibi
accessdelisi
Yorumlar
3
Okunma
1429
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
Aktif Üye
316
30/10/2008
24
-
Ofis 2010 32 Bit
Bugün,07:29
Çözüldü 
Sponsor Reklam
Herkese merhabalar.
http://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.182
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:49
Çözüldü 
örnek uygulama veya link ekleyebilir misin?
Cevapla

accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
316
30/10/2008
24
-
Ofis 2010 32 Bit
Bugün,07:29
Çözüldü 
Sponsor Reklam
ö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.182
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:49
Çö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ı: 51)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  metin kutusuna girilen ilk karakterin silinmesi slayerrrrr 4 85 Dün, 14:27 slayerrrrr
  Raporu Excele aktarma kadirdursun 3 70 Dün, 11:10 kadirdursun
  Listeden Forma Bilgi Aktarma U.ALTUN 23 753 14/01/2017, 15:54 U.ALTUN
  alt forma veri aktarma QATLET 10 165 12/01/2017, 17:08 atoz112
  Formda 1 Metin Kutusuna birden fazla Metin Kutusu içeriğini koşula bağlı gösterme hbal09 5 206 06/01/2017, 16:22 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya