讨论VB中的结构体
讨论VB中的结构体[转载]
2009年10月20日 星期二 11:30
VB里面的结构体是一种WORD/DWORD对齐的结构体，这一点在编程中尤其要注意，如果是纯VB编程，则结构体的各个域如何排列可以基本不用关心，
而如果是调用API或者是调用其他的动态链接库，则很容易出问题，原因就在于：这些动态链接库是用C/C++写的，而大部分C/C++环境里的
结构体是非DWORD对齐的。这就导致调用动态链接库的时候，如果传一个结构体给一个动态链接库的接口函数，可能会导致不期望的结果；
经过实验，发现VB里面结构体的DWROD规则如下：
如果结构体里面类型最大的域的字节数大于等于4个字节：
1.结构体变量的起始地址必须是4的整数倍；
2.结构体的每个域的起始地址必须是4的整数倍；（如果需要，通过在前一个域的末尾补占位字节来达到该目的）
3.结构体的总的字节数必须是4的整数倍；（不够的话，在末尾补占位字节）
如果结构体里面类型最大的域的字节数等于2个字节（就是说最大的类型才是integer）：
1.结构体变量的起始地址必须是2的整数倍；
2.结构体的每个域的起始地址必须是2的整数倍；（如果需要，通过在前一个域的末尾补占位字节来达到该目的）
3.结构体的总的字节数必须是2的整数倍；（不够的话，在末尾补占位字节）
如果结构体里面类型最大的域的字节数等于1个字节（就是说最大的类型才是Byte）：
没有DWORD对齐规则，所有的域紧凑的排列，每个域紧密连在一起；也就是说：有几个域就有几个字节；
实验用代码如下，通过该代码可以清楚的窥探到VB结构体的存储规则：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Private Type aaa
f As Byte
g As Byte
x As Byte
y As Byte
z As Byte
a As Double
b As Integer
c As Byte
d As Byte
e As Byte
End Type
Private Type bbb
a As Byte
b As Integer
c As Byte
End Type
Private Type ccc
a As Byte
b As Double
End Type
Private Type ddd
a As Byte
b As Byte
e As Byte
f As Byte
g As Byte
End Type
Private Sub Command1_Click()
Dim s As aaa
MsgBox LenB(s)
MsgBox VarPtr(s) Mod
相关文档：
摘自VB吧高手鲸无敌兄的一段管首示例代码：
'******* 读取DOS程序ipconfig.exe的返回结果： ********
'作者： 鲸无敌 2006-10-19 21:57
'**************************************************
'窗体代码：Form1
'**************************************************
Option Explicit
Private Const NOR ......
c:\windows\sytem32\ieframe.dll\1找不到,错误解决方案.
这个ieframe.dll是vb中WebBrowser 调用的控件，当你用vb再次打开你的工程之后，就可以发现以前的WebBrowser 控件没有了。而且再次加载也是不能的了，这时就需要用到下面的方法来处理：
把以下内容做成一个注册表文件fixieframe.reg，导入注册表即可：
Windows Re ......
据说vb6中,字 符串以以UNICODE方式存储，所以
Private Type UDT
lngM1 As Long
lngM2 As Long
strM3 As String * 18
strM4 As String * 8
lngM5 As Long
End Type
Private Sub Command4_Click()
Dim tmp As UDT
With tmp
.lngM1 = 1
.lngM2 = 2
' .str ......
SQLDMO（SQL Distributed Management Objects，SQL分布式管理对象）封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许用支持自动化或 COM 的语言编写应用程序，以管理 SQL Server 安装的所有部分。 SQL-DMO 是 SQL Server 2000 中的 SQL Server 企业管理器所使用的应用程序接口 (API);因此使用 SQL-DMO 的� ......
