vb.net数组地址 vbnet byte数组

vb 数组首地址

说在前面的几句

成都创新互联主打移动网站、成都网站建设、网站制作、网站改版、网络推广、网站维护、域名申请、等互联网信息服务，为各行业提供服务。在技术实力的保障下，我们为客户承诺稳定，放心的服务，根据网站的内容与功能再决定采用什么样的设计。最后，要实现符合网站需求的内容、功能与设计，我们还会规划稳定安全的技术方案做保障。

在VB里，微软是不鼓励使用指针的,但并是说VB不能使用指针去操作内存,只不过不能象C那样方便而已,大家注意到楼主顶端那个CopyMemory函数没有,那就是系统提供的一个直接操纵内存的函数,用那个玩意虽比不过C,但比VB还是要快得多,具体可去看看.

说说题目

A(0)=H89这是楼主给出的,

B(0)没给出,那么程序会默认为0,这个对吧.

CopyMemory AddressOfB, AddressOfA, 1

这一句,表示把A(0)的值复制到B(0)(楼主是这么打算的,)

那么,B(0)应该为A(0)------------)=H89

但没有出现,而是原状态B(0)=0

错了,

我们改改

CopyMemory ByVal AddressOfB, ByVal AddressOfA, 1

137 (=H89)

OK ,OK

在VB.net中如何取变量、结构、数组、函数的地址？

当然可以的，需要System.Runtime.InteropServices 命名空间中的 Marshal 类

Imports System.Runtime.InteropServices '这里一定要有 

Public Class Form1

Public Structure m_Point

Dim x As Integer

Dim y As Integer

End Structure

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer = 50

Dim ai() As Integer = {1, 2, 3, 4, 5}

Dim pi As IntPtr = GCHandle.Alloc(i, GCHandleType.Pinned).AddrOfPinnedObject() '取得整形变量的指针 

Dim pai As IntPtr = GCHandle.Alloc(ai, GCHandleType.Pinned).AddrOfPinnedObject() '取得整形数组首地址指针

MsgBox(Marshal.ReadInt32(pi, 0)) '读回整形变量指针指向的值

MsgBox(Marshal.ReadInt32(pai, 0 * 4)) '读回数组的第一个元素

MsgBox(Marshal.ReadInt32(pai, 1 * 4)) '读回数组的第二个元素

MsgBox(Marshal.ReadInt32(pai, 2 * 4)) '读回数组的第三个元素

'-----下面是结构--------------------------

Dim m_p As New m_Point

m_p.x = 100

m_p.y = 50

Dim pm_p As IntPtr = GCHandle.Alloc(m_p, GCHandleType.Pinned).AddrOfPinnedObject() '取得结构首地址指针 

MsgBox(Marshal.ReadInt32(pm_p, 0 * 4)) '读回结构的第一个值

MsgBox(Marshal.ReadInt32(pm_p, 1 * 4)) '读回结构的第二个值

End Sub

End Class

VB如何获取数组地址

看你的提示，好像是你把vb6.0的代码直接用到了vb.net上，下面是复制过来的，希望对你有用。

vb.net不再使用VarPtr来返回变量的地址了，其实是net不提倡使用指针和地址。

net有了一个新的叫做托管的概念，建议了解一下，net里面的变量地址都是不确定的，生存周期也不确定，是由托管机制来管理内存，程序员不必再纠结于内存的管理而浪费精力。

解决方法：可以使用byref声明为整型变量直接将变量地址传过去就好，不用声明为什么指针的。

或者可以试试下面这个：

GCHandle 类的 AddressOfPinnedHandle 方法可以提供类似的功能.

vb.net如何在数组中查找数组?

'''这个函数功能就是用来把数组转为string的格式'''如byte()={1,2,3,4,5,6}转化后变为",1,2,3,4,5,6,"Function ByteArrayToString(bytes() As Byte) As String Dim s As String = "" For i As Integer = 0 To bytes.Length s = Convert.ToString(bytes(i)) "," Next Return “," sEnd Function Sub Search()Dim a as byte()={1,2,3,4,5,6}

Dim b as byte()={2,3,4}

Dim astr As String = ByteArrayToString(a)Dim bstr As String = ByteArrayToString(b)Dim index As Integer = astr.IndexOf(bstr) '这个index就是b数组在a数组的位置，下标从0开始，不过记得处理下逗号，因为这时候是字符串。'''如果index小于0说明没有匹配内容End Sub 现在说明下ByteArrayToString为什么要在字符串开头加个","，如果不加，可能出现a="1,23,4,5,6,", b="3,4,5,"，结果导致查询位置错误，匹配了a的位置