NASýL YAPýLýR: Geniþlik ve Yükseklik window.open() bir WebBrowser Host iç'dan Visual Basic .NET kullanarak Al

Üste

Gereksinimler

• Microsoft Visual Studio. NET'i
• Microsoft ýnternet Explorer 5.5 Service Pack 2 veya sonraki sürümü

Üste

Örnek oluþturma

1. Yeni bir Windows uygulamasý, Visual Basic'te aþaðýdaki gibi oluþturursunuz:
   1. Visual Studio .NET'i baþlatýn.
   2. Dosya menüsünde Yeni ' nin üzerine gelin ve sonra Project ' i týklatýn.
   3. Project Types altýnda Visual Basic Projeleri) týklatýn. Þablonlarý altýnda Windows uygulamasý) týklatýn.
2. Araç, Genel ' i týklatýn, araç kutusunda sað týklatýn ve sonra Toolbox ' ý týklatýn.
3. COM bileþenleri sekmesinde <a0>Microsoft Web tarayýcýsý</a0> onay kutusunu seçin ve Tamam ' ý týklatýn.
4. Araç kutusunda, proje gezgininde çift pencere.
5. Bir Düðme denetimi ve bir TextBox denetimi forma ekleyin.
6. Düðmenin onClick olay uygulama kod penceresinde görüntülemek için düðmeyi çift týklatýn ve sonra aþaðýdaki kodu ekleyin:

       Private Sub Button1_Click(ByVal sender As System.Object, _
           ByVal e As System.EventArgs) Handles Button1.Click
               AxWebBrowser1.Navigate(TextBox1.Text)
       End Sub
   						

   bu kod, metin kutusunda belirttiðiniz URL'ye gözatmanýza olanak tanýr.
7. Iþleyici iþlevi için NewWindow2 yazmak için aþaðýdaki kodu ekleyin:

       Private Sub AxWebBrowser1_NewWindow2(ByVal sender As Object, _
           ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) _
           Handles AxWebBrowser1.NewWindow2
               Dim frmWB As Form1
               frmWB = New Form1()
   
               frmWB.AxWebBrowser1.RegisterAsBrowser = True
               e.ppDisp = frmWB.AxWebBrowser1.Application
               frmWB.Visible = True
       End Sub
   					

8. Iþleyici iþlevi için WindowSetHeight yazmak için aþaðýdaki kodu ekleyin:

       Private Sub AxWebBrowser1_WindowSetHeight(ByVal sender As Object, _
           ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetHeightEvent) _
           Handles AxWebBrowser1.WindowSetHeight
               Dim heightDiff As Integer
               heightDiff = Me.Height - Me.AxWebBrowser1.Height
               Me.Height = heightDiff + e.height
       End Sub
   					

9. Iþleyici iþlevi için WindowSetWidth yazmak için aþaðýdaki kodu ekleyin:

       Private Sub AxWebBrowser1_WindowSetWidth(ByVal sender As Object, _
           ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetWidthEvent) _
           Handles AxWebBrowser1.WindowSetWidth
               Dim widthDiff As Integer
               widthDiff = Me.Width - Me.AxWebBrowser1.Width
               Me.Width = widthDiff + e.width
       End Sub
   					

Üste

Tam bir kod örneði

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "
    'Omitted
#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
            AxWebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub AxWebBrowser1_NewWindow2(ByVal sender As Object, _
        ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) _
        Handles AxWebBrowser1.NewWindow2
            'MessageBox.Show(AxWebBrowser1.Height & ":" & AxWebBrowser1.Width)

            'MessageBox.Show(doc.body.innerHTML)
            Dim frmWB As Form1
            frmWB = New Form1()

            frmWB.AxWebBrowser1.RegisterAsBrowser = True
            'frmWB.AxWebBrowser1.Navigate2("about:blank")
            e.ppDisp = frmWB.AxWebBrowser1.Application
            frmWB.Visible = True
            'MessageBox.Show(frmWB.AxWebBrowser1.Height & ":" & frmWB.AxWebBrowser1.Width)
    End Sub

    Private Sub AxWebBrowser1_WindowSetHeight(ByVal sender As Object, _
        ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetHeightEvent) _
        Handles AxWebBrowser1.WindowSetHeight
            'MessageBox.Show("In SetHeight" & Me.Height & ":" & e.height)
            Dim heightDiff As Integer
            heightDiff = Me.Height - Me.AxWebBrowser1.Height
            Me.Height = heightDiff + e.height
    End Sub

    Private Sub AxWebBrowser1_WindowSetWidth(ByVal sender As Object, _
        ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetWidthEvent) _
        Handles AxWebBrowser1.WindowSetWidth
            'MessageBox.Show("In SetWidth" & Me.Width & ":" & e.width)
            Dim widthDiff As Integer
            widthDiff = Me.Width - Me.AxWebBrowser1.Width
            Me.Width = widthDiff + e.width
    End Sub

End Class
				

Üste

It Works That doðrulayýn.

1. Uygulamayý oluþturun.
2. Not Defteri'nde açýn. Test.htm adlý yeni bir dosya oluþturun ve aþaðýdaki kodu ekleyin:

   <HTML>
   <HEAD>
   <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
   <TITLE></TITLE>
   <script>
   	function openWin()
   	{
   		var win;
   		win = window.open("http://www.microsoft.com","blah","width=600, height=600");
   	}
   </script>
   </HEAD>
   <BODY>
   <button onClick=openWin()>Open Window</button>
   </BODY>
   </HTML>
   					

3. Test.htm Web sunucunuzda kaydedin.
4. Uygulamayý çalýþtýrýn.
5. Test.htm sayfasýna gidin ve sonra düðmeyi týklatýn. Uygulamayý yeni bir örneðini kuruluþ) Microsoft Web sitesini açar dikkat edin. Form için window.open yapýlan çaðrý ile geçirilen özellikleri göre yeniden boyutlandýrýlýr.

Üste