vfp 调用api 在表单上画线

最新推荐文章于 2022-06-17 20:01:57 发布

taohua300

最新推荐文章于 2022-06-17 20:01:57 发布

阅读量1.6k

点赞数 1

CC 4.0 BY-SA版权

文章标签： api integer null callback string winapi

本文链接：https://blog.youkuaiyun.com/taohua300/article/details/7415910

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近复习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 @lpPoint
Declare Integer LineTo In gdi32 Long hdc