adaptivecontrol.vb

This is a book about vb.you could learn this from this book

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