controlcaps.vb
来自「asp.net技术内幕的书配源码」· VB 代码 · 共 27 行
VB
27 行
Imports System
Imports System.Web
Imports System.Web.UI
Namespace myControls
Public Class ControlCaps
Inherits Control
Overrides Protected Sub Render( objTextWriter As HtmlTextWriter )
Dim strBrowserType As String
Dim strVersion As String
Dim blnJavascript As Boolean
strBrowserType = Context.Request.Browser.Browser
strVersion = Context.Request.Browser.Version
blnJavascript = Context.Request.Browser.Javascript
objTextWriter.WriteLine( "<li> Browser: " & strBrowserType )
objTextWriter.WriteLine( "<li> Version: " & strVersion )
objTextWriter.WriteLine( "<li> Javascript: " & blnJavascript.ToString() )
End Sub
End Class
End Namespace
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?