You may need to execute a portion of code in a function only once the first time it is called. The following fragment illustrates an easy way to do this:
Suppose that we have an object A, whose constructor allocates lots of resources and the destructor frees that. class A{ public: A() { //Allocate resources, memory, handles etc. } ~A()
By sending appropriate messages to a multi-line TextBox control you can read and modify its formatting rectangle – that is, the inner portion of the control where the user can
Private Declare Function GetClassName Lib “user32” Alias “GetClassNameA” (ByVal _ hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As LongPrivate Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA”
Private Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA” _ (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPrivate Declare Function GetClassName Lib “user32” Alias “GetClassNameA”
Option ExplicitPrivate Declare Function GetStdHandle Lib “kernel32” (ByVal nStdHandle As Long) _ As LongPrivate Declare Function WriteFile Lib “kernel32” (ByVal hFile As Long, _ lpBuffer As Any, ByVal nNumberOfBytesToWrite As
Private Declare Function GetClassName Lib “user32” Alias “GetClassNameA” (ByVal _ hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long’ Return the class name of the specified
Private Declare Function GetStdHandle Lib “kernel32” (ByVal nStdHandle As Long) _ As LongPrivate Declare Function ReadFile Lib “kernel32” (ByVal hFile As Long, _ lpBuffer As Any, ByVal nNumberOfBytesToRead As Long,
Private Declare Function GetTempPath Lib “kernel32” Alias “GetTempPathA” (ByVal _ nBufferLength As Long, ByVal lpBuffer As String) As LongFunction TemporaryDirectory() As String Dim buffer As String * 512, length As