Haber ekranını almak

Sayın atoz112, önceki sürümden kastınız, access2003 mü,
eğer isterseniz access2003 olarak yeniden eklerim

Atoz hocanın ekledigi koddaki

   

Webbrowser3.Document.Body.Scroll = "no"

 

Kodunu benim eklediğim örnekteki

Private Sub Webbrowser3_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Kodunun içerisine yazmalısınız.

Benim örnekte webbrowserin adı webbrowser3. Atoz hocanın kodundaki denetim ismi webbrowser1.

Örneğe göre düzenleme yapmalısınız.

Sayın ates2014,

Her ne kadar sayın ozan bey,14.mesajda açıklamada bulunsa da,yazdığınızdan dolayı dahil olmak ve cevap vermiş olmak adına;

Alıntı:önceki sürümden kastınız, access2003 mü

ifadenize yönelik olarak;
“önceki sürüm” ifadelerine denk gelecek olursanız,biliniz ki kast edilen .MDB uzantılı dosyaya (2003’e) dönüştürülmüş hali olarak bahsi yapılmaktadır.


Son olarak;
konunuzun 10.mesajda yer alan örnek kod kalıbı,sadece uygulamanız incelenemediği için bu kod kalıbından hareket ile kendi kullandığınız WebBrowser ile değiştirmek sureti ile,ilgili WebBrowser’ın DocumentComplete olay yordamı içerisine

Webbrowser1.Document.Body.Scroll = "no"

Bu kodun dahil edilmesi yeterlidir.Bilginize…iyi çalışmalar,saygılar.

Sayın ozan, sizin örneginizde form üzerinde herhangi bir değişiklik yapılamıyor, sürekli çalışan birşeyler var gibi, kapatmak istesem bile yaklaşık 1 dakka sonra kapanıyor,
rica etsem benim örnek üzerinde düzenlemeler yapabilirmiyiz,

Sayın atoz112 örnek belgemi 2003 formatına çevirip ekledim, bilgilerinize...

Sayın ates2014,

Öncelikle;
yeterli zaman ve imkan olmaması nedeni ile,bir örnek çalışma üzerinde iletemiyorum kendi adıma,fakat,aşağıdaki açıklamaların yapılması uygun görülmüştür.

Konunuzun 10.,12.,14. ve 15.mesajlarında yazılı olan işlemleri yapmanız yeterlidir.Bunun için;


- uygulamanızı çalıştırıp açınız ve ALT + F11 tuşları ile kod sayfasına geçiniz.

- Kod sayfasının sağında yer alan ve kodların yazılı olduğu pencere üzerinde iki adet Açılan Kutu mevcut.önce,bunlardan soldakinin içerisinden Web Browser olarak tanımladığınız WebB’yi seçiniz.

- Ardından,sağdaki Açılan Kutu’dan da, DocumentComplete ifadesini seçiniz.Akabinde,

Private Sub WebB_DocumentComplete(ByVal pDisp As Object, URL As Variant)



End Sub

olarak ilgili olay yordamı boş halde belirecektir.Bunun içerisine,

WebB.Document.Body.Scroll = "no"

kod satırını yazınız.ya da,direkt olarak;

Private Sub WebB_DocumentComplete(ByVal pDisp As Object, URL As Variant)

WebB.Document.Body.Scroll = "no"

End Sub

yukarıdaki kodları olduğu gibi kod sayfasına ekleyiniz.Bilginize…iyi çalışmalar,saygılar.

Sayın atoz112, dediklerinizi yaptım, malesef birşey degişmedi,
uygulamalı örneği ekliyorum.
nerde hata yapıyorum acaba?