Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (pDst As _ Any, pSrc As Any, ByVal ByteLen As Long)’ This is a replacement for the “Replace” function provided by VB6,’
‘ Set the printer with the input name as the default printer for *this ‘ application* (not for the whole system)Function SelectPrinter(ByVal printer_name As String) As Boolean Dim i As
‘ This VB6 function returns a string with a set of parameters replaced with ‘ variables, similar to the C function printf().Public Function PrintF(strMask As String, ParamArray Values()) As String
‘ Save the content of a FlexGrid control as a CSV-file’ Example: SaveCSV(“C:Test.csv”, MSFlexGrid1)Private Sub SaveCSV(ByVal strFilename As String, ByRef msFlex As MSFlexGrid) Const SEPARATOR_CHAR As String = “,” Dim
‘ *** International date handlerPublic Enum eDateLocale edlArabic = &H401 edlDanish = &H406 edlGerman = &H407 edlSwissGerman = &H807 edlAmerican = &H409 edlBritish = &H809 edlAustralian = &HC09 edlSpanish =
‘ Do the check spelling on the input text’ Returns the input text with the corrections applied from the Word’s check-‘ spelling dialog’ Note: it requires a reference to the
Ever get annoyed that there’s no “direct mode” environment in Perl? Instead, you have to save your code to a file and then execute it everytime. To offset this, I
You can create an ODBCDirect recordset for use with the Excel Range objects CopyFromRecordset method by using the DAO.Connection objects OpenRecordset method: Public Function CreateDaoRecordset( _ ByVal sDataSource As String,
USE PubS– Sort Each of PubName in Natural Alphabetic Order but push A’s to thelastselect * from publishersOrder by (CASE left(Pub_name,1) WHEN ‘A’ THEN 1000 ELSE ASCII(pub_name)END)–Sort Publishers By City