+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Webbrowser Otomotik Buton Tıklama (/konu-webbrowser-otomotik-buton-tiklama.html)
Webbrowser Otomotik Buton Tıklama - mustinba - 28/11/2018
PHP Kod:
<td id="IOMToolbarActive1_kaydet_b" width="25"><img src="../../images/toolimages/save.jpg" *****cursor:hand;CURSOR:pointer;" alt="Kaydet" onmouseover="this.src='../../images/toolimages/save_a.jpg'" onmouseout="this.src='../../images/toolimages/save.jpg'" onclick="return AlanKontrolveKayit();" border="0"></td>
HTML.getElementById("IOMToolbarActive1_kaydet_b").Click bu nu denedim olmadı.
Cvp: Webbrowser Otomotik Buton Tıklama - ozanakkaya - 29/11/2018
Örneğini ekle, bizde deneyelim.
Cvp: Webbrowser Otomotik Buton Tıklama - mustinba - 29/11/2018
(29/11/2018, 00:10)ozanakkaya yazdı: Örneğini ekle, bizde deneyelim.
Cvp: Webbrowser Otomotik Buton Tıklama - ozanakkaya - 29/11/2018
Referanslara "microsoft Html object library" referansını ekle, butonun tıklandığında olayına aşağıdaki kodu ekle.
Dim HTMLDoc As HTMLDocument
Dim TDelement As Variant
Set HTMLDoc = WebBrowser1.Document
For Each TDelement In HTMLDoc.getElementsByTagName("img")
If TDelement.alt = "Kaydet" Then
TDelement.Click
End If
Next
Cvp: Webbrowser Otomotik Buton Tıklama - mustinba - 29/11/2018
(29/11/2018, 11:05)ozanakkaya yazdı: Referanslara "microsoft Html object library" referansını ekle, butonun tıklandığında olayına aşağıdaki kodu ekle.
Dim HTMLDoc As HTMLDocument
Dim TDelement As Variant
Set HTMLDoc = WebBrowser1.Document
For Each TDelement In HTMLDoc.getElementsByTagName("img")
If TDelement.alt = "Kaydet" Then
TDelement.Click
End If
Next
Teşekkürler iyi çalışmalar.