讨论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
相关文档：
在DVDRip、MKV等720P高清视频中，srt、ssa、ass、idx、sub等外挂字幕非常流行，采用的显示技术毫不例外都是VSFilter（早期版本是VobSub）和AviSynth外挂字幕插件。显示的点阵汉字非常漂亮！现在流行的多媒体播放器，如KMPlayer、暴风影音等都采用了上述DirectVobSub技术。虽然DirectVobSub� ......
在最新的Windows Workflow Fonudation(WF4, 下文中将简称WF4)中，WF中引入了VB expression，用户可以通过vb表达式为变量赋值。有兴趣的朋友可以安装VS 2010，然后使用一下这个功能。关于这个功能的参考，请看：http://msdn.microsoft.com/en-us/library/ee342461.aspx 什么？ 不知道啥是WF，哦，幸亏你遇到我， ......
把下面的代码 粘贴到文本
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)� ......
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的' ......
DB2ConnectionString
b2str = "Provider=MSDASQL.1;Password=a$sk6G7;Persist Security Info=True;User ID=DBA;Data Source=ConDB2SFXXK"
AccessConnectonString
accessstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DMSJK.mdb;Jet OLEDB:database password=" ......
