Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma
Tarih
18/01/2013 23:54
Konu Sahibi
accessdelisi
Yorumlar
3
Okunma
1410
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
314
30/10/2008
24
-
Ofis 2010 32 Bit
Dün,07:52
Çözüldü 
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.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,14:25
Çözüldü 
örnek uygulama veya link ekleyebilir misin?
Cevapla


accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
314
30/10/2008
24
-
Ofis 2010 32 Bit
Dün,07:52
Çö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.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,14:25
Çö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ı: 49)
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  açılır kutu secime göre yazı rengi ve sorgudan çağrılan ilişikli nesne (bit resmi) maras321 3 89 29/11/2016, 21:39 maras321
  Liste kutusuna tıklayınca metin kutusuna bilgiyi getirme nightashes 5 86 28/11/2016, 23:33 nightashes
  Seçime göre Excelle veri aktarma. metbal 5 140 06/11/2016, 12:56 atoz112
  Rapor kaydetme uyarısı m_demir 7 203 04/11/2016, 08:28 m_demir
  Liste Kutusuna Kayıt ekleme mmert06 6 195 28/10/2016, 22:59 mmert06


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