vb.net函数变量,vb程序变量

vb.net问题，两个程序之间的变量如何传递？

方法一:

通过WINSOCK传

方法二:

程序一生成一文件,然后程序二读取

方法三:

利用数据库存取这个是调用自制DLL示例,至于用ActiveX EXE,你可以参考一下,关键是留接口给另一程序

VB制作标准DLL文件并调用该文件的示例

1、建立一个ActiveX DLL工程，这时工程中将包括一个类模块Class1。

2、在ActiveX DLL工程中添加一个Form。

3、在类模块添加如下函数：

Public Function ShowMyForm(s As String)

Form1.Caption = s

Form1.Show vbModal

End Function

4、将工程编译为DLL。

调用时:

1、建立一个标准EXE，在菜单“工程|引用”中选择前面编译的DLL。

2、使用如下代码调用：

Private Sub Form_Click()

Dim cls As New Class1

cls.ShowMyForm("Hello")

End Sub

相关问答

Q1: 在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

Q2: 在vb.net中如何定义staticextern函数

在vb.net中定义staticextern函数：用static声明的局部变量。static是C++中常用的修饰符，它被用来控制变量的存贮方式和可见性。extern，C是使C++能够调用C写作的库文件的一个手段。

Q3: vb.net用指针或变量调用函数

指针是c语言的概念，VB、VB.NET没有指针，除了指针以外也很少有人能玩到你的编程深度，关键看不懂呢。

？？？就是子程序的名称，比如每次点击c后就自动调动相对应的子程序，如子程序是

Private Sub my_do ()

........

End Sub

相应的AddHandler c.Click, AddressOf my_do

实际上是个委托