13问答网 > vb中使用getpixel和setpixel函数不能直接使用吗？为什么老是报错说未定义子函数或

vb中使用getpixel和setpixel函数不能直接使用吗？为什么老是报错说未定义子函数或

2025-03-04 03:27:49

推荐回答（2个）

回答1：

这两个函数属于Win API函数，需要之前用Declare来声明函数名和接口，你只要把下面两个函数接口定义放在最上面就可以用了。

Private Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Declare Function SetPixel Lib "gdi32" Alias "SetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

回答补充问题：
方法一：要把声明放在所有代码的最上面，而不是你写的程序最上面。
方法二：或者新建一个模块Module，把这两个函数声明放在模块里面，并且把声明的开头Private换成Public也行。

回答2：

把这两个函数放在代码开头处。