【求助】帮忙转成VB代码，谢谢

dabian001 · 发表于 2009-9-2 17:56:58

typedef struct tagCURSORINFO {        DWORD   cbSize;        DWORD   flags;        HCURSOR hCursor;        POINT   ptScreenPos;  } CURSORINFO, *PCURSORINFO, *LPCURSORINFO;  typedef BOOL (WINAPI *GetCursorInfo_Type)(PCURSORINFO pci);
 
 CURSORINFO cCursorInfo = {0};  cCursorInfo.cbSize = sizeof(cCursorInfo);
 GetCursorInfo_Type pGetCursorInfo = (GetCursorInfo_Type)GetProcAddress(GetModuleHandle("user32.dll"),"GetCursorInfo");
 
 if(pGetCursorInfo)  {        pGetCursorInfo(&cCursorInfo);  } 
 
 
看不懂这种写法的VC代码
帮忙转成ＶＢ的
谢谢

马大哈 · 发表于 2009-9-3 10:59:42

帮顶顶.....
 
看着C代码就胃疼.....- -!

阿杰 · 发表于 2009-9-7 08:12:08

这只是个简单的API调用 
声明格式如下:Declare Function GetCursorInfo Lib "user32.dll" (ByRef pci As PCURSORINFO) As Long

阿杰 · 发表于 2009-9-7 08:15:36

Type POINT     x As Long     y As Long End Type Type PCURSORINFO     cbSize As Long     flags As Long     hCursor As loong     ptScreenPos As POINT End Type

dabian001 · 发表于 2009-9-8 22:21:55

谢谢啊杰。原来只是调用API而已！！！巨汗

账号		自动登录	找回密码
密码			加入我们

【求助】帮忙转成VB代码，谢谢

论坛牛人

贡献奖

关注奖

最佳版主

进步奖

人气王

疯狂作品奖

精英奖

赞助论坛勋章

乐于助人勋章