讨论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
相关文档：
名称 类型 说明
abort 函数 引起放弃的意外处理
abs 函数 绝对值函数
addexitproc 函数 将一过程添加到运行时库的结束过程表中
addr 函数 返回指定对象的地址
adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列
align 属性 使控件位于窗口某部分
alignment 属性 控件标签的文字位置
allocmem � ......
我用VB执行DOS命令，生成文本文件随即打开
但是由于文本文件生成需要一段时间，
还未等文件生成完毕VB就打开了这个文件
请问如何让程序等待DOS命令执行完毕再打开这个文本文件啊
最好还能加上一个等待的进度条显示文本文件的生成过程
代码如下：
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......
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 的� ......
StrConv函数
返回按指定类型转换的 Variant (String)。
语法
StrConv(string, conversion, LCID)
StrConv 函数的语法有下面的命名参数：
部分
说明
string
必要参数。要转换的字符串表达式。
conversion
必要参数。Integer。其值的和决定转换的类型。
LCID
可选的。如果与系统LocaleID不同，则为LocaleID（系统 ......
