Webbrowserda (input Type Disable) Olan Alandan Veri Almak

01/07/2019, 20:17

mustinba

İ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.
02/07/2019, 13:56

ozanakkaya

Eklediğiniz örnekte veri alımı ile ilgili kod yok. Hangi kod ile veri alıyorsanız örneğinize ekleyiniz.
02/07/2019, 19:51

mustinba

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
03/07/2019, 09:13

ozanakkaya

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, 22:08

mustinba

(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.