Windows-API窗口画线程序

1、-精选文档 -集美大学计算机工程学院实验报告课程名称 ： TCP/IP 协议与通信程序设计班级：实验成绩 ：实验项目名称 ：Windows API窗口画线程学号：上机实践日期 ： 2016-04-序设计07实验项目编号 ：03组号： 1上机实践时间 ：2 学时一、实验目的理解并熟悉 Windows 程序消息映射的思想，熟练掌握运用 Win32 API 技术进行编程的方法。为 Windows 通信程序打下坚实的基础。二、实验内容与设计思想设计一个简单的 Win32 程序，该程序窗口内正上方居中显示“ Windows API 画线程序演示”字样，在程序窗口内任意位置按下鼠标左键并拖动到窗口范围内任

2、意位置，松开鼠标左键即可绘制一条蓝色的直线。三、实验使用环境操作系统：Microsoft Windows XP SP2编程环境：Visual C+ 6.0中文企业版四、实验步骤和调试过程详细给出源码以及实现的效果图，并配有代码解释源码：#include LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM);int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow)TCHAR SoftName=TEXT(划线程序

3、 );可编辑-精选文档 -HWNDhwnd ;MSGmsg ;WNDCLASS wndclass ;wndclass.style= CS_HREDRAW | CS_VREDRAW ;wndclass.lpfnWndProc= WndProc ;wndclass.cbClsExtra= 0 ;wndclass.cbWndExtra= 0 ;wndclass.hInstance= hInstance ;wndclass.hIcon= LoadIcon (hInstance, SoftName) ;wndclass.hCursor= LoadCursor (NULL, IDC_ARROW) ;wnd

4、class.hbrBackground = (HBRUSH) GetStockObject(WHITE_BRUSH) ;wndclass.lpszMenuName= NULL ;wndclass.lpszClassName = SoftName ;if (!RegisterClass (&wndclass)MessageBox (NULL, TEXT (This program requires Windows NT!), SoftName, MB_ICONERROR) ;return 0 ;hwnd = CreateWindow (SoftName, SoftName,WS_OVERLAPP

5、EDWINDOW,GetSystemMetrics (SM_CXSCREEN) / 4,GetSystemMetrics (SM_CYSCREEN) / 4,GetSystemMetrics (SM_CXSCREEN) / 2,GetSystemMetrics (SM_CYSCREEN) / 2,NULL, NULL, hInstance, NULL) ;ShowWindow (hwnd, iCmdShow) ;UpdateWindow (hwnd) ;while (GetMessage (&msg, NULL, 0, 0)可编辑-精选文档 -TranslateMessage (&msg) ;

6、DispatchMessage (&msg) ;return msg.wParam ;LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)static POINT pt2;/ 定义存放结构体类型的点的坐标PAINTSTRUCT ps;/ 定义指向包含绘图信息的结构体变量HDC hdc; / 定义指向设备的句柄HPEN hPen;/ 定义指向画笔的句柄RECTrect ; / 定义指向矩形区域的结构体变量switch(message)case WM_CREATE:return 0;case

7、 WM_LBUTTONDOWN: / 鼠标点击左键后获取该点的坐标病放到 POINT 结构体内pt0.x=LOWORD(lParam);pt0.y=HIWORD(lParam);return 0;case WM_MOUSEMOVE: / 按下了左键就获取点的坐标并放到结构体内，只要没按下键或按得不是左键俊不获取坐标if(wParam & MK_LBUTTON)pt1.x=LOWORD(lParam);pt1.y=HIWORD(lParam);可编辑-精选文档 -InvalidateRect(hwnd,NULL,TRUE);/ 窗体重新绘制（用于下一个WM_PAINT消息到来时）return 0

8、;case WM_PAINT:/ 处理绘图消息hdc=BeginPaint(hwnd,&ps);/ 开始窗口绘制GetClientRect (hwnd, &rect);/ 获取窗口客户区的尺寸DrawText (hdc,TEXT(Windows API画线程序演示 !),-1, &rect,DT_SINGLELINE | DT_CENTER) ;/ 显示文本串hPen=CreatePen(PS_SOLID,2,RGB(0,0,255);/ 创建画笔，样式为实线，宽度为 2. 颜色为蓝色SelectObject(hdc,hPen);/ 选择画笔MoveToEx(hdc,pt0.x,pt0.y,0);/ 移到刚才存放的鼠标左键按下的坐标点LineTo(hdc,pt1.x,pt1.y);/ 从当前坐标连线到pt1 坐标所在位置即划成一条直线EndPaint(hwnd,&ps); / 释放设备环境句柄，结束窗口绘制 return 0;case W