AccessTr.neT

Tam Versiyon: Webbrowserda (input Type Disable) Olan Alandan Veri Almak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
İyi çalışmalar arkadaşlar.
Ekteki örneğimde webbrowserde ki  Html tablodan normalde veri alabiliyorum ancak ; alcacağım alanların bu sefer pasif olduğundan alamıyorum.
Yardımlarınız için Teşekkürler.
Eklediğiniz örnekte veri alımı ile ilgili kod yok. Hangi kod ile veri alıyorsanız örneğinize ekleyiniz.
Private Sub Komut3_Click()
On Error Resume Next
For X = 0 To 10
   
      nesneadi = "dgListem_txtY1_0" & X
      Me.Liste1.AddItem (WebBrowser9.Document.getElementByID(nesneadi).innerText + "test")
    Next X
End Sub
Merhaba, koda on error resume next kodu ile başlarsanız hataları göremezsiniz.

additem ile liste kutusuna veri aktaracaksanız liste kutusunun Satır Kaynak Türü "Deger Listesi" olması gerekli.
Birleştirme işleminde + işleci vbada kullanılmaz, 

Web sayfasındaki input etiketinin id değeri "dgListem_txtY1_0", 
Kod:
nesneadi = "dgListem_txtY1_0" & X
kodu çalışmaz, 
Kod:
nesneadi = "dgListem_txtY1_" & X
olmalı ki dgListem_txtY1_0, dgListem_txtY1_1, dgListem_txtY1_2 şeklinde devam ederek veri alsın. 

WebBrowser0.Document.getElementByID(nesneadi).innertext kodunu inputta çalıştıramazsın, kod WebBrowser0.Document.getElementByID(nesneadi).Value şeklinde olmalı.

Kod:
For X = 0 To 10
     
      nesneadi = "dgListem_txtY1_" & X
      Me.Liste1.AddItem (WebBrowser0.Document.getElementByID(nesneadi).Value)
Next X
(03/07/2019, 09:13)ozanakkaya yazdı: [ -> ]Merhaba, koda on error resume next kodu ile başlarsanız hataları göremezsiniz.

additem ile liste kutusuna veri aktaracaksanız liste kutusunun Satır Kaynak Türü "Deger Listesi" olması gerekli.
Birleştirme işleminde + işleci vbada kullanılmaz, 

Web sayfasındaki input etiketinin id değeri "dgListem_txtY1_0", 
nesneadi = "dgListem_txtY1_0" & X kodu çalışmaz, nesneadi = "dgListem_txtY1_" & X olmalı ki dgListem_txtY1_0, dgListem_txtY1_1, dgListem_txtY1_2 şeklinde devam ederek veri alsın. 

WebBrowser0.Document.getElementByID(nesneadi).innertext kodunu inputta çalıştıramazsın, kod WebBrowser0.Document.getElementByID(nesneadi).Value şeklinde olmalı.

Kod:
For X = 0 To 10
     
      nesneadi = "dgListem_txtY1_" & X
      Me.Liste1.AddItem (WebBrowser0.Document.getElementByID(nesneadi).Value)
Next X
Teşekkürler value yapınca oldu.