‘ Append a backslash (or any character) at the end of a path’ if it isn’t there alreadyFunction AddBackslash(ByVal Path As String, Optional ByVal ch As Char = “”c) _ As String If Not Path.EndsWith(ch) Then AddBackslash = Path & ch Else AddBackslash = Path End IfEnd Function
When you resize a ListView control (this happens automatically if the ListView is docked to the form, and the user resizes the form), it’s nice to have the last column to be resized accordingly to cover the available space. To do this, handle the ListView’s Resize control (in .NET any
‘ Change the extension of a file name’ if the last argument is True, it adds the extension even if the file doesn’t ‘ have oneFunction ChangeFileExtension(ByVal FileName As String, _ ByVal Extension As String, Optional ByVal AddIfMissing As Boolean = False) _ As String If AddIfMissing OrElse IO.Path.GetExtension(FileName).Length >
Sometimes you may need to hide or show some pages of a TabControl according to the information you want to show, basing on the currently logged-in user for example (users with low privileges won’t be able to get all the information or to change records). To do this, you may
‘ This class does the owner drawing of a MenuItem to draw a color box.’ The class inherits from MenuItem, thus the ColorMenuItem objects’ can be added to a parent MenuItem or a context menu as you ‘ normally do, and can also be mixed with other MenuItem items ‘
‘ Not all fonts support the same styles. This function takes in ‘ input a font family and a font style, and returns a font style’ which is safe for that particular font family, by removing’ the styles that are not supported” Example:’ GetSafeStyleForFontFamily(richTextBox1.SelectionFont.FontFamily,’ ‘ richTextBox1.SelectionFont.Style)Public Function GetSafeStyleForFontFamily(ByVal fontFam As