.NET中的联合结构

你一定清楚.NET的结构类型，并知道其在内存中的存储方法了吧？

如果你还不清楚，那么请仔细去研读一下MSDN关于结构的介绍文章。
下面的文章将介绍一下如何在.NET程序中使用C++中的联合体结构。

在C++中有一种类型叫做联合体（也叫共用体），它的关键字为union，在使用上与结构struct非常相似，可以包含任何的结构类型数据，但它又有一个非常独特的特性，那就是所有的数据都指向一个地址。
这个意思你可以理解为：联合体中的所有数据都是引用一个内存块中相同地址的数据，当我们改变这个联合体内任何一种数据的值时，其他的数据的值都会随之改变。
这对于未知类型的数据非常有效，你可以使用联合体装载一个数据，然后分析其数据是否有效，或者可以对某些特殊的类型进行位运算，获取其特殊位置的数值。

但在VB.NET或C#中，根本没有union关键字让我们声名联合体，但该怎么做才能声名联合体呢？
这需要用到结构属性！

让我们看看如何将下面的C++联合体代码转换为一个VB.NET的联合结构吧！

 

union myunion
{
     char  b;  // 单字节整数，在c语言中用char类型来表示单字节整数
     short  s;  // 双字节整数
     int  i;  // 四字节整数
}

这个联合体大小为4个字节，其各个数据分别表示为单字节、双字节、四字节的整数，在运行期间其任何数据的改变都会影响其他数据。

 

Improts System.Runtime.InteropServices  ' 引入运行时非托管数据管理服务

'  引入结构属性，精确控制结构中元素的位置
< StructLayout(LayoutKind.Explicit) >  _
Structure  MyUnion
     '  设置字段的偏移值，设为0即可
     < FieldOffset( 0 ) >   Dim  b  As   Byte   ' 单字节整数
     < FieldOffset( 0 ) >   Dim  s  As   Short   ' 双字节整数
     < FieldOffset( 0 ) >   Dim  i  As   Integer   ' 四字节整数
End Structure

这就是在.NET中设置联合结构的方法，C#中于VB.NET中的设置方法雷同，这里就不做赘述了。

下面来介绍联合体的特性应用，就以上面我们刚才声名的联合体结构为例，下面的代码将为我们演示联合体的特性：

Dim  MU  As   New  MyUnion
MsgBox ( String .Format( " {0} {1} {2} " , MU.b, MU.s, MU.i))  ' 0 0 0
MU.s  =  Int16.MaxValue
MsgBox ( String .Format( " {0} {1} {2} " , MU.b, MU.s, MU.i))  ' 255 32767 32767
MU.b  =   12
MsgBox ( String .Format( " {0} {1} {2} " , MU.b, MU.s, MU.i))  ' 12 32524 32524
MU.i  =   0
MsgBox ( String .Format( " {0} {1} {2} " , MU.b, MU.s, MU.i))  ' 0 0 0

上面的代码可以更直观地显示数据在内存中的变化，每当改变联合数据时，其他的数据也会随着内存的变化而变化。

当然，使用联合体也有限制，那就是.NET的联合体只适用于值类型，无法应用在引用类型和指针中，你无法设置字符串(String)或是数组进入联合类型，这一点需要非常的注意！

当然，.NEt中的联合结构体并不只有上面的用法，你可以发挥自己的想象力，比如可以：

< StructLayout(LayoutKind.Explicit) >  _
Structure  MyUnion2
     < FieldOffset( 0 ) >   Dim  b1  As   Byte
     < FieldOffset( 1 ) >   Dim  b2  As   Byte
     < FieldOffset( 2 ) >   Dim  b3  As   Byte
     < FieldOffset( 3 ) >   Dim  b4  As   Byte
     < FieldOffset( 0 ) >   Dim  i  As   Integer
     < FieldOffset( 0 ) >   Dim  ui  As   UInteger
End Structure

这个结构可以获取一个有或无符号的四个字节整数每一个字节的数据，而不需要自己写算法来分析了，嘿嘿。^_^

PS:再送一段测试代码：

Dim MU As MyUnion2
MsgBox(MU.i & " : " & MU.ui) '0 : 0
MsgBox(String.Format("{0} {1} {2} {3}", Hex(MU.b1), Hex(MU.b2), Hex(MU.b3), Hex(MU.b4))) '0 0 0 0
MU.b1 = 255 : MU.b2 = 255 : MU.b3 = 255 : MU.b4 = 255
MsgBox(String.Format("{0} {1} {2} {3}", Hex(MU.b1), Hex(MU.b2), Hex(MU.b3), Hex(MU.b4))) 'FF FF FF FF
MsgBox(MU.i & " : " & MU.ui) '-1 : 4294967295

转载于:https://www.cnblogs.com/clso/archive/2009/04/14/1435316.html