Here’s the correct declaration of the CopyMemory API function, which is so useful whenever you want to move a block of bytes between two memory locations: Declare Sub CopyMemory Lib
‘ Return the extension of a file nameFunction GetFileExtension(ByVal FileName As String) As String Dim i As Long For i = Len(FileName) To 1 Step -1 Select Case Mid$(FileName, i,
‘ Retrieve a file’s path” Note: trailing backslashes are never included in the resultFunction GetFilePath(FileName As String) As String Dim i As Long For i = Len(FileName) To 1 Step
‘ Retrieve a file’s base name’ if the second argument is true, the result include the file’s pathFunction GetFileBaseName(FileName As String, Optional ByVal IncludePath As _ Boolean) As String Dim
‘ Make a complete file name by assemblying its individual parts’ if Extension isn’t omitted, it overwrites any extension held in BaseNameFunction MakeFileName(Drive As String, Path As String, BaseName As
The Picture box control does not directly expose any property that returns information on the bitmap currently loaded. You can retrieve this information by calling the GetObject API function, passing
It is very simple to retrieve the correct currency symbol, using just plain VBA statements: currSymbol = Trim$(Replace(FormatCurrency(0,0), “0”, “”)) If you can also determine if the symbol precedes or
There are a few tricks that you can do with LCase$ and UCase$ functions. I doubt you will be using this tip in all your applications, but here they are
Many developers incorrectly assume that a printer is always installed on their customers’ machines, and therefore omit to check that this is actually the case. The following function, deceiptively trivial,