Private Declare Function GetProfileString Lib “kernel32” Alias _ “GetProfileStringA” (ByVal lpAppName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As
‘ Format a date as a DateSerial for Access’ Example: Debug.Print GetDBDate(date)Public Function GetDBDate(sDate As String) As String On Error GoTo ERROR_GetDBDate Dim sTmp As String If IsDate(sDate) = False
To save to file the graph generated by a MSChart control, you must use the control
‘ Generates all combination possibilities out of a stringPublic Function PermuteString(ByVal Ztring As String, Optional Base As String = _ “”) As String Dim TmpStrArray() As String, I As Long
The following code can be used to create a popup window which flies in the screen.
Everybody knows that it takes a long time to insert a large number of records into a table. To improve the speed of insertion, you can use the PL/SWL loop
This is helpful, for instance, if you’re error logging to the file and body of an e-mail. Create a new subclass of OutputStream called TeeOutputStream like this: package be.marble.io;import java.io.*;public
You probably know that integers are represented in binary–in base 2. This is pretty straightforward for positive numbers, but it means you must choose an encoding for representing negatives. The
‘ A reusable routine that displays error information’ Note: requires Imports System.ReflectionSub DisplayExceptionInfo(ByVal e As Exception) ‘ Display the error message. Console.WriteLine(e.Message) Dim st As New StackTrace(e, True) Dim i