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