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