?? openwindow.vb
字號:
Imports System.ComponentModel
Imports System.Web.UI
<DefaultProperty("Text"), ToolboxData("<{0}:OpenWindow runat=server></{0}:OpenWindow>")> Public Class OpenWindow
Inherits System.Web.UI.WebControls.Button
' 用來設置鏈接的Url
Private mNavigateUrl As String9:44 2002-9-12
' 用來設置新開窗口的高寬與起始位置
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -