AccessTr.neT
Web Ekran Görüntüsü Hk. - Baskı Önizleme

+- 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 Ekran Görüntüsü Hk. (/konu-web-ekran-goruntusu-hk.html)



Web Ekran Görüntüsü Hk. - serkan1985 - 04/07/2021

Herkese merhaba ekte olan uygulamada web sitesine bağlantı yapılabiliyor buraya kadar hiç sorun yok ancak ben form açılışında ekran resmi paylaştığım gibi alt tarafta olan detaylı hava durumun yukarıya kaydırarak gelmesini istedim ama olmadı. Hada durumu detaylı olan ekran her açılışında sol ve ust ayarı yapılarak gelebilir mi?

[Resim: do.php?img=11131]


RE: Web Ekran Görüntüsü Hk. - berduş - 04/07/2021

aşağıdaki kodları dener misiniz?
form_open/form_açıldığında olayında ufak bir iki ayarlama yaptım
form açılırken zamanlayıcı 0,5 saniye aralıklarla çalışıp sayfanın yüklenip yüklenmediğini kontrol eden fonksiyonu çalıştırıyor
Private Sub Form_Open(Cancel As Integer)

Dim myRegKey As String

    Me.WebBrowser9.Navigate ("https://yandex.com.tr/hava/bursa")
    Me.WebBrowser9.Silent = True
   
    myRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\msaccess.exe"
    If RegKeyExists(myRegKey) = True Then GoTo cık  '<== değişen
   
    If RegKeyExists(myRegKey) = False Then
        myValue = RegKeyRead(myRegKey)
        RegKeySave myRegKey, "69633"
    End If
cık: '<== eklenen
    Me.TimerInterval = 500 '<== eklenen
End Sub
aşağıdaki kod yarım saniye aralıklarla webBrowserın durumuna bakıyor, eğer yüklenmişse yani WebBrowser9.Object.ReadyState = 4  ise zamanlayıcıyı kapatıp kaydırmayı yapıyor
Me.WebBrowser9.Object.Document.parentwindow.scroll 0, 400 ben burada dikey kaydırmayı 400 yaptım ama siz isterseniz size uygun sayıyı deneme yanılma yoluyla bulabilirsiniz
Private Sub Form_Timer()
    If WebBrowser9.Object.ReadyState = 4 Then
        Me.TimerInterval = 0
        Me.WebBrowser9.Object.Document.parentwindow.scroll 0, 400
    End If
End Sub
lütfen konuları açarken daha dikkatli olalım.
sorular, sorular kısmına açılmadığı zaman dikkatten kaçabilir


RE: Web Ekran Görüntüsü Hk. - serkan1985 - 04/07/2021

Özür dilerim dikkat etmemişim uyarınız için teşekkürler bir daha ki konuda dikkat ederim halil bey emeğinize sağlık tam düşündüğüm gibi olmuş bişey daha rica etsem açtığımda üste kaydı sola kaydır alanını gizleyemedim web tarayıcısında gizlenebiliyor ama burda yapamadım bir yolu varmıdır acaba?


RE: Web Ekran Görüntüsü Hk. - berduş - 04/07/2021

O konuda bir bilgim, yok araştırırım.
Not: Her soru icin yeni konu açmanız daha uygun olur, devam niteliğinde bile olsa farklı soruların aynı başlık altında sorulması sıkıntı doğuruyor.


RE: Web Ekran Görüntüsü Hk. - serkan1985 - 04/07/2021

Tamamdır halil bey bu durumu yeni konu olarak açıyorum teşekkürler :+rep +rep


RE: Web Ekran Görüntüsü Hk. - berduş - 04/07/2021

rica ederim
iyi çalışmalar)