Subscribe
Discuss
What's new
What is it
New Snippet
Recent Snippets
My Snippets
Web Code
Search
Format:
Recent snippets for: Mitchell William Cooper
<a href="javascript:document.frmMain.submit();">reload preview</a>
45 Views
no comments
Public Shared Function ConvertToAlphaNumericString(ByVal pstrString As String) As String Return Regex.Replace(pstrString, "[\W]", "") End Function
44 Views
no comments
Do blnRetry = False Try objReturn = New SqlClient.SqlConnection(pstrConnectionString) objReturn.Open() Catch ex As InvalidOperationException objReturn.Dispose() blnRetry = True
64 Views
no comments
#Region " Options " Option Explicit On Option Strict On #End Region Imports Lucene.Net Public Class OldLuceneSearchManager Private Shared Lock As Object = New Object
132 Views
no comments
Try Habanero.Base.GlobalRegistry.ApplicationName = "IGD" Habanero.Base.GlobalRegistry.ApplicationVersion = "v1.0" HabaneroApplication = New Habanero.UI.Win.HabaneroAppWin(Habanero.Base.GlobalRegistry.ApplicationName, Habanero.Base.GlobalRegistry.ApplicationVersion) HabaneroApplication.ClassDefsXml = IGD.BO.BOBroker.GetClassDefsXml() If Not HabaneroApplication.Startup() Then Throw New Exception("Unable to start Habanero Application") End If
211 Views
no comments
Public Class ctlDragableSizable ' Locked when parent control handles the resizing Private blnIsResizeLocationLocked As Boolean = False Private intXMouseDownPosition As Integer Private intYMouseDownPosition As Integer Private blnSizableVertical As Boolean = False Private blnSizableHorizontal As Boolean = False
568 Views
no comments
<html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> <style type="text/css"> #scrollbar_container { position:relative; width:200px } #scrollbar_track {
795 Views
no comments
Imports System.Text.RegularExpressions Module Module1 'http://learn.open.ac.uk/mod/oublog/viewpost.php?post=23031 'www.ForkandBeard.co.uk Sub Main() Dim strUserNumbers As String() strUserNumbers = New String() { _
414 Views
no comments
Imports System.Text.RegularExpressions Module Module1 Sub Main() Dim strUserNumbers As String() strUserNumbers = New String() { _ "H0W_BOvThemy84kies" _ , "01543 MWC66" _ , "8" _
279 Views
no comments
Option Explicit On Option Strict On Imports System.Text Imports System.Windows Imports System.Collections Imports System.Runtime.InteropServices Public Class frmMain
350 Views
no comments
brought to you by:
If you find this site useful and use it frequently please consider making a donation to support this free service.
