dabian001 发表于 2007-7-20 13:25:28

[求助]帮忙转成VB的可以吗？？？

<div style="PADDING-RIGHT: 0px; MARGIN-TOP: 10px; FONT-SIZE: 9pt; OVERFLOW-X: hidden; WIDTH: 97%; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; HEIGHT: 200px; WORD-WRAP: break-word;"><p>QMPLUGIN_CMD_INFO g_CommandTable[] =<br/>{<br/>&nbsp;"GetOSType","得到操作系统类型[返回=0:Win98, 1:WinNT/2000/XP]",GetOSTypeHandler,0,<br/>&nbsp;"GetScreenResolutionX","得到当前屏幕分辨率宽度[返回宽度]",GetScreenResolutionXHandler,0,<br/>&nbsp;"GetScreenResolutionY","得到当前屏幕分辨率高度[返回高度]",GetScreenResolutionYHandler,0,<br/><br/>};</p><p></p><p></p><p></p><p></p><p>帮忙转成VB的可以？？？</p></div>
[此贴子已经被作者于2007-7-20 13:27:32编辑过]

马大哈 发表于 2007-7-20 21:01:22

这是哪里的代码...?C++吗?

dabian001 发表于 2007-7-21 22:44:22

<p>对 VC++的代码</p>

马大哈 发表于 2007-7-23 11:42:40

<p>我的理解:</p><p>这是一个结构,那么在VB里面这样应该可以:</p><p>Private Type QMPLUGIN_CMD_INFO<br/>&nbsp;&nbsp;&nbsp; sOSType As String<br/>&nbsp;&nbsp;&nbsp; lOSType As Long<br/>&nbsp;&nbsp;&nbsp; hOSType As Long<br/>&nbsp;&nbsp;&nbsp; hNone1 As Long<br/>&nbsp;&nbsp;&nbsp; sX As String<br/>&nbsp;&nbsp;&nbsp; lX As Long<br/>&nbsp;&nbsp;&nbsp; hX As Long<br/>&nbsp;&nbsp;&nbsp; hNoneX As Long<br/>&nbsp;&nbsp;&nbsp; sY As String<br/>&nbsp;&nbsp;&nbsp; lY As Long<br/>&nbsp;&nbsp;&nbsp; hY As Long<br/>&nbsp;&nbsp;&nbsp; hNoneY As Long<br/>End Type</p><p>Dim g_CommandTable As QMPLUGIN_CMD_INFO<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;With g_CommandTable<br/>&nbsp;&nbsp;&nbsp; .sOSType = "GetOSType"<br/>&nbsp;&nbsp;&nbsp; .lOSType = 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '"得到操作系统类型[返回=0:Win98, 1:WinNT/2000/XP]"<br/>&nbsp;&nbsp;&nbsp; .hOSType = GetOSTypeHandler<br/>&nbsp;&nbsp;&nbsp; .hNone1 = 0<br/>&nbsp;&nbsp;&nbsp; .sX = "GetScreenResolutionX"<br/>&nbsp;&nbsp;&nbsp; .lX = 1280&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' "得到当前屏幕分辨率宽度[返回宽度]"<br/>&nbsp;&nbsp;&nbsp; .hX = GetScreenResolutionXHandler<br/>&nbsp;&nbsp;&nbsp; .hNoneX = 0<br/>&nbsp;&nbsp;&nbsp; .sY = "GetScreenResolutionY"<br/>&nbsp;&nbsp;&nbsp; .lY =&nbsp;800 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' "得到当前屏幕分辨率高度[返回高度]"<br/>&nbsp;&nbsp;&nbsp; .hY = GetScreenResolutionYHandler<br/>&nbsp;&nbsp;&nbsp; .hNoneY = 0<br/>End With</p>

dabian001 发表于 2007-7-23 14:32:14

页: [1]
查看完整版本: [求助]帮忙转成VB的可以吗？？？