Private Declare Function GetShortPathName Lib “kernel32” Alias _ “GetShortPathNameA” (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long’ Convert a long filename into the
Private Declare Function GetSystemMetrics Lib “user32” (ByVal nIndex As Long) _ As Long’ Returns True if a Network is found (read-only)Function IsNetworkInstalled() As Boolean Const SM_NETWORK = 63 IsNetworkInstalled =
Use the And operator instead of Mod when the divisor is a number in the form 2^N. For instance, there are two methods to extract the least significant byte in
OK, this is a silly suggestion, but I personally know a lot of developers that complain about Visual Basic’s bugs that were fixed in more recent Service Packs. This is
Every now and then someone asks me “How can I modify the default description that is associated to an add-in I have written and that appears in the Add-In Manager?
‘ Returns the integer equal or higher than its argumentFunction Ceiling(Number As Double) As Long Ceiling = -Int(-Number)End Function
‘ Return the string of code the is selected in the code window’ that is currently active. ‘ This function can only be used inside an add-in.Function GetSelectedText(VBInstance As VBIDE.VBE)
In VB applications compiled as native code, GoSubs are 5-6 times slower than calls to regular Subs or Functions; conversely, in p-code they are considerably faster. This is one of
‘ Test whether a font name and size is supported’ Returns True if the font is supported, False otherwise” If the font is supported but the size is not, it