Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim metin As String = WebBrowser1.Document.Body.InnerHtml
MsgBox(InStr(metin, Me.TextBox4.Text))
End Sub
Bu kod ile TextBox4.Text yazılı harf yada kelimeyi açılan sitede aratıyorum ve sonuç olarak bana sayfadaki yerini söylüyor
İsteğim şudur: TextBox4.Text yazılı olanı açılan sitede işaretlesin istiyorum, çünkü sayfa baya uzun.
Teşekkürler
Explorer içinde seçili hale getirmek için biraz araştırmak lazım.
(31/05/2012, 10:35)alpeki99 yazdı: [ -> ]Explorer içinde seçili hale getirmek için biraz araştırmak lazım.
Vallahi sabırsızlıkla bekliyorum. Gayet önemli bi konu benim için
Teşekkürler
Şu ana kadar çok az ilgilenebildim ve aramalarımda çok verimli bir sonuç elde edemedim. WebBrowser soruları daha dar alanlı bir konu olduğundan çözüme ulaşmak zaman alabiliyor.
(31/05/2012, 15:51)alpeki99 yazdı: [ -> ]Şu ana kadar çok az ilgilenebildim ve aramalarımda çok verimli bir sonuç elde edemedim. WebBrowser soruları daha dar alanlı bir konu olduğundan çözüme ulaşmak zaman alabiliyor.
WebBrowser1.DocumentText = WebBrowser1.Document.Body.InnerHtml.Replace(Me.TextBox4.Text, "<span style='background-color: yellow'>" & Me.TextBox4.Text & "</span>")
Bu aslında sorunu çözüyor fakat butona basınca sayfa yapısını bozuyor. Önüne geçemedim.
<div> tag ının içinde aranacak yerler.. Sayfayı, sebebini çözmediğim bir olaydan dolayı scriptini bozuyor.
Scrip uyarısıda veriyor ama onu loada "WebBrowser1.ScriptErrorsSuppressed = True" yazarak çözdüm... Sayfanın kaynak kodlarını isterseniz verebilirim..
Teşekkürler