Page1 page2 arasında geçiş yaparken sürekli çalışan kod hatası

[harziyan]

Formuma yerleştirdiğim multipage nesnesinin page2 kısmına bir webbrowser ekledim ve aşağıdaki kodu yazdım.

Private Sub MultiPage1_change()
If MultiPage1.Value = 1 Then
WebBrowser1.Navigate ("http://cks.tarim.gov.tr")
End If
End Sub

ancak form ilk açıldığından page1'den page2'ye geçerken problemsiz olan kodum, yeniden page1'e geçip page2'ye döndüğümde hata veriyor.
Sizden istirhamım page2'deki webrowserdaki adresin bir kez açıldığından o şekilde kalması ya da form sıfırdan açılırken bu sayfanın formla beraber açılması ve açık kalması.

Dosyam ekte.

 

[tufan03]

Sayın Harziyan aynı sorunu bende yaşadım,en sonunda WebBrowser'yi başka bir forma alıp bir butonla formdan forma geçiş yaparak hallettim. İkinci formda kaybolmuyor.

 

[halit3]

eklemiş olduğun dosya veri kayıbı yüzünden açılmıyor

 

[halit3]

bunu denermisiniz

Private Sub MultiPage1_Click(ByVal Index As Long)
If MultiPage1.Pages(Index) = 2 Then
WebBrowser1.Navigate ("http://cks.tarim.gov.tr")
Else
End If
End Sub

yada

Private Sub MultiPage1_Click(ByVal Index As Long)
MsgBox (Index) + 1
If (Index) + 1 = 2 Then
WebBrowser1.Navigate ("http://cks.tarim.gov.tr")
Else
End If
End Sub

 

[harziyan]

Sayın Harziyan aynı sorunu bende yaşadım,en sonunda WebBrowser'yi başka bir forma alıp bir butonla formdan forma geçiş yaparak hallettim. İkinci formda kaybolmuyor.

Sayın hocam ayrı bir form açıldıktan sonra benim çalışmam gereği bu işin pek de gerekliliği kalmıyor. Yine de zahmetiniz için teşekkür ederim.

eklemiş olduğun dosya veri kayıbı yüzünden açılmıyor

özür dilerim anlayamadım. ben sizden sonra yeniden indirdim bi sorun çıkmadı, rica etsem bir kez daha deneyebilir misiniz?

 

[halit3]

indirmede sorun yok iniyor ama dosya açılmıyor

yada bunu deneyiniz

Private Sub MultiPage1_Click(ByVal Index As Long)
MsgBox (Index) + 1
If (Index) + 1 = 2 Then
WebBrowser1.Navigate ("http://cks.tarim.gov.tr")
Else
End If
End Sub

 

[harziyan]

Private Sub MultiPage1_Click(ByVal Index As Long)
If MultiPage1.Pages(Index) = 2 Then
WebBrowser1.Navigate ("http://cks.tarim.gov.tr")
Else
End If
End Sub

hocam bu yukarıda verdiğiniz kodun hatası

Private Sub MultiPage1_Click(ByVal Index As Long)
MsgBox (Index) + 1
If (Index) + 1 = 2 Then
WebBrowser1.Navigate ("http://cks.tarim.gov.tr")
Else
End If
End Sub

bu da yine verdiğiniz diğer kodun hatası

bir göz atın belki bi işinize yarar dolayısıyla benim işime

 

[halit3]

dosyayı yeniden koyarsanız bakıyım yukarıdaki dosyayı indiriyorum fakat açılmıyor

 

[harziyan]

hocam ilk mesajımdaki dosyayı sildim yenisini ekledim.

 

[halit3]

dosyayı gene acamıyorum

 

[harziyan]

hocam zahmet olmazsa bir de dosyayı olduğu gibi rapide attım linki http://rapidshare.com/files/194714161/YESIL2009.xls.html

 

[halit3]

gene açılmıyor
sen dosyanı makrosuz aç ve kayit et kapat sonra o dosyayı gönder

 

[harziyan]

hocam araya hafta sonu girdi onun için konuyla ilgilenemedim kusura kalmayın. buyrun dosyayı.

 

[halit3]

sen sadece user formu başka bir excel sayfasına al form uzerindeki nesneleride koy öyle gönder dosya açılmıyor ve devamlı hata roporu veriyor yada açılışdaki makroları iptal etde gönder

 

[harziyan]

Ya Hocam sabrınız için gerçekten teşekkürler. Yeni aklıma geldi. bu işi denemek için illaki orjinal dosyama gerek yok. Ben ekteki dosyada multipage nesnesi eklediğim bir formun page2'sine webbrowser koydum.

 

[halit3]

uğraşıyorum beceremedim multi page1 den bage2 geçişte nesne kayboluyor birazcık uğraşmak gerekiyor

 

[halit3]

farklı bir yaklaşımla yapılabiliyor nesneyi multi page nin altına vizible seçeneği false olarak ekleyince multi page2 tıklayınca geliyor diğer page leri tıklayınca gidiyor şimdilik küçücük çözüm

 

[harziyan]

vallahi çok güzel ya. akıl akıldan üstündür diyen bişey bildiğinden demiş demek ki. Hocam ben mesajınızı tam okumadan direk eki indirip hemen baktım sistem çalışıyor ama ortada webbrowser yok. yahu diyom bu adam bunu nasıl yapmış sonra mesajınızı okuyunca meseleyi kavradım. Teşekkürler hocam bununla da idare ederiz. yeterki iş görsün. k::

hakikaten ii sabır varmış hocam sizde.;-)

 

[harziyan]

Sn Hocam son verdiğiniz dosyada; örneğin ben googleda arama yaptıktan sonra bir önceki sayfaya dönüp tekrar webbrowserın olduğu yere dönünce sıfırdan google'nin ana sayfası yeniden açılıyordu.
Acaba yukarıdaki dosyadaki webbrowser'a, son girdiğim sitede kalması şartı ekleyebilir miyiz?