CodeXchange: New Snippets

TDT - GridPage - Page_Init

Guss Davey — Tue, 31 Jul 2012 00:20:12 GMT

        protected void Page_Init(object sender, System.EventArgs e)
        {
            #region Inject various files into header
            // Include the JS for the custom filter jquery slideout -----------------------
            GridPage.InjectJS("Core/JS/jquery.tabSlideOut.v1.3.js", Page, "ts_" + ID);
            // Include the JS for gritter messages -----------------------
            GridPage.InjectJS("Core/JS/jquery.gritter.min.js", Page, "gr_" + ID);
            // Include the JS for validation messages -----------------------
            GridPage.InjectJS("Core/JS/gritter.alerts.js", Page, "ga_" + ID);
            #endregion
        }

CustomValitaor

zhu xiaowu — Fri, 13 May 2011 18:01:20 GMT

fasdfasdfasdfasdfasdf
asdf
asdfasdfasdfasdfads

ruairi odonnell — Wed, 12 Jan 2011 12:53:17 GMT

Get the file extension from a file path or file name

Antonio Cosano — Fri, 17 Sep 2010 05:42:05 GMT

Imports Microsoft.Win32
Imports System.IO
' How to call the function
' Get the file extension from a file path or file name
'  -> Dim Extension As String = Path.GetExtension("hello.mp3")
' Get the file type from the extension
' -> Dim FileType = GetFileType(Extension)
Public Shared Function GetFileType(ByVal fileExtension As String) As String
		Dim fileType As String = String.Empty
		'Search all keys under HKEY_CLASSES_ROOT
		For Each subKey As String In Registry.ClassesRoot.GetSubKeyNames()
			If String.IsNullOrEmpty(subKey) Then
				Continue For
			End If
			If subKey.CompareTo(fileExtension) = 0 Then
				'File extension found. Get Default Value
				Dim defaultValue As String = Registry.ClassesRoot.OpenSubKey(subKey).GetValue("").ToString()
				If defaultValue.Length = 0 Then
					'No File Type specified
					Exit For
				End If
				If fileType.Length = 0 Then
					'Get Initial File Type and search for the full File Type Description
					fileType = defaultValue
					fileExtension = fileType
				Else
					'File Type Description found
					If defaultValue.Length > 0 Then
						fileType = defaultValue
					End If
					Exit For
				End If
			End If
		Next
		Return fileType
	End Function

grab record from db and subtracts it from variable

Marcus Reed — Thu, 16 Sep 2010 13:28:58 GMT

        Try
            ' Takes a string from the textbox to find the records source in the database
            Dim aid As String = ArrestIDToolStripTextBox.Text
            Dim cmd As OleDbCommand = New OleDbCommand("SELECT SUM(AmountPaid) FROM tblPayment WHERE ArrestID ='" & aid & "'", con) ' SQL to pull the data from the database
            con.Open() ' open the connection to the database
            Dim amtpaid As Int32 = cmd.ExecuteScalar
            TextBox2.Text = amtpaid
            con.Close()
            Dim x1, x2 As Integer
            x1 = TextBox3.Text  ' Total Fine amount.
            x2 = TextBox2.Text  ' Total amount Paid so far.
            TextBox4.Text = Val(x1) - Val(x2) ' Subtracts the total fine amount from the amount paid to give us the total amount due.
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try