正文

vb.net获取变量 c#调用vb窗体并获取vb窗体的值的代码

IP云
IP云V管理员/3 阅读
04/05
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

在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如何解析JSON数据，提取变量的值

先用ADO.NET读取数据，然后赋值即可，这个很容易的， 如果你要和某个控件的值做比对，就可以先赋值给控件，然后做比对。。。 例如，你读取数据库中的一条记录，然后绑定到textbox上，和另外一个textbox里面的数字比较大校。

Q2: vb.net 获取子窗口的变量值

用CType转成vb.net获取变量你vb.net获取变量的窗口类型就可以引用vb.net获取变量了

比如你的子窗口类是MyForm

单击父窗口Button2显示它包含字符串MyPath的内容的代码如下

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

MsgBox(CType(Me.ActiveMdiChild, MyForm).MyPath)

End Sub

Q3: 用vb.net读取指定单元格的值到变量

很简单，看代码：

        Dim objexcelfile As Excel.Application = New Excel.Application

        objexcelfile.DisplayAlerts = False

        Dim objworkbook As Excel.Workbook = objexcelfile.Workbooks.Open("D:\1.xlsx")  'Excel文件路径

        Dim objimportsheet As Excel.Worksheet = objworkbook.Sheets(1) '读取第一个Sheet

        Dim intRow As Integer = objimportsheet.UsedRange.Rows.Count  '获取总行数

        Dim prod As String = objimportsheet.Cells(j, i).value '读取单元格vb.net获取变量的值（i是列，j是行）

        

        '释放Excel文件

        objworkbook.Close()

        objworkbook = Nothing

        objexcelfile.Quit()

注意需要添加 Microsoft.Office.Interop vb.net获取变量的引用。

vb.net获取变量的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于c#调用vb窗体并获取vb窗体的值的代码、vb.net获取变量的信息别忘了在本站进行查找喔。