vb.net取数组的一段 vb中提取字符串数组中的元素

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

在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

相关问答

Q1: 如何读取数据表一列的数据到数组 VB.NET

不知道vb.net取数组的一段你数据表中那一列数据是什么类型的数据vb.net取数组的一段，所以我全部按字串来处理。

首先声明一个数组，和即将用来计数的数字vb.net取数组的一段：

dim nums() as string

Dim i As Integer = 0

mycon.open '然后，连接数据库，按你的声明来：

dim mycom as new sqlcommand("select * from 你要读取数据的表", mycon)'接下来，声明一个执行数据库语句命令的com：

'然后，对数据库返回的结果进行操作（一般会将执行结果存放起来，再操作，我这里省去vb.net取数组的一段了存放这步）：

With mycom.ExecuteReader() '对返回的结果，即查询到的表进行操作

If .HasRows Then '判断是否有数据，有数据就进入下面进行读取

Do While .Read '读取一行数据

If Not (String.IsNullOrEmpty(.GetString(0))) Then '检查表列的数据是否为空，不为空就进入下面，进行保存。这里要说下getstring这个，是读取某列数据中的字串，如果该列数据不是字串，那么需要用getvalue(0)，0代表该列在表中的位置，从0开始，即0表示第一列。

ReDim Preserve nums(i) '重置数组大小，即为即将要保存的数据准备一个位置

nums(i) = .GetString(0) '将数据放入到数组中

i = i + 1 '循环，直到结束

End If

Loop

End If

End With

mycon.close '最后记得要关闭数据库连接

数据存入数组很简单，其实难点是连接数据库，从数据库拿数据，这难点原理简单，但因为格式，数据类型等问题，很容易出错。

以上，数据到vb.net取数组的一段了数组，你应该会操作了吧。其实建议直接对从数据库返回的结果进行操作，不需要用数组的。

Q2: vb.net一段关于数组的程序哪位兄弟看一下？

而testarray里的全部成员都是同一个对象testarray1，

testarray中的对象仅仅是指向了testarray1,

testarray1加来减去的最后只剩下d,

foreach了testarray实际上都是读到了testarray1的值，出来三个d.

要实现你想要的效果可以这样做：

ArrayList testarray1 = new ArrayList();

ArrayList testarray = new ArrayList();

testarray1.Add("a");

testarray1.Add("b");

testarray1.Add("c");

testarray1.Add("d");

testarray1.Remove("a");

testarray.Add(testarray1.Clone());

testarray1.Remove("b");

testarray.Add(testarray1.Clone());

testarray1.Remove("c");

testarray.Add(testarray1.Clone());

将testarray1拷贝一份再放到testarray里最后testarray里的最想就是不同的东西了

Q3: VB.NET 二维数组引用其中的一维

OPCItemIDsData(j,其中一维）即可。

如果前面方法有规定，不能用二维数组的格式，那么你可以自己定义一个一维数组，将二维数组的某一维度的全部数值赋值给这个数组，在引用这个数组：

dim OPCItemIDsDataBuf(x) as ...

for i = 1 to x

OPCItemIDsDataBuf(j）=OPCItemIDsData(j,其中一维）

next i

其中x是数组的最大下标

Q4: 怎样在vb中取出多维数组中的一维？？

语法 UBound(arrayname[, dimension]) UBound 函数的语法包含下面部分：部分描述arrayname 必需的。数组变量的名称，遵循标准变量命名约定。 dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略 dimension，就认为是 1。说明 UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。LBound 用来确定数组某一维的上界。对具有下述维数的数组而言，UBound 的返回值见下表： Dim A(1 To 100, 0 To 3, -3 To 4) 语句返回值

Q5: vb.net 从数组{5,7,11,13,17,19}中取一个数，取三次（可以是相同的数），三次之和有几个值？求代码！

Sub 和()

Dim Arr, Dic As Object, i, j, k

Set Dic = CreateObject("Scripting.Dictionary")

Arr = Array(5, 7, 11, 13, 17, 19)

For i = 0 To UBound(Arr)

For j = 0 To UBound(Arr)

For k = 0 To UBound(Arr)

Dic(Arr(i) + Arr(j) + Arr(k)) = ""

Next k

Next j

Next i