Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim UCDynamic As Control
'WebUserControl.ascx : User Control path
UCDynamic = LoadControl("WebUserControl.ascx")
PlaceHolder1.Controls.Add(UCDynamic)
End Sub
IF OBJECTPROPERTY( OBJECT_ID( '[dbo].[Employee]' ), 'TableHasPrimaryKey' ) = 1 PRINT '[dbo].[Employee] table has a primary key.' ELSE PRINT '[dbo].[Employee] table has no primary key.'
// Declaring valid date character, minimum year and maximum year
var dtCh= "/";
var minYear=1900;
var maxYear=2100;
function isInteger(s)
{
var i;
for (i = 0; i <>
{
// Check that current character is number.
var c = s.charAt(i);
if (((c < "0") || (c > "9"))) return false;
}
// All characters are numbers.
return true;
}
function stripCharsInBag(s, bag)
{
var i;
var returnString = "";
// Search through string's characters one by one.
// If character is not in bag, append to returnString.
for (i = 0; i <>
{
var c = s.charAt(i);
if (bag.indexOf(c) == -1) returnString += c;
}
return returnString;
}
function daysInFebruary (year)
{
// February has 29 days in any year evenly divisible by four,
// EXCEPT for centurial years which are not also divisible by 400.
return (((year % 4 == 0) && ( (!(year % 100 == 0)) || (year % 400 == 0))) ? 29 : 28 );
}
function DaysArray(n)
{
for (var i = 1; i <= n; i++)
{
this[i] = 31
if (i==4 || i==6 || i==9 || i==11) {this[i] = 30}
if (i==2) {this[i] = 29}
}
return this
}
function isDate(dtStr)
{
var daysInMonth = DaysArray(12)
var pos1=dtStr.indexOf(dtCh)
var pos2=dtStr.indexOf(dtCh,pos1+1)
var strMonth=dtStr.substring(0,pos1)
var strDay=dtStr.substring(pos1+1,pos2)
var strYear=dtStr.substring(pos2+1)
strYr=strYear
if (strDay.charAt(0)=="0" && strDay.length>1)
strDay=strDay.substring(1)
if (strMonth.charAt(0)=="0" && strMonth.length>1)
strMonth=strMonth.substring(1)
for (var i = 1; i <= 3; i++)
{
if (strYr.charAt(0)=="0" && strYr.length>1)
strYr=strYr.substring(1)
}
month=parseInt(strMonth)
day=parseInt(strDay)
year=parseInt(strYr)
if (pos1==-1 || pos2==-1)
{
alert("The date format should be : mm/dd/yyyy")
return false
}
if (strMonth.length<1>12)
{
alert("Please enter a valid month")
return false
}
if (strDay.length<1>31 || (month==2 && day>daysInFebruary(year)) || day > daysInMonth[month])
{
alert("Please enter a valid day")
return false
}
if (strYear.length != 4 || year==0 || yearmaxYear)
{
alert("Please enter a valid 4 digit year between "+minYear+" and "+maxYear)
return false
}
if (dtStr.indexOf(dtCh,pos2+1)!=-1 || isInteger(stripCharsInBag(dtStr, dtCh))==false)
{
alert("Please enter a valid date")
return false
}
return true
}
function ValidateForm()
{
var dt;
dt=document.getElementById('txtDate');
if (isDate(dt.value)==false)
{
dt.focus()
return false
}
return true
}
Partial Class SelectWeekEnds Inherits System.Web.UI.Page Dim btnclick As Boolean = False Protected Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender Dim ctl As New CheckBox ctl.ID = "chk" & e.Day.Date.ToString.Substring(0, 10) If btnclick = True Then If CInt(e.Day.Date.DayOfWeek) = 0 Or CInt(e.Day.Date.DayOfWeek) = 6 Then ctl.Checked = True End If End If e.Cell.Controls.Add(ctl) End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click btnclick = True End Sub End Class
Partial Class SelectWeekEnds Inherits System.Web.UI.Page Protected Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender Dim ctl As New CheckBox ctl.ID = "chk" & e.Day.Date.ToString.Substring(0, 10) e.Cell.Controls.Add(ctl) End Sub End Class
function isNumberEvt(evt)
{
var charCode = (evt.which) ? evt.which : event.keyCode
if ((charCode > 31 && charCode <> 57 && charCode <> 90 && charCode <> 122))
return false;
return true;
}asp:textbox id="TextBox1" onkeypress="return isNumberEvt(event)" runat="server" width="238px"
Partial Class frmChkInternetConnection
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If fnChkInternetConn() Then
Response.Write("Congrats ! Internet Connection is Available.")
Else
Response.Write("Sorry ! Internet Connection is not Available.")
End If
End Sub
Public Function fnChkInternetConn() As Boolean
Dim objreq As System.Net.HttpWebRequest
Dim objres As System.Net.HttpWebResponse
Try
objreq = CType(System.Net.HttpWebRequest.Create("http://www.google.com"), System.Net.HttpWebRequest)
objres = CType(objreq.GetResponse(), System.Net.HttpWebResponse)
objreq.Abort()
If objres.StatusCode = System.Net.HttpStatusCode.OK Then
Return True
End If
Catch weberrt As System.Net.WebException
Return False
Catch except As Exception
Return False
End Try
End Function
End Class
function isDigit(evt)
{
var charCode = (evt.which) ? evt.which : event.keyCode
if (charCode > 47 && charCode < 58)
{
return true;
}
else
{
return false;
}
}asp:textbox id="TextBox1" onkeyup="return isDigit(event)" runat="server" width="238px"
function CheckLength(obj,Length)
{
if (obj.value.length>Length)
{
alert("Exceeding Maximum " + Length +" Characters")
obj.focus()
obj.select()
}
} asp:textbox id="TextBox1" onkeyup="CheckLength(this,5)" runat="server" width="238px"
function Validatenumber(obj)
{
if (obj.length !=0)
{
var text = /^[-0-9]+$/;
if ((document.getElementById(obj.id).value != "") && (!text.test(document.getElementById(obj.id).value)))
{
alert("Please enter numeric values only");
obj.focus();
obj.select();
}
}
}
function ValidateYear(obj)
{
if (obj.length !=0)
{
var text = /^[0-9]+$/;
if ((document.getElementById(obj.id).value != "") && (!text.test(document.getElementById(obj.id).value)))
{
alert("Please Enter Numeric Values Only");
obj.focus();
obj.select();
}
if (document.getElementById(obj.id).value.length>4)
{
alert("Year is not proper. Please check");
obj.focus();
obj.select();
}
}
}
function reverseStr(str)
{
if (!str) return; // nothing to change
var rstr = '';
for (i=str.length-1;i>=0;i--)
{
rstr += str.charAt(i);
}
return rstr;
}
ChkDecimalNumbers(txtNo,e,2,3)
Shared Sub ChkDecimalNumbers(ByVal ctxt As TextBox, ByVal x As System.Windows.Forms.KeyPressEventArgs, ByVal bfrDec As Int16, ByVal aftDec As Int16)
If (Char.IsControl(x.KeyChar) Or Char.IsDigit(x.KeyChar) = True) Or x.KeyChar = "." Or Asc(x.KeyChar) = 8 Then
If ctxt.Text.IndexOf(".") <> -1 Then
If x.KeyChar = "." Then
x.Handled = True
End If
If ctxt.SelectionStart >= 0 And Asc(x.KeyChar) <> 8 Then
If (((Mid(ctxt.Text, ctxt.Text.IndexOf(".") + 1).Length > aftDec And ctxt.SelectionStart > ctxt.Text.IndexOf(".")) Or (Mid(ctxt.Text, 1, ctxt.Text.IndexOf(".") + 1).Length > bfrDec And ctxt.SelectionStart < selectionlength = 0))) Then
x.Handled = True
End If
End If
Else
If (aftDec = 0 And x.KeyChar = ".") Or (((Mid(ctxt.Text, 1).Length > bfrDec - 1 And x.KeyChar <> "." And Asc(x.KeyChar) <> 8) Or (ctxt.SelectionStart > bfrDec And x.KeyChar.ToString.Equals("."))) And ctxt.SelectionLength = 0) Then
x.Handled = True
End If
End If
Else
x.Handled = True
End If
End Sub
Shared Function ChkBlank(ByVal CTxt As TextBox, ByVal CTxtNam As String) As Boolean If Len(CTxt.Text.Trim()) > 0 Then CTxt.Text = UCase(CTxt.Text) Return True Else MessageBox.Show(CTxtNam & " Can Not Be Blank", "Notification", MessageBoxButtons.OK, MessageBoxIcon.Warning) CTxt.Focus() Return False End If End Function
Public Function fnDetectBrowserCapabilities() As Boolean Try Dim strBrowser As String = String.Empty Dim intVersion As Int16 = 0 Dim boolFrames As Boolean = False Dim boolTables As Boolean = False Dim boolCookies As Boolean = False Dim boolActiveX As Boolean = False Dim decJavaScript As Decimal = 0.0 strBrowser = HttpContext.Current.Request.Browser.Browser intVersion = HttpContext.Current.Request.Browser.MajorVersion boolFrames = HttpContext.Current.Request.Browser.Frames boolTables = HttpContext.Current.Request.Browser.Tables boolCookies = HttpContext.Current.Request.Browser.Cookies decJavaScript = CDec(HttpContext.Current.Request.Browser.EcmaScriptVersion.ToString) boolActiveX = HttpContext.Current.Request.Browser.ActiveXControls If strBrowser = "IE" AndAlso intVersion < 6 Then Return False ElseIf strBrowser = "Firefox" AndAlso intVersion < 2 Then Return False ElseIf boolFrames = False Then Return False ElseIf boolTables = False Then Return False ElseIf boolCookies = False Then Return False ElseIf decJavaScript < 1 Then Return False ElseIf strBrowser = "IE" AndAlso boolActiveX = False Then Return False Else Return True End If Catch ex As Exception Return False End Try End Function
Public Function GetRandomPasswordUsingGUID1(ByVal length As Double) As String
Dim guidResult As String = System.Guid.NewGuid.ToString
guidResult = guidResult.Replace("-", String.Empty) 'Use to Remove "-" from Random Passward
If length <= 0 OrElse length > guidResult.Length Then
Throw New ArgumentException("Length must be between 1 and " & guidResult.Length)
End If
Return guidResult.Substring(0, length)
End Function
Public Function GetRandomPasswordUsingGUID(ByVal length As Double) As String
Dim guidResult As String = System.Guid.NewGuid.ToString
If length <= 0 OrElse length > guidResult.Length Then
Throw New ArgumentException("Length must be between 1 and " & guidResult.Length)
End If
Return guidResult.Substring(0, length)
End Function
Let the Table Having Records like Following
select * from tbcountrymst
1 Afghanistan
2 Albania
3 Algeria
4 Andorra
5 Angola
6 Antigua and Barbuda
7 Argentina
8 Armenia
9 Australia
10 Austria
11 Azerbaijan
Public Class ReadWriteXML
#Region "Variables"
Dim Con As New SqlClient.SqlConnection
Dim com As New SqlClient.SqlCommand
Dim ds, dsRW As New DataSet
#End Region
Private Sub ReadWriteXML_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Con.ConnectionString = "Password=YY;Persist Security Info=True;User ID=YY;Initial Catalog=YY;Data Source=YY"
Con.Open()
End Sub
#Region "EnCrypt or DeCrypt String "
Public Function fnEnCryptDeCrypt(ByVal Text As String) As String
Dim strTempChar As String = "", i As Integer
For i = 1 To Len(Text)
If Asc(Mid$(Text, i, 1)) < strtempchar =" CType(Asc(Mid$(Text,"> 128 Then
strTempChar = CType(Asc(Mid$(Text, i, 1)) - 128, String)
End If
Mid$(Text, i, 1) = Chr(CType(strTempChar, Integer))
Next i
Return Text
End Function
#End Region
'To Write To XML File in Encrypted Format
Private Sub btnWriteToXML_Encrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWriteToXML_Encrypt.Click
ds = New DataSet
dsRW = New DataSet
Dim adp As New SqlClient.SqlDataAdapter("Select Code,Description From tbcountrymst", Con)
adp.Fill(ds)
If ds.Tables.Count > 0 Then
If ds.Tables(0).Rows.Count > 0 Then
'Needs to Crate Dataset Which Columns DataType should be String.
'So It will allow any Characters as the data (Encrypted Data)
dsRW.Tables.Add()
dsRW.Tables(0).TableName = ds.Tables(0).TableName
For j As Integer = 0 To ds.Tables(0).Columns.Count - 1
Dim dc As New DataColumn
dc.ColumnName = ds.Tables(0).Columns(j).ColumnName
dc.DataType = "String".GetType()
dsRW.Tables(0).Columns.Add(dc)
Next
'Now Encrypt all the Original Value and put it in New dataset which keeps all the encrypted data.
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
dsRW.Tables(0).Rows.Add()
For j As Integer = 0 To ds.Tables(0).Columns.Count - 1
dsRW.Tables(0).Rows(i).Item(j) = fnEnCryptDeCrypt(ds.Tables(0).Rows(i).Item(j))
Next
Next
End If
End If
'Write the Encrypted Dataset in XML
dsRW.WriteXml("F:\Projects\Random\Random\ReadWriteXMLFile.xml")
'To Check the Output (Encrypted Value) at the RunTime
Process.Start("F:\Projects\Random\Random\ReadWriteXMLFile.xml")
End Sub
'To Read From XML File in Decrypted Format
Private Sub btnReadfromXML_Decrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReadfromXML_Decrypt.Click
ds = New DataSet
'Read the Encrypted Data From XML file
ds.ReadXml("F:\Projects\Random\Random\ReadWriteXMLFile.xml")
If ds.Tables.Count > 0 Then
If ds.Tables(0).Rows.Count > 0 Then
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
For j As Integer = 0 To ds.Tables(0).Columns.Count - 1
'Decrypt all the Values in the DataSet
ds.Tables(0).Rows(i).Item(j) = fnEnCryptDeCrypt(ds.Tables(0).Rows(i).Item(j))
Next
Next
End If
End If
'To Check the Output (Decrypted Value) at the RunTime
ds.WriteXml("F:\Projects\Random\Random\ReadWriteXMLFile.xml")
Process.Start("F:\Projects\Random\Random\ReadWriteXMLFile.xml")
End Sub
End Class
Public Sub DateDifference()
Dim DateDiffVal As Long
DateDiffVal = DateDiff(DateInterval.Year, DateTimePicker1.Value, DateTimePicker2.Value)
MsgBox("Date Difference Is : " & DateDiffVal, MsgBoxStyle.DefaultButton1, "Information")
End Sub
Partial Class SortListBox
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
'Let List box Having the following Item.
Dim strcountry() As String = {"Denmark", "China", "Italy", "Australia", "India", "Egypt", "Bhutan"}
Dim strcountryID() As String = {"Den", "Chi", "Ita", "Aus", "Ind", "Egy", "Bhu"}
'Populate the List Box
For i As Int16 = 0 To strcountry.Length - 1
ListBox1.Items.Add(i)
ListBox1.Items(i).Text = strcountry(i)
ListBox1.Items(i).Value = strcountryID(i)
Next
End If
End Sub
'Click on btnSort to Sort the ListBox.
Protected Sub btnSort_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSort.Click
'Use the object of SortedList to Sort the Items
Dim objSortlst As New SortedList
For i As Int16 = 0 To ListBox1.Items.Count - 1
'objSortlst.Add(key,value) . It keeps value in sorted Order
objSortlst.Add(ListBox1.Items(i).Text, ListBox1.Items(i).Value)
Next
'Now objSortlst is having data in Sorted order of Key
ListBox1.DataSource = objSortlst
ListBox1.DataTextField = "key"
ListBox1.DataValueField = "value"
ListBox1.DataBind()
End Sub
End Class
System.Globalization.CultureInfo.GetCultures(System.Globalization.CultureTypes)
Partial Class frmGlobalizationCulture Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try If Not IsPostBack Then 'Bind all the Cultures in List box on First time page load. lstCulture.Items.Clear() Dim CulInfo As System.Globalization.CultureInfo() CulInfo = System.Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.SpecificCultures) Dim StrShort As New SortedList 'Used for the Sorting the Values in ListBox For j As Integer = 0 To CulInfo.Length - 1 StrShort.Add(CulInfo(j).DisplayName, CulInfo(j).ToString) Next 'Bind all the "SpecificCultures" in the List Box. lstCulture.DataSource = StrShort lstCulture.DataTextField = "key" lstCulture.DataValueField = "value" lstCulture.DataBind() 'Select the "CurrentCulture" in the List Box. lstCulture.SelectedValue = System.Threading.Thread.CurrentThread.CurrentCulture.ToString() End If Catch ex As Exception Throw ex End Try End Sub Protected Sub lstCulture_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstCulture.SelectedIndexChanged Try 'Set the Selected Culture in the ListBox as the CurrentCulture. System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo(Me.lstCulture.SelectedValue) System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(Me.lstCulture.SelectedValue) lstCulture.Focus() Catch ex As Exception Throw ex End Try End Sub End Class
httpRuntime executionTimeout="300" maxRequestLength="102400"
Imports System.IO
Imports System.Data.SqlClient
Partial Class FileUpload
Inherits System.Web.UI.Page
#Region "Variables"
Dim con As New SqlConnection
Dim com As New SqlCommand
Dim upldirinfo As DirectoryInfo
#End Region
#Region "Click on Upload"
Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
Try
If Page.IsValid Then
If ServerValidation() Then
Dim strftpPath1 As String = "C:\UploadFiles"
If FileUpload1.FileName.ToString <> "" Then
If strftpPath1 <> "" Then
upldirinfo = New DirectoryInfo(strftpPath1)
If Not upldirinfo.Exists Then
upldirinfo.Create()
End If
Dim filename As String = FileUpload1.PostedFile.FileName
filename = filename.Remove(0, filename.LastIndexOf("\") + 1)
Dim filpath As String = strftpPath1 + "\" + filename
Dim filinfo As FileInfo
filinfo = New FileInfo(filpath)
If Not filinfo.Exists Then
FileUpload1.PostedFile.SaveAs(strftpPath1 + "\" + filename)
ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "'<script language='javascript'>alert('" & filename & " is successfully Uploaded .');</script>")
'DB Connection to Save the Deatils in Backend.
con.ConnectionString = "Password=SSSS;Persist Security Info=True;User ID=SSSSSS;Initial Catalog=SSSSSSS;Data Source=SSSSSSSSS"
con.Open()
com.Connection = con
com.CommandType = Data.CommandType.Text
com.CommandText = "INSERT INTO tbFileUpload VALUES('" & strftpPath1 & "','" & filename & "')"
com.ExecuteNonQuery()
Else
ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language='javascript'>alert('The File Name " & filename & " already exists .');</script>")
End If
Else
ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language='javascript'>alert('Please Provide a Directory .');</script>")
End If
Else
ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language='javascript'>alert('Please you select a uploaded file .');</script>")
End If
End If
End If
Catch ex As Exception
Throw ex
End Try
End Sub
#End Region
#Region "Code for ServerValidation"
Public Function ServerValidation() As Boolean
Try
Dim size, intlen As Long 'Uploaded File Size
Dim strExt1 As String 'Extension Type
Dim retVal As Int16
size = FileUpload1.PostedFile.ContentLength
intlen = FileUpload1.FileName.LastIndexOf("\")
retVal = FileUpload1.FileName.Substring(intlen + 1, FileUpload1.FileName.Length - intlen - 1).Length
'getting uploaded file Extension Type
If FileUpload1.HasFile Then
Dim strArr As String() = FileUpload1.FileName.Split(".")
strExt1 = strArr(strArr.Length - 1).ToLower
End If
'Checking Validation
If Not FileUpload1.HasFile Then
ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language='javascript'>alert('Notification: Select files to upload.');</script>")
Return False
ElseIf (FileUpload1.HasFile And FileUpload1.FileName.LastIndexOf(".") = -1) Then
ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language='javascript'>alert('Notification: Only .doc, .docx, .ppt, .pptx, .xls, .xlsx, .pdf, .zip, .rtf, .jpg, .jpeg, .gif files can be Uploaded.');</script>")
SetFocus(FileUpload1)
Return False
ElseIf strExt1 <> "doc" And strExt1 <> "docx" And strExt1 <> "xls" And strExt1 <> "xlsx" And strExt1 <> "ppt" And strExt1 <> "pptx" And strExt1 <> "pdf" And strExt1 <> "zip" And strExt1 <> "rtf" And strExt1 <> "jpg" And strExt1 <> "jpeg" And strExt1 <> "gif" And strExt1 <> "" Then
ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language='javascript'>alert('Notification: Only .doc, .docx, .ppt, .pptx, .xls, .xlsx, .pdf, .zip, .rtf, .jpg, .jpeg, .gif files can be Uploaded.');</script>")
SetFocus(FileUpload1)
Return False
ElseIf retVal > 100 Then
' To Check File Name Length (100chars)
ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language='javascript'>alert('Notification: Filename must not exceed 100 characters (including extension).');</script>")
Return False
ElseIf size > 10240000 Then 'Must not exceed 10 MB.
ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language='javascript'>alert('Notification: Total Size of file (per Upload) must not exceed 10 MB.');</script>")
Return False
Else
Return True
End If
Catch ex As Exception
Return False
Throw ex
End Try
End Function
#End Region
#Region "Code for Clear the Text"
Protected Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click
FileUpload1.Visible = True
End Sub
#End Region
#Region "Code for Close"
Protected Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClose.Click
ClientScript.RegisterStartupScript(Me.GetType(), "onClick", "<script language='javascript'>window.close();</script>")
End Sub
#End Region
End Class
Public Class frmUseTrackBar
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
lblDisply.Font = New System.Drawing.Font("Microsoft Sans Serif", (9 + CType(TrackBar1.Value, Double)), System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
' 9 + CType(TrackBar1.Value, Double) : 9 - For Intial Font Size. TrackBar1.Value - Increase the Font size using this value
End Sub
End Class
| Name | Area in Square KM | % of Earth's Area | Highest Point in meters[sea-level] | Lowest Point in meters[sea-level] |
| Asia | 43,998,000 | 29.5 | Everest [8848] | Dead Sea [-396.8] |
| Africa | 29,800,000 | 20.0 | Kilimanjaro [5894] | Dead Sea [-156.1] |
| North America | 21,510,000 | 16.3 | McKinely [6194] | Death Valley [-85.9] |
| South America | 17,598,000 | 11.8 | Aconcagua [6960] | Valdes Penin [-39.9] |
| Europe | 9,699,550 | 6.5 | Elbrus [5663] | Caspian Sea [-28.0] |
| Australia | 7,699,000 | 5.2 | Kosciusko [2228] | Lake Eyre [-15.8] |
| Antarctica | 13,600,000 | 9.6 | Vinson Massif [5140] | Bentley Subglacial Trench[-2,538] |
| States | Capital | Languages |
|---|---|---|
| Andra Pradesh | Hyderabad | Telugu and Urdu |
| Arunachal Pradesh | Itanager | Miji, Apotanji, Merdukpen, Tagin,Adi, Honpa, Bangini-Nishi. |
| Assam | Dispur | Assamese |
| Bihar | Patna | Hindi |
| Chhattisgarh | Raipur | Hindi |
| Goa | Panaji | Marathi and Konkani |
| Gujarat | Gandhinagar | Gujarati |
| Haryana | Chandigarh | Hindi |
| Himachal Pradesh | Shimla | Hindi and Pahari |
| Mizoram | Aizawl | Mizo and English |
| Jammu & Kashmir | Srinagar (Summer)
Jammu (Winter) | Kashmiri,Dogri, Urdu, Ladakhi,
Pahari,Punjabi and Dadri |
| Jharkhand | Ranchi | Hindi |
| Karnataka | Bangalore | Kannda |
| Kerala | Trivandrum | Malayalam |
| Madhya Pradesh | Bhopal | Hindi |
| Maharashtra | Bombay | Marathi |
| Manipur | Imphal | Manipuri |
| Meghalaya | Shillong | Khasi, Jaintia and Garo |
| Nagaland | Kohima | Ao, Konyak, Angami, Sema and Lotha |
| Orissa | Bhubaneswar | Oriya |
| Punjab | Chandigarh | Punjabi |
| Rajasthan | Jaipur | Rajasthani and Hindi |
| Sikkim | Gangtok | Bhutia, Hindi, Nepali, Lepcha, Limbu |
| Tamil Nadu | Chennai | Tamil |
| Tripura | Agartala | Bengali, Tripuri, Manipuri, Kakborak |
| Uttar Pradesh | Lucknow | Hindi |
| Uttaranchal | Dehra Dun | Hindi |
| West Bengal | Calcutta | Bengali |
Public Class frmEnCryptDeCrypt #Region "btnEnCryptDeCrypt Click" Private Sub btnEnCryptDeCrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnCryptDeCrypt.Click txtResult.Text = fnEnCryptDeCrypt(txtInput.Text) End Sub #End Region #Region "EnCrypt or DeCrypt String" Public Function fnEnCryptDeCrypt(ByVal Text As String) As String Dim strTempChar As String = "", i As Integer For i = 1 To Len(Text) If Asc(Mid$(Text, i, 1)) < strtempchar = " CType(Asc(Mid$(Text," > 128 Then strTempChar = CType(Asc(Mid$(Text, i, 1)) - 128, String) End If Mid$(Text, i, 1) = Chr(CType(strTempChar, Integer)) Next i Return Text End Function #End Region End Class