189 8069 5689
Dim my_path() As String = System.IO.Directory.GetFiles("d:\", "文件名", IO.SearchOption.AllDirectories)
按需定制制作可以根据自己的需求进行定制，成都做网站、网站建设构思过程中功能建设理应排到主要部位公司成都做网站、网站建设的运用实际效果公司网站制作网站建立与制做的实际意义
因为有可能在多个地方，所以进行了全盘搜索，歌曲的所有地址路径在数组my_path中
说在前面的几句
在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
当然可以的，需要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
'''这个函数功能就是用来把数组转为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的位置
看你的提示，好像是你把vb6.0的代码直接用到了vb.net上，下面是复制过来的，希望对你有用。
vb.net不再使用VarPtr来返回变量的地址了，其实是net不提倡使用指针和地址。
net有了一个新的叫做托管的概念，建议了解一下，net里面的变量地址都是不确定的，生存周期也不确定，是由托管机制来管理内存，程序员不必再纠结于内存的管理而浪费精力。
解决方法：可以使用byref声明为整型变量直接将变量地址传过去就好，不用声明为什么指针的。
或者可以试试下面这个：
GCHandle 类的 AddressOfPinnedHandle 方法可以提供类似的功能.
1、点击VS工具。
2、打开后，新建一个Windows窗体应用程序。
3、新建完毕后，如图所示。
4、拖动一个按钮。
5、定义数组最常见的方法，如图示。
6、运行后，点击按钮，弹出提示正常。
7、定义数组第二种方法，属于动态的方法。
8、运行后，点击按钮，数组成功输出。