Sayın atoz112, önceki sürümden kastınız, access2003 mü,
eğer isterseniz access2003 olarak yeniden eklerim
Haber ekranını almak
Atoz hocanın ekledigi koddaki
Kodunu benim eklediğim örnekteki
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.
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;
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
Bu kodun dahil edilmesi yeterlidir.Bilginize…iyi çalışmalar,saygılar.
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...
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,
olarak ilgili olay yordamı boş halde belirecektir.Bunun içerisine,
kod satırını yazınız.ya da,direkt olarak;
yukarıdaki kodları olduğu gibi kod sayfasına ekleyiniz.Bilginize…iyi çalışmalar,saygılar.
Ö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?
uygulamalı örneği ekliyorum.
nerde hata yapıyorum acaba?
Konuyu Okuyanlar: 1 Ziyaretçi