‘ —————————————-‘ The Rotator class module” A class for printing rotated text to a ‘ Form, PictureBox or the Printer” Author: Timm Dickel ([email protected])” —————————————-‘ Usage:’ Dim rotTest As New
Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128End TypePrivate Declare Function GetVersionEx Lib “kernel32” Alias
‘————————————————————————‘ This enum is used by both InstrWordEx and ReplaceWordEx” It uses a binary value to determine what separator characters are allowed’ bit 0 = allow spaces’ bit 1 =
Option Explicit’————————————————————————‘ This enum is used by both InstrWordEx and ReplaceWordEx” It uses a binary value to determine what separator characters are allowed’ bit 0 = allow spaces’ bit 1
‘ return a file path not longer than the number of character’ specified in the 2nd argument” If necessary, it replaces directory names with ellipsises” Author: Fred Block’ CuzWare Systems’
Private Type POINTAPI x As Long Y As LongEnd TypePrivate Declare Function SetPixel& Lib “gdi32” (ByVal hDC As Long, _ ByVal x As Long, ByVal Y As Long, ByVal crColor
Private Declare Function OemKeyScan Lib “user32” (ByVal wOemChar As Integer) As _ LongPrivate Declare Function CharToOem Lib “user32” Alias “CharToOemA” (ByVal _ lpszSrc As String, ByVal lpszDst As String) As
You should prefer to use the MapPath() method of the Server object instead of hard coding the complete literal paths in ASP applications. The MapPath() method allows you to physically