Do.Stuff()

clip to send email by opening default client

2008-12-30T09:34:00.000-06:00

process.Start("mailto:PJ@Mailman.com?subject=Howdy")

Calculate a fraction of a number

2008-12-30T09:30:00.004-06:00

I cant really remember where I got this bit. Takes in a double and returns the
fraction...as in .75 will return 3/4


   1 Private Shared Function GetFraction(ByVal d As Double) As String

    3     Dim Denom As Int32

    4     Dim str As String = d.ToString

    5     Dim Numer As Int32

    6     If str.Contains(".") Then

    7         ' Get the initial denominator: 1 * (10 ^ decimal portion length)

    8         Denom = CInt(1 * (10 ^ str.Split("."c)(1).Length))

    9         Numer = CInt(str.Split("."c)(1))

   10     Else

   11         '{ whole number }

   12         Denom = 1

   13         Numer = d

   14     End If

   16     ' Use the Euclidean algorithm to find the gcd

   17     Dim a As Int32 = Numer

   18     Dim b As Int32 = Denom

   19     Dim t As Int32 = 0

   21     ' Euclidean algorithm

   22     While b <> 0

   23         t = b

   24         b = a Mod b

   25         a = t

   26     End While

   28     If CInt(d) = 0 Then

   29         Return (Numer / a) & "/" & (Denom / a)

   30     Else

   31         Return CInt(d) & " " & (Numer / a) & "/" & (Denom / a)

   32     End If

   35 End Function

Connecting To An Excel Spreadsheet as a DB

2008-12-30T09:00:00.007-06:00

This will connect top the specified Excel file and treat it as a database.
The SEVERE limitation is that the sheetname must be specified EXACTLY:

 1 Dim XLCommand As System.Data.OleDb.OleDbDataAdapter

  2 Dim XLConnection As System.Data.OleDb.OleDbConnection

  3 Dim xDS As DataSet

  1 '{ Create an ODBC Connection to read from Excel spreadsheet }

  2 XLConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; " & _

  3    "data source=" & XlFile & "; Extended Properties=""Excel 8.0;IMEX=1;ReadOnly:=True;UpdateLinks:=0""")

  4 XLCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [" & str & "$]", XLConnection)

  6 xDS = New System.Data.DataSet

  7 XLCommand.Fill(xDS)

Filter DataGridView By Selected Rows

2008-12-22T14:03:00.004-06:00

    This DataGridView has a CheckboxColumn named "Keep". If the box for a row
    is not selected, it gets added to an arraylist. This arraylist stores the 
    indexes of the columns that will be hidden

    1 Private Sub cmdFilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFilter.Click

    2     Dim collist As New ArrayList

    4     For Each x As DataGridViewRow In myDGV.Rows

    5         If x.Cells("Keep").Value = False Then

    6             collist.Add(CInt(x.Index))

    7         End If

    8     Next

   11     FilterColumns(collist)

   13 End Sub

    1 Private Sub FilterColumns(ByRef arr As ArrayList)

    2     arr.Sort()

    4     For Each col As DataGridViewColumn In Workspace.Columns

    5         If arr.Contains(col.Index) Then

    6             col.Visible = False

    7         End If

    8     Next

   10 End Sub

Custom Text and Menu Rendering

2008-12-22T13:50:00.004-06:00

    1 Public Class ThemePainter

    2     Inherits System.Windows.Forms.ToolStripRenderer

    4     Dim paintBrush As System.Drawing.Brush = Nothing

    6     Protected Overrides Sub InitializeItem(ByVal item As ToolStripItem)

    7         MyBase.InitializeItem(item)

    8         item.ForeColor = My.Settings.m_foreColor

    9     End Sub

   11     Protected Overrides Sub OnRenderToolStripBackground(ByVal e As ToolStripRenderEventArgs)

   12         MyBase.OnRenderToolStripBackground(e)

   13         paintBrush = New Drawing2D.LinearGradientBrush(e.ToolStrip.ClientRectangle, _
                 My.Settings.m_primaryColor, My.Settings.m_secondaryColor, 90)

   15         e.Graphics.FillRectangle(Me.paintBrush, e.AffectedBounds)

   17     End Sub

   19     Protected Overrides Sub OnRenderItemText(ByVal e As ToolStripItemTextRenderEventArgs)

   21         Dim flags As TextFormatFlags = TextFormatFlags.NoClipping Or TextFormatFlags.GlyphOverhangPadding

   22         e.TextColor = My.Settings.m_foreColor

   23         e.TextFont = My.Settings.m_fontFamily

   25         '{ gotta keep this or it wont paint the whole box }

   26         e.TextFormat = flags

   28         MyBase.OnRenderItemText(e)

   30     End Sub

   31 End Class

then called like this:

ToolStrip1.Renderer = New ThemePainter

Processing a file Containing Null characters

2008-12-22T13:45:00.004-06:00

    1 Private Sub ReprocessNullfile(ByVal filename As String)

    2         '{ The purpose of this sub is to go through and replace the NULL chars with spaces }

    3         '{ and rewrite a new file to the users Temp folder. The NULL characters mess up the }

    4         '{ string reading capabilities..... }

    6         Dim charBuff(globalRecordLength) As Char

    7         Dim fi As New FileInfo(filename)

    8         Dim fileLen As Integer = fi.Length

    9         Dim start, nxt As Integer

   10         Dim ctr As Integer = 0

   11         Dim sr As New System.IO.StreamReader(filename)

   12         Dim sw As New System.IO.StreamWriter(My.Computer.FileSystem.SpecialDirectories.Temp & _

   13             "\temp.txt", False)

   15         sr.DiscardBufferedData()

   17         fi = Nothing

   18         start = 0

   19         nxt = globalRecordLength

   21         While ctr < fileLen

   22             Dim strTest As String = Nothing

   23             sr.Read(charBuff, 0, globalRecordLength)

   24             For x As Integer = 0 To globalRecordLength - 1

   26                 If charBuff.GetValue(x) = vbNullChar Then

   27                     strTest &= " "

   28                 Else

   29                     strTest &= charBuff.GetValue(x)

   30                 End If

   31                 ctr += 1

   32             Next

   33             sw.WriteLine(strTest)

   34         End While

   36         sw.Close()

   38     End Sub

Zipping a File Using Console Version of WinZip

2008-12-22T13:41:00.002-06:00

    1 Private Sub DoArchive(ByVal pth As String)

    2     '{ create the new filename. It needs quotes because of potential spaces }

    3     Dim newFilename As String = Chr(34) & pth & Chr(34)

    5     '{ process info }

    6     Dim p As New Process

    7     Dim s As String

    9     '{ if the user wants the old directory wiped after archive }

   10     If RemoveOldFilesMenuItem.CheckState = CheckState.Checked Then

   11         s = "-p -r -m """ & pth & ".zip"" """ & pth & """"

   12     Else

   13         '{ otherwise }

   14         s = "-p -r """ & pth & ".zip"" """ & pth & """"

   15     End If

   17     p.StartInfo.UseShellExecute = False

   18     '{ if we don't do this, we zip files from where the executable is located }

   19     p.StartInfo.WorkingDirectory = pth & "\"

   20     p.StartInfo.Arguments = s

   21     p.StartInfo.CreateNoWindow = True

   22     '{ this is based on the assumption that the Winzip command Line extension is installed }

   23     '{ http://www.winzip.com/downcl.htm }

   24     p.StartInfo.FileName = My.Computer.FileSystem.SpecialDirectories.ProgramFiles.ToString & "\winzip10\wzzip"

   25     p.Start()

   27 End Sub

Sending Mail

2008-12-22T13:23:00.000-06:00

    1 SmtpClient mailClient;

    2 String[] recipients;

    4 private void SendMail(MailAccount theAcct, MailMessage theMsg)

5 {

    6     MailAccount acct = theAcct;

    8     mailClient = new SmtpClient();

    9     mailClient.Host = acct.MailOut;

   10     mailClient.Port = acct.MailOutPort;

   11     mailClient.Credentials = new NetworkCredential(acct.Username, acct.Password);

   13     foreach (String s in recipients)

   14     {

   15         try

   16         {

   17             theMsg.To.Add(new MailAddress(s));

   18         }

   19         catch (FormatException e)

   20         {

   21         }

   22         mailClient.Send(theMsg);

   23     }

   24 }

Attaching A document to the Fireball control

2008-12-22T13:16:00.004-06:00

    1      Dim dc As New Fireball.Syntax.SyntaxDocument

    2      dc.SyntaxFile = "PathToSyntaxDoc.syn"

    3      cdeMessages.Document = dc

    4      ctxOutput.Enabled = False

    5      If frmMain.currentOrder IsNot Nothing Then

    6          HOOK_OnOrderChange(frmMain.currentOrder)

    7      End If

dotNetFireball Site

Write a Treeview into an XML File

2008-12-22T10:47:00.003-06:00

1 private void CallTreeviewToXML()

2 {

3     StreamWriter sw = new StreamWriter(aFileName, false);

4     sw.WriteLine("<tree>");

5     sw.WriteLine("</tree>");

6     sw.Close();

7     sw.Dispose();

8     XmlDocument xDoc = new XmlDocument();

10    xDoc.Load(aFileName);

12    foreach (TreeNode n in favoritesTree.Nodes)

13    {

14       TreeviewToXML(xDoc, n);

15    }

16    xDoc.Save(aFileName);

18 }

read an XML File into aTreeview

2008-12-22T10:46:00.006-06:00

    1 private void XMLToTreeview(string thePath, XmlDocument theDocument)

2 {

    3     String xmlPath = thePath;

    4     XmlNode xnde = theDocument.SelectSingleNode(xmlPath);

    6     try

    7     {

    8         RecurseXmlToTreeview();

    9         favoritesTree.ExpandAll();

   10     }

   11     catch (XmlException xmlEx)

   12     {

   13         MessageBox.Show(xmlEx.Message);

   14     }

   15     catch (Exception ex)

   16     {

   17         MessageBox.Show(ex.Message);

   18     }

   19 }

   21 private void RecurseXmlToTreeview()

   22 {

   23     XPathDocument xpathDoc = new XPathDocument(aFilePath);

   24     XPathNavigator xmlNav;

   25     XPathNodeIterator xmlHeadSourceSet;

   26     Boolean resetFlag = false;

   27     TreeNode rt = null;

   29     xmlNav = xpathDoc.CreateNavigator();

   31     xmlHeadSourceSet = xmlNav.Select("aNotherNode");

   32     XPathNavigator nodesNavigator = xmlHeadSourceSet.Current;

   33     XPathNodeIterator nodesText =
             nodesNavigator.SelectDescendants(XPathNodeType.Element, false);

   35     // Dim targetNode As XmlNode = destXDoc.SelectSingleNode("aNodePath")

   37     while (nodesText.MoveNext())

   38     {

   39         if (nodesText.Current.Name == "tree")

   40             continue;

   41         else if (nodesText.Current.GetAttribute("actualpath",string.Empty) == "root")

   42         {

   43             rt = new TreeNode();

   44             rt.Text = nodesText.Current.GetAttribute("name", string.Empty);

   45             rt.Tag = "root";

   46             favoritesTree.Nodes.Add(rt);

   47         }

   48         else

   49         {

   50             TreeNode tn = new TreeNode();

   52             tn.Text = nodesText.Current.GetAttribute("name", string.Empty);

   53             tn.Tag = nodesText.Current.GetAttribute("actualpath",string.Empty);

   54             tn.ImageIndex = 1;

   55             rt.Nodes.Add(tn);

   56         }

   57     }

   58 }

Calculating File Sizes

2008-12-22T10:43:00.001-06:00

    1 private String CalcFileSize(FileInfo thePath)

    2 {

    3     float fileSz = (float)thePath.Length / 1024;

    4     String fileSizeStr;

    6     if (fileSz < 1)

    7     {

    8         fileSizeStr = thePath.Length.ToString("###.##;;0") + " B";

    9     }

   10     else if (fileSz > 1048576)

   11     {

   12         fileSz = (float)thePath.Length / 1073741824;

   13         fileSizeStr = fileSz.ToString("###.##") + " GB";

   14     }

   15     else if (fileSz > 1024)

   16     {

   17         fileSz = (float)thePath.Length / 1048576;

   18         fileSizeStr = fileSz.ToString("###.##") + " MB";

   19     }

   21     else

   22     {

   23         fileSizeStr = fileSz.ToString("###.##") + " KB";

   24     }

   26     return fileSizeStr;

   27 }

Get file type description for each extension

2008-12-22T10:39:00.002-06:00

    1 private String GetFileTypeString(String theExtension)

    2         {

    3             // HKEY_CLASSES_ROOT //

    4             RegistryKey root = Registry.ClassesRoot;

    5             // something like '.csproj'

    6             RegistryKey openValue = root.OpenSubKey(theExtension);

    7             try

    8             {

    9                 if (openValue != null)

   10                 {

   11                     // This will get the name of a key -

   12                     //something like 'VisualStudio.csproj.8.0'

   13                     String val = openValue.GetValue("").ToString();

   14                     // So we go there to get the value //

   15                     RegistryKey typeVal = root.OpenSubKey(val);

   16                     // something like 'Visual C# Project file'

   17                     m_FileType = typeVal.GetValue("").ToString();

   18                     return typeVal.GetValue("").ToString();

   20                 }

   21                 else

   22                 {

   23                     // Sometimes its unrecognized //

   24                     m_FileType = theExtension + " File";

   25                     return theExtension + " File";

   26                 }

   27             }

   28             //Sometimes the default key value is Null...no big deal

   29             catch (Exception ex)

   30             {

   31                 m_FileType = theExtension + " File";

   32                 return theExtension + " File";

   33             }

   34         }

Recursively Copy A Directory

2008-12-22T10:36:00.005-06:00

private void CopyDirectory(String theSourcePath, String theDestPath, bool copySubDirs)
       {
           DirectoryInfo dir = new DirectoryInfo(theSourcePath);
           DirectoryInfo[] dirs = dir.GetDirectories();

           // If the source directory does not exist, throw an exception.
           if (!dir.Exists)
           {
               throw new DirectoryNotFoundException(
                   "Source directory does not exist or could not be found: " + theSourcePath);
                  
           }

           // If the destination directory does not exist, create it.
           if (!Directory.Exists(theDestPath))
           {
               Directory.CreateDirectory(theDestPath);
           }


           // Get the file contents of the directory to copy.
           FileInfo[] files = dir.GetFiles();

           foreach (FileInfo file in files)
           {
               // Create the path to the new copy of the file.
               string temppath = Path.Combine(theDestPath, file.Name);

               // Copy the file.
               file.CopyTo(temppath, false);
           }

           // If copySubDirs is true, copy the subdirectories.
           if (copySubDirs)
           {

               foreach (DirectoryInfo subdir in dirs)
               {
                   // Create the subdirectory.
                   string temppath = Path.Combine(theDestPath, subdir.Name);

                   // Copy the subdirectories.
                   CopyDirectory(subdir.FullName, temppath, copySubDirs);
               }
           }
       }

       private void CopyFile(String theSourcePath, String theDestPath, bool doOverWrite)
       {
           FileInfo fi = new FileInfo(theSourcePath);

           if (!fi.Exists)
           {
               throw new FileNotFoundException();
           }
           File.Copy(theSourcePath, theDestPath, doOverWrite);
       }

Copy / Move operation - Clipboard

2008-12-22T10:26:00.002-06:00

    1 private void MoveItem(String theSourcePath, String theDestPath)

    2 {

    3     FileAttributes fa = File.GetAttributes(theSourcePath);

    4     if ((fa & FileAttributes.Directory) == FileAttributes.Directory)

    5     {

    6         Directory.Move(theSourcePath, theDestPath);

    7     }

    8     else

    9     {

   10         File.Move(theSourcePath, theDestPath);

   11     }

   12 }

   14 private void CopyItem(String theSourcePath, String theDestPath)

   15 {

   16     FileAttributes fa = File.GetAttributes(theSourcePath);

   18     if ((fa & FileAttributes.Directory) == FileAttributes.Directory)

   19     {

   20         DirectoryInfo d = new DirectoryInfo(theSourcePath);

   21         string directoryDestPath = Path.Combine(theDestPath, d.Name);

   22         CopyDirectory(theSourcePath, directoryDestPath, true);

   23         d = null;

   24     }

   25     else

   26     {

   27         string fn = Path.GetFileName(theSourcePath);

   28         string dpath = Path.Combine(theDestPath, fn);

   30         CopyFile(theSourcePath, dpath, true);

   31     }

   32 }

Set 'COPY' action onto clipboard

2008-12-22T10:24:00.005-06:00

  746 private void cutToolStripMenuItem1_Click(object sender, EventArgs e)

  747  {

  748      System.Collections.Specialized.StringCollection currDroplist =
               new System.Collections.Specialized.StringCollection();

  750      for (int x = 0; x < m_ListOFSelectedFiles.Count; x++)

  751      {

  752          currDroplist.Add(m_ListOFSelectedFiles[x].ToString());

  753      }

  755      // we havew to manually set the dragdropeffect bit when using our program //

  756      IDataObject data = new DataObject(DataFormats.FileDrop, currDroplist);

  757      MemoryStream ms = new MemoryStream(4);

  758      // set the effect to move //

  759      Byte[] ddf = new byte[] { (byte)DragDropEffects.Move, 0, 0, 0 };

  760      ms.Write(ddf, 0, ddf.Length);

  762      data.SetData("Preferred DropEffect", ms);

  764      // add the whole thing to the clipboard //

  765      Clipboard.SetDataObject(data);

  766  }

'PASTE' action from clipboard

2008-12-22T10:23:00.003-06:00

    1         private void pasteToolStripMenuItem_Click(object sender, EventArgs e)

    2         {

    3             CurrentClipOp op = GetCutOrCopy();

    4             System.Collections.Specialized.StringCollection fileDropStrings;

    5             String currentlySelectedLocation = cboCurrentPath.Text;

    6             if (Clipboard.ContainsFileDropList())

    7             {

    8                 fileDropStrings = Clipboard.GetFileDropList();

    9             }

   10             else

   11             {

   12                 return;

   13             }

   15             if (op == CurrentClipOp.copy)

   16             {

   17                 //copy the file

   19                 for (Int32 x = 0; x <= fileDropStrings.Count - 1; x++)

   20                 {

   21                     CopyItem(fileDropStrings[x].ToString(), currentlySelectedLocation);

   22                 }

   24             }

   25             else if (op == CurrentClipOp.cut)

   26             {
                    MoveItem(fileDropStrings[x].ToString(), currentlySelectedLocation);

   27             }

   28             else

   29             {

   30             }

   31         }

Set 'COPY' action on clipboard

2008-12-22T10:21:00.002-06:00

    1 private void copyToolStripMenuItem_Click(object sender, EventArgs e)

2 {

    3     System.Collections.Specialized.StringCollection currDroplist =
new System.Collections.Specialized.StringCollection();

    5     for (int x = 0; x < m_ListOFSelectedFiles.Count; x++)

    6     {

    7         currDroplist.Add(m_ListOFSelectedFiles[x].ToString());

    8     }

   10     // we havew to manually set the dragdropeffect bit when using our program //

   11     IDataObject data = new DataObject(DataFormats.FileDrop, currDroplist);

   12     MemoryStream ms = new MemoryStream(4);

   13     // set the effect to copy -- Copy is actually copy Or link//

   14     Byte[] ddf = new byte[] { (byte)(DragDropEffects.Copy | DragDropEffects.Link), 0, 0, 0 };

   15     ms.Write(ddf, 0, ddf.Length);

   17     data.SetData("Preferred DropEffect", ms);

   19     // add the whole thing to the clipboard //

   20     Clipboard.SetDataObject(data);

   21 }

Determine type of action on clipboard

2008-12-22T09:48:00.004-06:00

private enum CurrentClipOp
{
cut = 0,
copy = 1,
none = 3
}

    1  private CurrentClipOp GetCutOrCopy()

    2         {

    3             string fmt = "Preferred DropEffect";

    6             Object obj = Clipboard.GetData(fmt);

    8             if (obj != null)

    9             {

   10                 // read in that clipboard item //

   11                 MemoryStream ms = (MemoryStream)obj;

   12                 BinaryReader br = new BinaryReader(ms);

   14                 // the dropeffect shows up right away //

   15                 DragDropEffects dde = (DragDropEffects)br.ReadInt32();

   17                 // check to see what the effect is //

   18                 if (dde == (DragDropEffects.Copy | DragDropEffects.Link))

   19                 {

   20                     return CurrentClipOp.copy;

   21                 }

   22                 else if (dde == DragDropEffects.Move)

   23                 {

   24                     return CurrentClipOp.cut;

   25                 }

   26                 else

   27                 {

   28                     return CurrentClipOp.none;

   29                 }

   30             }

   31             else

   32             {

   33                 return CurrentClipOp.none;

   34             }

   35         }

Fill A Treeview with file/folders

2008-12-22T08:15:00.007-06:00

    1         private void Fill(TreeNode dirNode)

    2         {

    3             DirectoryInfo dir = new DirectoryInfo(dirNode.FullPath);

    5             foreach (DirectoryInfo dirItem in dir.GetDirectories())

    6             {

    7                 TreeNode nde = new TreeNode(dirItem.Name);

    8                 dirNode.Nodes.Add(nde);

    9                 nde.Nodes.Add("*");

   10             }

   11         }

Use this to load a node JIT:

    1         private void mainTree_BeforeExpand(object sender, TreeViewCancelEventArgs e)

    2         {

    3             if (e.Node.Nodes[0].Text == "*")

    4             {

    5                 e.Node.Nodes.Clear();

    6                 Fill(e.Node);

    7             }

    8         }

Create A Schema / Class From XML Doc

2008-09-02T11:39:00.003-05:00

VS has a tool that will create an XSD from an XML doc. short way...open XML document from within VS - XML menu will appear. XML->Create Schema.

To create class..Visual Studio command prompt: xsd.exe /c /l:vb filepath to schema

the /c = class generation
the /l: = lang - CS (c#) VB (vb) etc....
/? = help

Apply a gradient to a form

2008-08-26T12:16:00.002-05:00

Private Sub myForm_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

Dim filler As New System.Drawing.Drawing2D.LinearGradientBrush(MyBase.ClientRectangle, Color.Gray, Color.Black, Drawing2D.LinearGradientMode.Vertical)

e.Graphics.FillRectangle(filler, Me.ClientRectangle)

filler.Dispose()

End Sub

determine if a directory already exists, and create based on users input

2008-08-26T12:15:00.003-05:00

    1 Public Shared Function VerifyDirectoryExists(ByVal path As String, ByVal create As Boolean) As Integer

    3     If My.Computer.FileSystem.DirectoryExists(Path) Then

    4         '{ directory already exists }

    5         Return 0

    6     Else

    7         If create = True Then

    8             '{ user want to create it }

    9             My.Computer.FileSystem.CreateDirectory(path)

   10             Return 0

   11         Else

   12             '{ directory doesnt exist and user doesnt want to create }

   13             Return 1

   14         End If

   15     End If

   17 End Function

Get File With Latest Date

2008-08-26T12:14:00.005-05:00

    1 Dim fileName As String

    2 Dim tempFileName As String = ""

    3 Dim createDate, createDateTemp As Date

    5 Try

    6     For Each fileName In FileIO.FileSystem.GetFiles(docPath)

    7         createDate = FileIO.FileSystem.GetFileInfo(fileName).CreationTime

    8         If createDate > createDateTemp Then

    9             createDateTemp = createDate

   10             tempFileName = fileName

   11         End If

   12     Next

   13 Catch ex As Exception

   14 End Try

Get largest record length of a file

2008-08-26T12:13:00.003-05:00

    1 Private Function getRECL(ByVal fn As String) As Integer

    3     Dim sw As New StreamReader(fn)

    4     Dim cnt As String

    5     Dim finalLength As Double

    7     While Not sw.EndOfStream

    8         '{ get the longest line length }

    9         cnt = sw.ReadLine

   10         finalLength = cnt.Length

   11     End While

   12     Return finalLength

   13     '{ cleanup }

   14     sw = Nothing

   15 End Function