Question

VB 的Declare语句

各位师傅,我是vb的初学者,我现在要在vb中使用别人开发的按键精灵插件"Bmp24.dll"。
这是dll用pe explorer打开看到的TYELIB：//版本号: 1.0 Bocai; GUID = {DEBA68E8-E010-4A26-8078-E9C7C2A32B55};
分派 _Bmp24; GUID = {A6EEB6A2-B0D8-487A-B84C-D26B73F2466F};
function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall; function AddRef: UI4; stdcall;
function Release: UI4; stdcall; function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall; function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^变量; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
function ReadBmp(out filepath: ^变量): 布尔; stdcall; function GetWidth: 变量; stdcall;
function Getheight: 变量; stdcall; function Getdepth: 变量; stdcall; //测试函数1
function GetCol(out x: ^变量; out y: ^变量): BSTR; stdcall; //测试函数2
function SetCol(out x: ^变量; out y: ^变量; out NewCol: ^变量): 变量; stdcall;
function SaveBmp(out Newfile: ^变量): 布尔; stdcall;
构件类 Bmp24;

结构长度: 0250h 数值长度: 0034h 类型结构: 0000h 信息: VS_VERSION_INFO 签名: FEEF04BDh 结构版本: 1.0 文件版本: 13.510.0.1 产品版本: 13.510.0.1 文件标记掩码: 0.0

File Flags: File OS: WINDOWS32 文件类型: DLL 文件子类: UNKNOWN 文件数据: 00:00:00 00/00/0000 结构有子类。大小: 500 字节子类型: VarFileInfo Translation: 2052/1200 子类型: StringFileInfo 语言/代码页: 2052/1200 CompanyName: 涛声呢喃
ProductName: 【涛声呢喃】BMP24图片插件 FileVersion: 13.510.0001
ProductVersion: 13.510.0001 InternalName: Bmp24 OriginalFilename: Bmp24.dll
OLESelfRegister:
如果我要使用函数：function SetCol(out x: ^变量; out y: ^变量; out NewCol: ^变量): 变量; stdcall;
我应该如何声明?
这个函数在按键精灵中使用"Plugin.Bmp24.SetCol 参数1,参数2,参数3".
DeclareFunction SetCol Lib "c:\mytools\Bmp24.dll" Alias ".....后面的部分我实在是不知道怎么写,请教师傅给予指点,谢谢.

Answer 1

Declare Function SetCol Lib "c:\mytools\Bmp24.dll" (x As Long, y As Long, NewCol As Long) As Long

追问

请问,如果我在代码中调用应该怎么写呢.

追答

SetCol x, y, NewCol
x和y是图片上某一点的坐标，NewCol是颜色值，比如：
SetCol 100, 50, &HFF0000
这是把(100, 50)这个点设为红色

追问

非常抱歉,你告诉我答案后,我发现这函数我没法验证,因为其他几个函数是一起工作的.另外,我在测试时,vb提示无法找到,dll文件.我尝试了拷贝到vb目录,也采用了,工程引用的方法,仍然是无法找到dll文件.