




免費預覽已結束,剩余1頁可下載查看
下載本文檔
版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
南京信息工程大學 實驗(實習)報告實驗(實習)名稱 基于鍵盤與鼠標應用的程序設計 實驗(實習)日期 一、實驗目的1掌握鍵盤與鼠標在應用程序中的消息響應機制。二、實驗內容及步驟 實驗任務1.熟悉鍵盤的消息響應;2.熟悉鼠標的消息響應; 實驗內容 設計一個窗口,再該窗口中練習鍵盤的響應,要求如下:(1)單機鍵盤上的向上箭頭時,窗口中顯示“You had hitted the up key”;(2)單擊Shift鍵時,窗口中顯示“You had hitted the Shift key”;(3)單擊Ctrl鍵時,窗口中顯示“You had hitted the Ctrl key”;(4)單擊Ctrl+A鍵時,窗口中顯示“You had hitted the Ctrl A key”;(5)單擊Shift+B鍵時,窗口中顯示“You had hitted the Shift B key”;程序代碼:#include#include#include#includelong WINAPI WndProc(HWND hWnd,UINT iMessage,UINT wParam,LONG lParam);BOOL InitWindowsClass(HINSTANCE hInstance);BOOL InitWindows(HINSTANCE hInstance,int nCmdShow);HWND hWndMain;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(&Message,0,0,0)/消息循環(huán)TranslateMessage(&Message);DispatchMessage(&Message);return Message.wParam;long WINAPI WndProc(HWND hWnd,UINT iMessage,UINT wParam,LONG lParam)HDC hDC; /定義指向設備上下文的句柄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=(65&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:/處理繪圖消息.hDC=BeginPaint(hWnd,&ps);hBrush = (HBRUSH)GetStockObject(WHITE_BRUSH);/創(chuàng)建 白畫刷。hPen = (HPEN)GetStockObject(WHITE_PEN);/創(chuàng)建白畫筆。SelectObject(hDC,hPen);/選入白畫刷SelectObject(hDC,hBrush);/選入白畫筆SetTextColor(hDC,RGB(255,0,0);/設置字體顏色為紅色。/輸出信息。if(nUpKeyDown = TRUE) Rectangle(hDC,0,0,300,200);TextOut(hDC,0,0,cUp,strlen(cUp);nUpKeyDown = FALSE; else if(nCtrlAKeyDown = TRUE) Rectangle(hDC,0,0,300,200);TextOut(hDC,0,100,cCtrl_A,strlen(cCtrl_A);nCtrlAKeyDown = FALSE;nCtrlKeyDown = FALSE;else if(nCtrlKeyDown = TRUE&nCtrlAKeyDown = FALSE)Rectangle(hDC,0,0,300,200);TextOut(hDC,0,60,cCtrl,strlen(cCtrl);nCtrlKeyDown = FALSE;else if(nShiftBKeyDown = TRUE) Rectangle(hDC,0,0,300,200);TextOut(hDC,0,0,cShift_B,strlen(cShift_B);nShiftBKeyDown = FALSE;nShiftKeyDown = FALSE;else if(nShiftBKeyDown = FALSE&nShiftKeyDown = TRUE)Rectangle(hDC,0,0,300,200);TextOut(hDC,0,0,cShift,strlen(cShift);nShiftKeyDown = FALSE;else /刪除畫筆和畫刷 printf(Input Error !n); break;DeleteObject(hPen);DeleteObject(hBrush);EndPaint(hWnd,&ps); break;case WM_DESTROY:PostQuitMessage(0);return 0;default:return(DefWindowProc(hWnd,iMessage,wParam,lParam);return 0;BOOL InitWindows(HINSTANCE hInstance,int nCmdShow) HWND hWnd;hWnd=CreateWindow(6_3, 鍵盤實例程序, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInstance, NULL);if(!hWnd)return FALSE;hWndMain=hWnd;ShowWindow(hWnd,nCmdShow);UpdateWindow(hWnd);return TRUE;BOOL InitWindowsClass(HINSTANCE hInstance)WNDCLASS WndClass; WndClass.cbClsExtra=0;WndClass.cbWndExtra=0; WndClass.hbrBackground=(HBRUSH)(GetStockObject(WHITE_BRUSH); WndClass.hCursor=LoadCursor(NULL,IDC_ARROW); WndClass.hIcon=LoadIcon(NULL,END); WndClass.hInstance=hInstance; WndClass.lpfnWndProc=WndProc; WndClass.lpszClassNa
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 產(chǎn)品配方表格-材料配比研究
- 抗微生物藥項目可行性分析報告
- 2025年上半年宣城寧國市經(jīng)信委招考易考易錯模擬試題(共500題)試卷后附參考答案
- 2025年上半年安徽黃山徽州區(qū)數(shù)據(jù)資源局招聘2人易考易錯模擬試題(共500題)試卷后附參考答案
- 2024年調速永磁交流電動機項目資金需求報告代可行性研究報告
- 2025年上半年安徽蕪湖鏡湖區(qū)天門山社區(qū)衛(wèi)生服務中心招聘3人信息易考易錯模擬試題(共500題)試卷后附參考答案
- 2024霍爾果斯人才集團招聘管理崗及輔助崗工作人員(89人)筆試參考題庫附帶答案詳解
- 2025年上半年安徽宿州碭山縣總工會招聘編外人員3人易考易錯模擬試題(共500題)試卷后附參考答案
- 2024年飼料級磷酸氫鈣項目項目投資申請報告代可行性研究報告
- 2025年上半年安徽亳州市蒙城縣委辦等18家單位招考編外人員119人易考易錯模擬試題(共500題)試卷后附參考答案
- 管道鈍化方案
- 2024屆山東省青島市西海岸新區(qū)6中中考歷史考前最后一卷含解析
- 小兒推拿法操作評分標準
- 心腦血管疾病的危險因素與管理1
- 第一單元練習卷(單元測試)2023-2024學年統(tǒng)編版語文六年級下冊
- 2016年4月自考00040法學概論試題及答案
- 2024中國碳普惠發(fā)展與實踐案例研究報告
- 2024年中國檢驗認證集團招聘筆試參考題庫附帶答案詳解
- 人教版九年級數(shù)學下冊《第二十六章反比例函數(shù)》測試卷單元測試卷-帶有參考答案
- 公園售票員管理制度
- 本科:交通管理專業(yè)培養(yǎng)方案(管理學院)
評論
0/150
提交評論