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

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

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

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

<p>帮顶顶.....</p>
<p>&nbsp;</p>
<p>看着C代码就胃疼.....- -!</p>

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

<p>这只是个简单的API调用 </p>
<p>声明格式如下:<font face="Verdana">Declare Function GetCursorInfo Lib "user32.dll" (ByRef pci As PCURSORINFO) As Long</font></p>
<p>&nbsp;</p>

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

<font face="Verdana">Type POINT<br/>&nbsp;&nbsp;&nbsp; x As Long<br/>&nbsp;&nbsp;&nbsp; y As Long<br/>End Type<br/>Type PCURSORINFO<br/>&nbsp;&nbsp;&nbsp; cbSize As Long<br/>&nbsp;&nbsp;&nbsp; flags As Long<br/>&nbsp;&nbsp;&nbsp; hCursor As loong<br/>&nbsp;&nbsp;&nbsp; ptScreenPos As POINT<br/>End Type<br/></font>

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

谢谢啊杰。原来只是调用API而已！！！巨汗
页: [1]
查看完整版本: 【求助】帮忙转成VB代码，谢谢