讨论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
相关文档：
植物大战僵尸这个小游戏做的还真不错，我看到了几个版本的植物大战僵尸修改器，如C++版，C#版，所以就改写了一个VB版本的，以下是源码
'界面中有两个按钮，分别是cmdSunUnlimited（caption为启用阳光无限），cmdMoneyUnlimited（caption为启用金钱无限），并且需要放两个Timer控件，名称为默认值timer1和timer2
'基地址直 ......
vb制作可输出函数的通用DLL---VB_DLL_Link用法
论坛越来越多人关注dll，特分享一下vb制作可输出函数的通用DLL---VB_DLL_Link用法
大家知道，VB6只能制作ActiveX DLL文件，制作能输出函数的通用DLL文件通常要用到VC等工具。实际上，VB在编译的时候加以控制，经过适当处理也是可以制作通用DLL的。使用VB_DLL_ ......
一、NT服务程序
所谓NT服务，实际上就是一个可以在系统启动时自动在一定身份下启动的伴随系统长时间存在的进程。象FTP server、HTTP server、脱机打印等都是采用NT服务的形式提供的。这实际上类似Unix的root daemon进程。NT服务归纳起来，NT服务又以下几个特征：
1、可� ......
vb 中 ieframe.dll/1 不存在 错误的问题解决 - [Windows Client]
2008-05-27
版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://twticpgk.blogbus.com/logs/21746766.html
今天一个用户的VB用不了。打开工程文件的时候出现错误：“vb 中 ieframe.dll/1 不存在",解决方法如下：
这个是� ......
把下面的代码 粘贴到文本
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)� ......
