정보더미

● 비트맵 정보 헤더
● 원형
 typedef struct tagBITMAPINFOHEADER { DWORD biSize; LONG biWidth; LONG biHeight; WORD biPlanes; WORD biBitCount; DWORD biCompression; DWORD biSizeImage; LONG biXPelsPerMeter; LONG biYPelsPerMeter; DWORD biClrUsed; DWORD biClrImportant; } BITMAPINFOHEADER, *PBITMAPINFOHEADER;
● 구조
 Type BITMAPINFOHEADER biSize As Long biWidth As Long biHeight As Long biPlanes As Integer biBitCount As Integer biCompression As Long biSizeImage As Long biXPelsPerMeter As Long biYPelsPerMeter As Long biClrUsed As Long biClrImportant As Long End Type
● 구조 멤버
biSize ━ 이 구조체 바이트 크기
biWidth ━ 비트맵 폭 픽셀수
biHeight ━ 비트맵 높이 픽셀수
biPlanes ━ 면수
biBitCount ━ 픽셀당 비트수
biCompression ━ 압축 방법
biSizeImage ━ 이미지 크기
biXPelsPerMeter ━ 미터당 픽셀수 수평
biYPelsPerMeter ━ 미터당 픽셀수 수직
biClrUsed ━ 칼라 테이블의 칼라수
biClrImportant ━ 필요한 칼라수
● 상수
● biCompression 사용, 압축 방법

● 비트맵 파일의 헤더
● 원형
 typedef struct tagBITMAPFILEHEADER { WORD bfType; DWORD bfSize; WORD bfReserved1; WORD bfReserved2; DWORD bfOffBits; } BITMAPFILEHEADER, *PBITMAPFILEHEADER;
● 구조
 Type BITMAPFILEHEADER bfType As Integer bfSize As Long bfReserved1 As Integer bfReserved2 As Integer bfOffBits As Long End Type
● 구조 멤버
bfType ━ 파일 타입, BM
bfSize ━ 비트맵 파일 크기, 바이트
bfReserved1 ━ 0
bfReserved2 ━ 0
bfOffBits ━ 이 구조의 시작에서 부터 비트맵 비트 데이타가 시작되는 옵셋 위치

● 지정된 윈도우의 시각적인 부분을 지정된 DC에 그릴때 발생
● 원형
  #define WM_PRINT 0x0317
 ● 선언
WM_PRINT = &H317
● wparam
지정된 윈도우를 그릴 윈도우의 DC 핸들
● lparam
지정된 윈도우에서 어떤 부분을 그릴지를 나타낸다. OR로 묶을수 있다.
● 상수
● lparam에서 사용, 지정된 윈두에서 그릴 영역

● 관련 ━ 디스플레이,장치,정보
● 디스플레이 장치의 정보를 얻는다
● 원형
 int GetDeviceCaps( __in HDC hdc, __in int nIndex );
● 선언
GetDeviceCaps Lib "GDI32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
● 인수
hdc ━ 알고자 하는 DC 정보
nIndex ━ 알고자 하는 DC의 속성
● 반환
성공 ━ 지정된 항목에 해당하는 값
● 상수
● nIndex 사용, 속성

● 윈도우와, 윈도우의 작업표시줄에 표시된 항목을 깜박거리개 한다.
● 원형
 BOOL WINAPI FlashWindowEx( __in PFLASHWINFO pfwi );
● 선언
FlashWindowEx Lib "user32" (pfwi As FLASHWINFO) As Boolean
● 인수
pfwi ━ 윈도우 핸들
● 반환
이 함수를 호출하기 전의 윈도우의 상태, 윈도우가 활성 상태이면 0이 아닌 값, 그 외는 0

● 윈도우와, 윈도우의 작업표시줄에 표시된 항목을 깜박거리개 한다.
● 원형
  BOOL WINAPI FlashWindow( __in HWND hWnd, __in BOOL bInvert );
● 선언
FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Boolean
● 인수
hWnd ━ 윈도우 핸들
bInvert ━ True이면 윈도우의 상태를 반전, False이면 윈도우의 원래 상태로
● 반환
이전 상태

● 타이머를 설정한다, 타이머 제거시 KillTimer를 사용한다
● 원형
 UINT_PTR WINAPI SetTimer( __in_opt HWND hWnd, __in UINT_PTR nIDEvent, __in UINT uElapse, __in_opt TIMERPROC lpTimerFunc );
● 선언 
SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
● 인수
hwnd ━ 타이머와 연관된 윈도우 핸들(호출될 쓰레드를 포함하는 윈도우),
nIDEvent ━ 0이 아닌 타이머 식별자
uElapse ━ 타임아웃 시간,밀리초
lpTimerFunc ━ 타임아웃시 호출할 콜백함수 TimerProc
● 복귀
성공 ━ hwnd가 Null이면 타이머 식별자,hwnd가 Null이 아니면 0이 아닌값
실패 ━ 0

● 타이머를 제거한다
● 원형
 BOOL WINAPI KillTimer( __in_opt HWND hWnd, __in UINT_PTR uIDEvent );
● 선언
KillTimer Lib "user32" (ByVal hwnd As Long, ByVal uIDEvent As Long) As Long
● 인수
hwnd ━ 타이머와 연관된 윈도우 핸들
uIDEvent ━ 타이머 식별자로, hwnd이 Null이 아니면 SetTimer에 uIDEvent값, hwnd이 Null이면 타이머 식별자인
SetTimer의 반환값 지정
● 복귀
성공 ━ 0이 아닌값
실패 ━ 0

타이머 컨트롤을 사용하려면 반드시 컨트롤이 필요하며, 컨트롤은 반드시 폼을 필요한다. 따라서 타이머 컨트롤을 사요하기 위해서는 폼이 필요하다. 그러나 일반 모듈 같은 곳에서 타이머를 사용하려면 방법이 없는 것은 아니다. API를 사용하여 타이머를 사용할 수 있다. SetTimer로 타이머를 작동시키고 KillTimer로 지정된 타이머를 삭제할수 있다.

다음은 소스이다.
'일반 모듈이다.
' 윈도우 없이 타이머를
Option Explicit

Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Public state As Boolean ' 타이머 종료 프로시저 호출 상태
Public ID As Long ' 타이머 ID

Sub main()
    ID = SetTimer(0&, 1000, 100, AddressOf TimerProc)
    Form1.Show
End Sub

' 타이머 프로시저
Public Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
    Debug.Print state '
End Sub

다음은 폼 모듈이다.
Option Explicit

Private Sub Command1_Click()
    state = True
    KillTimer 0&, ID ' 타이머를 제거한다.
End Sub

여기서 폼 모듈은, KillTimer의 호출 여부를  확인 하기 위한 상태 변수를 지정하기 위함이다.
소스를 실행시키면 직접 실행창에 KillTimer의 호출 상태를 나타내는 State의 상태 값이 쭉 표시된다.
폼의 커맨드 버튼을 누름과 거의 동시에 State 상태 값이 출력되는 것이 정지되는 볼수 있다. 즉 타이머가 삭제된 것이다.

● 메모리의 지정된 부분을 복사한다.
● 사용시 Type 데이타형 복사시에 Type데이타를 직접 사용하여도 된다, copymemory a,b,lenb(b)
● 원형
void CopyMemory( __in PVOID Destination, __in const VOID *Source, __in SIZE_T Length ); void MoveMemory( __in PVOID Destination, __in const VOID *Source, __in SIZE_T Length );
● 선언
CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long) RtlMoveMemory Lib "kernel32" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
● 인수
Destination ━ 복사받을 변수
Source ━ 복사할 변수
Length ━ 복사할 바이트 수

● 지정된 윈도우의 핸들의 DC를 얻는다.
● 반환은 ReleaseDC를 사용한다.
● 원형
HWND WINAPI GetDesktopWindow(void); 
● 선언 
GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
● 인수
hwnd ━ DC를 얻고 싶은 윈도우 핸들, Null(0)이면 전체 화면 DC를 반환한다.
● 반환
성공 ━ 핸들에서 얻은 DC
실패 ━ Null

다음은 소스이다.
' 모듈 소스
Option Explicit

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WA_INACTIVE = 0
Private Const WM_ACTIVATE = &H6

Public PreviosWindowProcedure As Long

Public Function WndProc(ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If MSG = WM_ACTIVATE And Not ((wParam & &HFFFF&) = WA_INACTIVE) Then
        Form1.TextShowCaret
    End If
    WndProc = CallWindowProc(PreviosWindowProcedure, hWnd, MSG, wParam, lParam)
End Function

'폼 소스
Option Explicit

Private Declare Function CreateCaret Lib "user32" (ByVal hWnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function DestroyCaret Lib "user32" () As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_WNDPROC = (-4)
Private Const IMAGE_BITMAP = 0
Private Const LR_LOADFROMFILE = &H10

Private BitmapID As Long ' 이미지 핸들
Private FilePath As String ' 파일 경로

Private Sub Form_Load()
    FilePath = App.Path & "\mypic.bmp"
    BitmapID = LoadImage(App.hInstance, FilePath, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
    PreviosWindowProcedure = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WndProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetWindowLong Me.hWnd, GWL_WNDPROC, PreviosWindowProcedure
    DestroyCaret
    DeleteObject BitmapID
    BitmapID = 0
End Sub

Private Sub txtCaret_Click()
    TextShowCaret
End Sub

Private Sub txtCaret_GotFocus()
    TextShowCaret
End Sub

Public Sub TextShowCaret()
    If BitmapID = 0 Then Exit Sub
    With txtCaret
        .SetFocus
        CreateCaret .hWnd, BitmapID, 0, 0
        ShowCaret .hWnd
    End With
End Sub

● 윈도우가 활성,비활성화 될 때 발생한다
● 원본
#define WM_ACTIVATE 0x0006
● 선언
WM_ACTIVATE= &H6
● wparam
하위 워드는 윈도우가 활성,비활성인지를 나타낸다.
윈도우가 최소화 상태인지를 나타낸다. 0이 아닌 값이면 최소화 상태
● lparam
윈도우 활성될때 이전의 활성 윈도우 핸들,윈도우가 비활성 될 때 다음에 활성되는 윈도우 핸들
● 상수
wparam 하위 워드 사용, 윈도우 활성,비활성 여부

● 원형
int ReleaseDC(
  __in  HWND hWnd,
  __in  HDC hDC
)
● 지정된 윈도우의 DC를 반환,해제한다
● GetWindowDC, GetDC로 얻은 DC
● 선언
ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
● 인수
hwnd ━ 반환할 DC를 갖는 핸들
hDC ━ 반환할 DC
● 반환
성공 ━ 1이면 반환
실패 ━ 0이면 반환 실패

● 원형
HDC GetDC(
  __in  HWND hWnd
)
● 지정된 윈도우 핸들에서 클라이언트 영역만 사용 가능한 DC(커먼 DC)를 얻는다.
● 반환은 ReleaseDC를 사용한다.
● 선언
GetDC Lib "user32" (ByVal hwnd As Long) As Long
● 인수
hwnd ━ DC를 얻고 싶은 핸들
● 반환
성공 ━ 핸들에서 얻은 DC의 핸들
실패 ━ Null

위 이미지는 소스의 결과이다.
RegEnumValue는 오픈된 키에 값명과 값들을 인덱스 번호 0부터 시작하여, 지정된 항목의 값명과 값을 읽어온다.

오픈된 레지스트리 키에서 지정된 번호에 해당하는 값명과 값을 읽는다. 0부터 순차적으로 호출하여 ERROR_NO_MORE_ITEMS이 발생될까지 하면 해당 키의 전체 값명,값을 얻을 수 있다.

● 선언
Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

● 인수
hKey ━ 오픈된 레지스트리키 핸들이나,정의된 레지스트리 특정키 상수
dwIndex ━ 읽을 키의 인덱스 번호 0이 첫번째
lpValueName ━ 키 이름을 저장할 버퍼
lpcbValueName ━ lpValueName 버퍼의 크기
lpReserved ━ 0
lpType ━ 키의 타입 저장될 변수
lpData ━ 키의 값을 받을 버퍼
lpcbData ━ lpData 버퍼의 크기

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const ERROR_NO_MORE_ITEMS = 259
Private Const BUFFERSIZE = 255

Private Sub Form_Load()
    Dim OpenRegHwnd As Long ' 오픈된 레지스트리 키 핸들
    Dim ValueName As String ' 값명 버퍼
    Dim ValueNameSize As Long ' 값명 버퍼 사이즈, 및 버퍼에 저장된 값명 길이
    Dim Value As String ' 값 버퍼
    Dim ValueSize As Long ' 값 버퍼 사이즈, 및 버퍼에 저장된 값 길이
    Dim IndexCount As Long ' 값 인덱스 번호 카운터
   
    RegOpenKey HKEY_LOCAL_MACHINE, "HARDWARE\DEVICEMAP\SERIALCOMM", OpenRegHwnd ' 레지스트리 키를 오픈한다
    ValueName = String(BUFFERSIZE, " ")
    Value = String(BUFFERSIZE, " ")
    IndexCount = 0
    ValueNameSize = BUFFERSIZE
    ValueSize = BUFFERSIZE
    While Not ERROR_NO_MORE_ITEMS = RegEnumValue(OpenRegHwnd, IndexCount, ValueName, ValueNameSize, 0&, ByVal 0&, ByVal Value, ValueSize)
        List1.AddItem Left(ValueName, ValueNameSize)
        List2.AddItem Left(Value, ValueSize)
        IndexCount = IndexCount + 1
        ValueNameSize = BUFFERSIZE
        ValueSize = BUFFERSIZE
    Wend
    RegCloseKey OpenRegHwnd ' 오픈된 레지스트리 키를 닫는다.
End Sub