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

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

<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;">QMPLUGIN_CMD_INFO g_CommandTable[] = {  "GetOSType","得到操作系统类型[返回=0:Win98, 1:WinNT/2000/XP]",GetOSTypeHandler,0,  "GetScreenResolutionX","得到当前屏幕分辨率宽度[返回宽度]",GetScreenResolutionXHandler,0,  "GetScreenResolutionY","得到当前屏幕分辨率高度[返回高度]",GetScreenResolutionYHandler,0, };帮忙转成VB的可以？？？</div>

[此贴子已经被作者于2007-7-20 13:27:32编辑过]

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

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

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

对 VC++的代码

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

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