adaptivecontrol.vb

来自「This is a book about vb.you could learn 」· VB 代码 · 共 47 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.ComponentModel

Namespace WroxControls 

	Public Class AdaptiveControl
			Inherits WebControl

		Overrides Protected Sub Render( objWriter As HtmlTextWriter )
		
			objWriter.Write("<BR>")
			objWriter.Write("Browser is: ")
			objWriter.Write(Page.Request.Browser.Browser )
			objWriter.Write("<BR>")

			objWriter.Write("Browser version is: ")
			objWriter.Write(Page.Request.Browser.Version )
			objWriter.Write("<BR>")

			If Page.Request.Browser.JavaScript = True Then
				objWriter.Write("Browser supports JavaScript")
			End If

			If Page.Request.Browser.VBScript = True Then
				objWriter.Write("Browser supports VBScript")
			End If

			If Page.Request.Browser.Browser = "IE" Then
				objWriter.Write("<BR>IE rocks!")
			End If

			If Page.Request.Browser.Browser = "Netscape" Then
				objWriter.Write("<BR>Netscape rolls!")
			End If


			objWriter.Write("<BR>Client target is " + Page.ClientTarget )
		
		End Sub
         
	End Class

End Namespace