(13/02/2020, 12:12)xoseng yazdı: Bu eklediğiniz kodlar çalıştı bilgileri alıyor, acaba Sınıfı da ekleyebilir misiniz.

Yabancı dil için:

AL = 0

K1 = 0



For Each ele In WebBrowser.Document.all

 If ele.ID = "ddlYabanciDil" Then

    A1 = (ele.selectedindex) + 1

 End If

Next

AL = 0

For Each ele In WebBrowser.Document.all

If ele.ID = "ddlYabanciDil" Then AL = 1

If AL = 1 Then

   If ele.tagname = "OPTION" Then

      K1 = K1 + 1

      If K1 = A1 Then Me.Yabancı_dili = ele.innertext: AL = 0

   End If

End If

Next

kodu kullanıldı. Aynı kodu sınıf için kendiniz ekleyebilirsiniz. elementin id adı bildiğiniz üzere "Us_SinifSubeTurAlanDal1_ddlSinifSube"