+- 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ığı: Web Browser Otomatik Yenileme Hk. (/konu-web-browser-otomatik-yenileme-hk.html)
RE: Web Browser Otomatik Yenileme Hk. - serkan1985 - 06/07/2021
Hayır sürekli sabit içeriğe tıklayıp F5 yaptığımda değişiyor birde resimde ki hata çıkmaya başladı.
Hata ile ilg sorun kodda bulup düzelttim sadece yenileme sorunu devam ediyor yani bir türlü sayfa yeniden yükleme yapmıyor.
RE: Web Browser Otomatik Yenileme Hk. - ozanakkaya - 06/07/2021
Merhaba, timeinterval koduna, sayfayı tekrar yükleyen kodu eklediğinizde güncel sayfa gelmiyor mu?
RE: Web Browser Otomatik Yenileme Hk. - serkan1985 - 06/07/2021
Ozan bey merhaba sendkeys "{F5}" kodu eklendiğinde sayfayı yeniden yüklemiyor farklı bir kod değil sanırım bahsettiğiniz.
RE: Web Browser Otomatik Yenileme Hk. - ozanakkaya - 06/07/2021
(06/07/2021, 18:39)serkan1985 yazdı: Ozan bey merhaba sendkeys "{F5}" kodu eklendiğinde sayfayı yeniden yüklemiyor farklı bir kod değil sanırım bahsettiğiniz.
WebBrowser.Navigate "http:\\accesstr.net"şeklindeki koddan bahsediyorum. Bu kod tekrar çalıştırıldığında güncel sayfa yüklenmiyor mu?
RE: Web Browser Otomatik Yenileme Hk. - berduş - 06/07/2021
yalnız şimdi yine denedim 1 dk olarak ayarladım aralığı, sayfayı yeniliyor. hatta sayfadaki saat ve güncel saat aralığı da değişiyor o anki saati dakikasına kadar gösteriyor
10 günlük tahmin kısmı zaten günlük en yüksek ve düşük sıcaklığı gösterdiğinden çok değişmemesi normal ama sayfayı yeniliyor
RE: Web Browser Otomatik Yenileme Hk. - berduş - 06/07/2021
yenileme kodunu F5 yerine Me.WebBrowser9.Refresh olarak güncelledim
F5 sayı kilidini açıp kapatıyordu o nedenle de değiştirdim
Private Sub Form_Timer()
If WebBrowser9.Object.ReadyState = 4 Then
Me.TimerInterval = 60000 ' süre ayarı 15 dk' 15 * 60 * 1000=90000
Me.WebBrowser9.Refresh '<== Değişen'
Me.WebBrowser9.Object.Document.parentwindow.scroll 0, 400
End If
End Sub