【文章內容簡介】 26 個字母，字體從正常到斜體，顏色從黑色到天藍色不斷變換。 include include include include int a=0。 //函數(shù)提前聲明 BOOL InitWindowsClass(HINSTANCE hInstance)。 BOOL InitWindows(HINSTANCE hInstance, int nCmdShow)。 long WINAPI WndProc(HWND hWnd, UINT iMessage, UINT wParam, LONG lParam)。 BOOL InitWindowsClass(HINSTANCE hInstance) //初始化窗口類 { WNDCLASS WndClass。 = 0。 = 0。 = (HBRUSH)::GetStockObject(WHITE_BRUSH)。 = ::LoadCursor(NULL, IDC_ARROW)。 = ::LoadIcon(NULL, END)。 = hInstance。 = WinFill。 = WndProc。 = NULL。 = CS_HREDRAW | CS_VREDRAW。 return (::RegisterClass(amp。WndClass))。 } // BOOL InitWindows(HINSTANCE hInstance, int nCmdShow) //初始化窗口 { HWND hWnd。 hWnd = ::CreateWindow(WinFill,填充實例程序 , WS_OVERLAPPEDWINDOW, //窗口類型 250,150,450,450,NULL,NULL,hInstance,NULL)。 if (!hWnd) { return FALSE。 } ::ShowWindow(hWnd, nCmdShow)。 ::UpdateWindow(hWnd)。 return TRUE。 } long WINAPI WndProc(HWND hWnd,UINT iMessage,UINT wParam,LONG lParam) { HDC hdc。 //設置環(huán)境句柄 char str[]=abcdefghijklmnopqrstuvwxyz。 int i=0。 static n。 PAINTSTRUCT ps。 TEXTMETRIC tm。 int LY=50。 //初始坐標 HFONT hF_black,hF_blue。 //字體句柄 switch(iMessage) { case WM_CREATE: SetTimer(hWnd,1,300,NULL)。 break。 case WM_PAINT: hdc=BeginPaint(hWnd,amp。ps)。 GetTextMetrics(hdc,amp。tm)。 //獲取默認句柄，寫入 tm 結構中 for(i=0。i26。i++) { int y=LY。 //LY if(i==n) { if(a==0) y=LY30。 else y=LY+30。 SetTextColor(hdc,RGB(255,0,0))。 //設置單個的顏色為紅 } TextOut(hdc,2*i*,y,amp。str[i],1)。//依次為字符串起始坐標，所顯示的字符串，輸出的字節(jié)數(shù) SetTextColor(hdc,RGB(0,0,0))。 // 設置整排的顏色為黑 } if (n%2==0) //當時鐘為偶數(shù)時顯示黑色字體 { hF_black=CreateFont( 30, //字體的高度 0,0,0, FW_NORMAL, //字體的粗度 0, //定義斜體 0,0, GB2312_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, 正常 )。 SelectObject(hdc,hF_black)。 GetTextMetrics(hdc,amp。tm)。 for (i=0。i26。i++) { SetTextColor(hdc,RGB(0,0,0))。 TextOut(hdc,(25i)*,LY+3*+,amp。str[25i],1)。 } } else { hF_blue=CreateFont( 20, //字體的高度 0, 0, 0, FW_HEAVY, //字體的粗度 1, //定義斜體 0, 0, GB2312_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, 粗體字 )。 SelectObject(hdc,hF_blue)。 GetTextMetrics(hdc,amp。tm)。 for (i=0。i26。i++) { SetTextColor(hdc,RGB(0,0,255))。 TextOut(hdc,(25i)*,LY+3*+,amp。str[25i],1)。 } } EndPaint(hWnd,amp。ps)。 break。 case WM_TIMER: n++。 if (n==26) n=0。 RECT rc。 GetClientRect(hWnd,amp。rc)。 //獲取當前窗口可用區(qū) InvalidateRect(hWnd,amp。rc,true)。 //對該區(qū)域進行刷新 UpdateWindow(hWnd)。 break。 case WM_KEYDOWN: { switch(wParam) { case VK_UP: //減速 a=0。 InvalidateRect(hWnd,amp。rc,true)。 break。 case VK_DOWN: //加 速 a=1。 InvalidateRect(hWnd,amp。rc,true)。 break。 } } return 0。 case WM_DESTROY: KillTimer(hWnd,1)。 //刪除計時器 PostQuitMessage(0)。 default: return DefWindowProc(hWnd,iMessage,wParam,lParam)。 } return 0。 } int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) { MSG Message。 if (!InitWindowsClass(hInstance)) { return FALSE。 } if (!InitWindows(hInstance, nCmdShow)) { return FALSE。 } while (::GetMessage(amp。Message, 0, 0, 0)) { ::TranslateMessage(amp。Message)。 ::DispatchMessage(amp。Message)。 } return 。 } 2）編寫一個程序，在窗口中顯示“ VC 中顯示字體與背景 ”，字體顏色為紅色，背景色為黃色，字體為宋體，字高 40。 主要儀器設備及藥品 Windows 2021+VC +MSDN 實驗五 鍵盤消息的響應實驗 （驗證性實驗 2 學時） 目的要求： 理解 Windows 程序響應鍵盤操作的原理，熟悉鍵盤消息的響應編程。 實驗內容：（選做 1 個） 1）設計一個窗口，在該窗口中練習鍵盤的響應，要求如下：單擊鍵盤上的向上箭頭時，窗口中顯示 “You had hitted the up key”； 單擊 Shift鍵時，窗口中顯示 “You had hitted the SHIFT key”；單擊 Ctrl鍵時，窗口中顯示 “You had hitted the CTRL key”；單擊 Ctrl+A鍵時，窗口中顯示 “You had hitted the CTRL A key”；單擊 Shift+B鍵時，窗口中顯示 “You had hitted the SHIFT B key”。 long WINAPI WndProc(HWND hWnd,UINT iMessage,UINT wParam,LONG lParam) {HDC hDC。 //定義設備環(huán)境句柄 . PAINTSTRUCT ps。 //定義包含繪圖信息的結構體變量 HPEN hPen。 //定義畫筆句柄。 HBRUSH hBrush。 //定義畫刷句柄 //以下定義輸出的字符串。 static char cUp[]=You had hitted the UP key。 static char cCtrl[]=You had hitted the Ctrl key。 static char cShift[]=You had hitted the SHIFT key。 static char cCtrl_A[]=You had hitted the CTRL A key。 static char cShift_B[]=You had hitted the SHIFT B key。 //下面定義并初始化按鍵標志變量。 static BOOL nUpKeyDown=FALSE, nShiftKeyDown=FALSE, nCtrlKeyDown=FALSE, nCtrlAKeyDown=FALSE, nShiftBKeyDown=FALSE。 switch(iMessage) { case WM_KEYDOWN: { switch(wParam) { case VK_UP: //當按上箭頭鍵時，變量置為真。 nUpKeyDown = TRUE。 break。 case VK_SHIFT: //當按 shift 鍵時，變量置為真。 nShiftKeyDown = TRUE。 break。 case VK_CONTROL: //當按 control 鍵時，變量置為真 nCtrlKeyDown = TRUE。 break。 default: break。 } } break。 case WM_KEYUP: InvalidateRect(hWnd,NULL,FALSE)。 break。 case WM_CHAR: if(wParam==(65amp。VK_CONTROL)) { if(nCtrlKeyDown == TRUE) { nCtrlAKeyDown = TRUE。 nCtrlKeyDown = FALSE。 } } else if(wParam==98||wParam==66) //當按下 b 鍵時 { if(nShiftKeyDown == TRUE) //檢查 shift 鍵是否處于按下狀態(tài)。 {nShiftBKeyDown = TRUE。 //當 SHIFT 鍵按下時，變量置為真 nShiftKeyDown = FALSE。} } break。 case WM_PAINT: //處理繪圖消息 .