LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
static int cxChar, cxCaps, cyChar, cyClient, iVscrollPos ;
HDC hdc ;
int i, y ;
PAINTSTRUCT ps ;
TCHAR szBuffer[10] ;
TEXTMETRIC tm ;
switch (message)
{
case WM_CREATE:
hdc = GetDC (hwnd) ;
GetTextMetrics (hdc, &tm) ;
cxChar = tm.tmAveCharWidth ;
cxCaps = (tm.tmPitchAndFamily & 1 ? 3 : 2) * cxChar / 2 ;
cyChar = tm.tmHeight + tm.tmExternalLeading ;
ReleaseDC (hwnd, hdc) ;
SetScrollRange (hwnd, SB_VERT, 0, NUMLINES - 1, FALSE) ;
SetScrollPos (hwnd, SB_VERT, iVscrollPos, TRUE) ;
return 0 ;
case WM_SIZE:
cyClient = HIWORD (lParam) ;
return 0 ;
case WM_VSCROLL:
switch (LOWORD (wParam))
{
case SB_LINEUP:
iVscrollPos -= 1 ;
break ;
case SB_LINEDOWN:
iVscrollPos += 1 ;
break ;
case SB_PAGEUP:
iVscrollPos -= cyClient / cyChar ;
break ;
case SB_PAGEDOWN:
iVscrollPos += cyClient / cyChar ;
break ;
case SB_THUMBPOSITION:
iVscrollPos = HIWORD (wParam) ;
break ;
default :
break ;
}
iVscrollPos = max (0, min (iVscrollPos, NUMLINES - 1)) ;
if (iVscrollPos != GetScrollPos (hwnd, SB_VERT))
{
SetScrollPos (hwnd, SB_VERT, iVscrollPos, TRUE) ;
InvalidateRect (hwnd, NULL, TRUE) ;
}
return 0 ;
case WM_PAINT:
hdc = BeginPaint (hwnd, &ps) ;
for (i = 0 ; i < NUMLINES ; i++)
{
y = cyChar * (i - iVscrollPos) ;
TextOut (hdc, 0, y,
sysmetrics[i].szLabel,
lstrlen (sysmetrics[i].szLabel)) ;
TextOut (hdc, 22 * cxCaps, y,
sysmetrics[i].szDesc,
lstrlen (sysmetrics[i].szDesc)) ;
SetTextAlign (hdc, TA_RIGHT | TA_TOP) ;
TextOut (hdc, 22 * cxCaps + 40 * cxChar, y, szBuffer,
wsprintf (szBuffer, TEXT ("%5d"),
GetSystemMetrics (sysmetrics[i].iIndex))) ;
SetTextAlign (hdc, TA_LEFT | TA_TOP) ;
}
EndPaint (hwnd, &ps) ;
return 0 ;
case WM_DESTROY:
PostQuitMessage (0) ;
return 0 ;
}
return DefWindowProc (hwnd, message, wParam, lParam) ;
}
WndProc窗口消息處理程序在處理WM_CREATE消息時增加了兩條敘述，以設(shè)置垂直滾動條的范圍和初始位置：
SetScrollRange (hwnd, SB_VERT, 0, NUMLINES - 1, FALSE) ;
SetScrollPos (hwnd, SB_VERT, iVscrollPos, TRUE) ;
具有NUMLINES行文字，所以滾動條范圍被設(shè)定為0至NUMLINES-1。滾動條的每個位置對應(yīng)于在顯示區(qū)域頂部顯示的一個文字行。如果卷動方塊的位置為0，則第一行會被放置在顯示區(qū)域的頂部。如果位置大于0，其它行就會出現(xiàn)在顯示區(qū)域的頂部。當(dāng)位置為NUMLINES-1時，則最后一行文字出現(xiàn)在顯示區(qū)域的頂部。
為了有助于處理WM_VSCROLL消息，在窗口消息處理程序中定義了一個靜態(tài)變量iVscrollPos，這一變量是滾動條內(nèi)卷動方塊的目前位置。對于SB_LINEUP和SB_LINEDOWN，只需要將卷動方塊調(diào)整一個單位的位置。對于SB_PAGEUP和SB_PAGEDOWN，我們想移動一整面的內(nèi)容，或者移動cyClient /cyChar個單位的位置。對于SB_THUMBPOSITION，新的卷動方塊位置是wParam的高字組。SB_ENDSCROLL和SB_THUMBTRACK消息被忽略。
在程序依據(jù)收到的WM_VSCROLL消息計算出新的iVscrollPos值后，用min和max宏來調(diào)整iVscrollPos，以確保它在最大值與最小值之間。程序然后將iVscrollPos與呼叫GetScrollPos取得的先前位置相比較，如果卷動位置發(fā)生了變化，則使用SetScrollPos來進(jìn)行更新，并且呼叫InvalidateRect使整個窗口無效。
InvalidateRect呼叫產(chǎn)生一個WM_PAINT消息。
在處理完滾動條消息后，不更新顯示區(qū)域，相反，它呼叫InvalidateRect使顯示區(qū)域失效。這導(dǎo)致Windows將一個WM_PAINT消息放入消息隊列中。
最好能使Windows程序在響應(yīng)WM_PAINT消息時完成所有的顯示區(qū)域繪制功能。因為程序必須在一接收到WM_PAINT消息時就更新整個顯示區(qū)域，如果在程序的其它部分也繪制的話，將很可能使程序代碼重復(fù)。
只將窗口顯示區(qū)域標(biāo)記為無效以產(chǎn)生WM_PAINT消息，對于某些應(yīng)用程序來說也許不是完全令人滿意的選擇。在呼叫InvalidateRect之后，Windows將WM_PAINT消息放入消息隊列中，最后由窗口消息處理程序處理它。然而，Windows將WM_PAINT消息當(dāng)成低優(yōu)先級消息，如果系統(tǒng)有許多其它的動作正在發(fā)生，那么也許會讓您等待一會兒工夫。這時，當(dāng)對話框消失時，將會出現(xiàn)一些空白的「洞」，程序仍然等待更新它的窗口。
如果您希望立即更新無效區(qū)域，可以在呼叫InvalidateRect之后呼叫UpdateWindow：
UpdateWindow (hwnd) ;
如果顯示區(qū)域的任一部分無效，則UpdateWindow將導(dǎo)致Windows用WM_PAINT消息呼叫窗口消息處理程序（如果整個顯示區(qū)域有效，則不呼叫窗口消息處理程序）。這一WM_PAINT消息不進(jìn)入消息隊列，直接由Windows呼叫窗口消息處理程序。窗口消息處理程序完成更新后立即退出，Windows將控制傳回給程序中UpdateWindow呼叫之后的敘述。