openweb.vb

Visual Basic.NET精彩编程百例 第七章源码

Imports System.ComponentModel
Imports System.Web.UI

<DefaultProperty("Text"), ToolboxData("<{0}:OpenWeb runat=server></{0}:OpenWeb>")> Public Class OpenWeb
    Inherits System.Web.UI.WebControls.Button
    ' 用来设置链接的Url
    Private mNavigateUrl As String
    ' 用来设置新开窗口的高宽与起始位置
    Private mWHeight As Integer = 100
    Private mWWidth As Integer = 100
    Private mWTop As Integer = 100
    Private mWLeft As Integer = 100

    Public Property NavigateUrl() As String
        Get
            Return mNavigateUrl
        End Get
        Set(ByVal Value As String)
            mNavigateUrl = Value
        End Set
    End Property

    Public Property WHeight() As Integer
        Get
            Return mWHeight
        End Get
        Set(ByVal Value As Integer)
            mWHeight = Value
        End Set
    End Property

    Public Property WWidth() As Integer
        Get
            Return mWWidth
        End Get
        Set(ByVal Value As Integer)
            mWWidth = Value
        End Set
    End Property

    Public Property WTop() As Integer
        Get
            Return mWTop
        End Get
        Set(ByVal Value As Integer)
            mWTop = Value
        End Set
    End Property

    Public Property WLeft() As Integer
        Get
            Return mWLeft
        End Get
        Set(ByVal Value As Integer)
            mWLeft = Value
        End Set
    End Property

    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
        MyBase.Render(output)
    End Sub

    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)

        Dim strFeatures As String = _
            "'height=" & Me.WHeight.ToString & _
            ";width=" & Me.WWidth.ToString & _
            ";left=" & Me.WLeft.ToString & _
            ";top=" & Me.WTop.ToString & ";'"
        Dim strScript As String
        MyBase.OnClick(e)
        If Me.NavigateUrl <> "" Then
            strScript &= "<script language=javascript>"
            strScript &= "window.open('" & Me.NavigateUrl & "',''," & strFeatures & ");"
            strScript &= "</script>"
            Page.Response.Write(strScript)
        End If
    End Sub

End Class