vfp 调用api 在表单上画线

最新推荐文章于 2021-11-17 15:28:56 发布

taohua300

最新推荐文章于 2021-11-17 15:28:56 发布

阅读量1.5k

点赞数 1

文章标签： api integer null callback string winapi

本文链接：https://blog.csdn.net/taohua300/article/details/7415910

版权

本文介绍了如何在Visual FoxPro（VFP）环境下利用API调用来实现在表单上绘制线条的功能。作者通过对比C/C++中的实现，探讨了在VFP 9.0 SP2环境下实现相同功能的方法，具体操作包括在表单上添加按钮，并在按钮点击事件中编写相关API调用代码。

摘要由CSDN通过智能技术生成

最近复习win32sdk，看到某些api在C/C++中的实现，突然想看看能不能在vfp下是不是也能实现同样的功能

虽然简单，权当实验

实现环境 xp sp3 中文版 + vfp 9.0 sp2 7423 汉化版

准备

新建一个表单，然后在表单上放置一个按钮(Command)

复制下面代码到按钮的Click 事件中

*!*	typedef struct tagPAINTSTRUCT { 
*!*	  HDC  hdc; 
*!*	  BOOL fErase; 
*!*	  RECT rcPaint; 
*!*	  BOOL fRestore; 
*!*	  BOOL fIncUpdate; 
*!*	  BYTE rgbReserved[32]; 
*!*	} PAINTSTRUCT, *PPAINTSTRUCT; 

*!*	typedef struct tagRECT { 
*!*	  LONG left; 
*!*	  LONG top; 
*!*	  LONG right; 
*!*	  LONG bottom; 
*!*	} RECT, *PRECT, NEAR *NPRECT, FAR *LPRECT;
                                                         

Declare GetClientRect In user32 Long hWnd, ;
	String @lpRect
Declare Long BeginPaint In user32 Long hwnd, ;
	String @lpPaint
Declare Long EndPaint In user32 Long hwnd, ;
	String @lpPaint
Declare Integer MoveToEx In gdi32 Long hdc,;
	Integer x, ;
	Integer y, ;
	String