ToggleButton'larla çalışan Webbrowser'lardaki "bring forward" sorunu!

[harziyan]

Merhabalar;
Ekli dosyamdaki form üzerinde 2 ayrı ToggleButton ile çalışan ve koordinatları aynı olan 2 adet webbrowser var.

İlk kez "Haber7" sayfasını açan ToggleButtona bastığımda ilgili webbrowser "Haber7"yi açıyor ve işimi yapıyorum.

Ancak "haber7"yi açıp kapattıktan sonra İkinci ToggleButton ile çalışan google sayfasına geldiğimde ise google açılıyor ancak sayfa üzerinde işlem yapamıyorum.

Sanki webbrowser'ların arkasında kalan diğer form ögeleri ön plana çıkıyor gibi ama görüntüde webbrowser görüntüsü var. Webbrowserları "bring forward" ederek öne almaya çalıştım ama o da olmadı gibi!

Sizce bu problemi nasıl aşabilirim?

 

[halit3]

Alternatif olarak aşağıdaki kodları denermisiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton3.Value = False
WebBrowser1.navigate ("http://www.google.com")
WebBrowser1.Left = 6
WebBrowser1.Top = 44
WebBrowser1.Width = 780
WebBrowser1.Height = 280
WebBrowser1.Visible = True
Else
WebBrowser1.navigate ("")
WebBrowser1.Left = 414
WebBrowser1.Top = 474
WebBrowser1.Width = 18
WebBrowser1.Height = 15
WebBrowser1.Visible = False
End If
End Sub
Private Sub ToggleButton3_Click()


If ToggleButton3.Value = True Then
ToggleButton1.Value = False
WebBrowser1.navigate ("http://www.haber7.com")
WebBrowser1.Left = 6
WebBrowser1.Top = 44
WebBrowser1.Width = 780
WebBrowser1.Height = 280
WebBrowser1.Visible = True
Else
WebBrowser1.navigate ("")
WebBrowser1.Left = 414
WebBrowser1.Top = 474
WebBrowser1.Width = 18
WebBrowser1.Height = 15
WebBrowser1.Visible = False
End If

End Sub

 

[harziyan]

Üstadım ilgilendiğin için teşekkür ederim. Bu yöntemle ToggleButton aktif-deaktif olurken yeniden "navigate" yaparsa, yapılan sorgulama bilgileri her defasında kaybolacak. Benim ToggleButtonları kullanmaktaki gayem de esasen, mevcut sorgulama açık kalsın, ToggleButton her aktif-deaktif edildiğinde o sayfadaki bilgileri görebileyim!

 

[halit3]

Üstadım ilgilendiğin için teşekkür ederim. Bu yöntemle ToggleButton aktif-deaktif olurken yeniden "navigate" yaparsa, yapılan sorgulama bilgileri her defasında kaybolacak. Benim ToggleButtonları kullanmaktaki gayem de esasen, mevcut sorgulama açık kalsın, ToggleButton her aktif-deaktif edildiğinde o sayfadaki bilgileri görebileyim!

WebBrowser1 ve WebBrowser2 nesnelerinini Visible özelliklerini true yapın.

UserForm_Initialize

aşağıdaki kod ile değiştirin.

Private Sub UserForm_Initialize()
Dim hwnd As Long
Sheets("liste").Select
ListBox1.ColumnCount = 42
ListBox1.ColumnWidths = "85;100;100;100;85;120;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;100"
ListBox1.RowSource = "B2:Ap" & [b65536].End(3).Row
ListBox1.Selected(ListBox1.ListCount - 1) = True
CommandButton2.Enabled = False
CommandButton3.Enabled = False
On Error Resume Next
WebBrowser1.navigate ("http://www.google.com")
WebBrowser2.navigate ("http://www.haber7.com")
WebBrowser1.Width = 0
WebBrowser1.Height = 0
WebBrowser2.Width = 0
WebBrowser2.Height = 0
End Sub

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
WebBrowser1.Left = 6
WebBrowser1.Top = 44
WebBrowser1.Width = 780
WebBrowser1.Height = 280
End If
If ToggleButton1.Value = False Then
WebBrowser1.Left = 414
WebBrowser1.Top = 474
WebBrowser1.Width = 0
WebBrowser1.Height = 0
End If
End Sub
Private Sub ToggleButton3_Click()

If ToggleButton3.Value = True Then
WebBrowser2.Left = 6
WebBrowser2.Top = 44
WebBrowser2.Width = 780
WebBrowser2.Height = 280
WebBrowser2.Visible = True
End If
If ToggleButton3.Value = False Then
WebBrowser2.Left = 438
WebBrowser2.Top = 474
WebBrowser2.Width = 0
WebBrowser2.Height = 0
End If
End Sub

 

[harziyan]

Üstadım tam istediğim gibi oldu, Allah Razı Olsun senden, çok teşekkür ederim, emeğine sağlık.
Bir şey sormak istiyorum, bu dosya üzerinde çalışırken hiç "excel çalışmayı durdurdu" hatası aldınız mı ya da çalışma sayfası bembeyaz oldu mu?