锐客网

  1. 首页 > 睿知 > it技术 > >

数据传递VB.NET 数据传递与数据回传

IT技术成立

vb.net怎么在两个sub间传递数据？【数据传递VB.NET 数据传递与数据回传】方法一: 通过WINSOCK传 方法二: 程序一生成一文件,然后程序二读取 方法三: 利用数据库存取这个是调用自制DLL示例,至于用ActiveX EXE,数据传递VB.NET你可以参考一下,关键是留接口给另一程序 VB制作标准DLL文件并调用该文件数据传递VB.NET的示例1、建立一个ActiveX DLL工程 ， 这时工程中将包括一个类模块Class1 。2、在ActiveX DLL工程中添加一个Form 。3、在类模块添加如下函数数据传递VB.NET：Public Function ShowMyForm(s As String)Form1.Caption = sForm1.Show vbModalEnd Function4、将工程编译为DLL 。调用时:1、建立一个标准EXE ， 在菜单“工程|引用”中选择前面编译的DLL 。2、使用如下代码调用：Private Sub Form_Click()Dim cls As New Class1cls.ShowMyForm("Hello")End Sub
vb.net里一个子程序可以用另一个子程序中的数据吗可以使用数据传递VB.NET，因为两个子程序数据传递VB.NET的数据都是互通的数据传递VB.NET，而且可以相互的补充，数据传递VB.NET你用数据传递VB.NET了另外一个子程序的数据也不影响你原本的子程序，这都是相互的
VB.net 两个窗体之间传递参数新窗体中写
构造函数
数据传递VB.NET，然后调用 。
比如你要调用的新窗体是From1.cs这个窗体数据传递VB.NET，
public
Form1(要传入的参数)
{
//把传入的参数传入窗体中
//执行窗体标准内容
}
然后在需要调用的地方调用
Form1
f
=
new
Form1(传出的参数);
'--------Form1--------
Dim
f2
As
Form2
Private
Sub
Command1_Click()
Set
f2
=
New
Form2
f2.Show
vbModal
End
Sub
'--------Form1
End--------
'--------Form2--------
Dim
WithEvents
f3
As
Form3
Private
Sub
Command1_Click()
Set
f3
=
New
Form3
f3.Show
End
Sub
Public
Sub
f3_f2W()
Me.Command1.Caption
=
"f2W"
End
Sub
'--------Form2
End--------
'--------Form3--------
Public
Event
f2W()
Private
Sub
Command1_Click()
RaiseEvent
f2W
End
Sub
'--------Form3
End--------
f.Show();
如此就能实现调用了 。
vb.net 如何传递类参数线程结束后利用委托生成事件返回数据传递VB.NET，线程应用包括传入和传出参数 。
Public Delegate Sub ThreadCallback(value As ThreadResult)
Public Class Form1
Private WithEvents _th_1 As Thread_1
Protected Overrides Sub OnLoad(e As System.EventArgs)
Dim value As ThreadObject
value.Index = 1
Me._th_1 = New Thread_1(Me)
Me._th_1.Run(value)
MyBase.OnLoad(e)
End Sub
Private Sub Thread_1_End(sender As Object, e As ThreadEventArgs) Handles _th_1.ThreadEnd
Me.TextBox1.Text = e.Result.Text
End Sub
End Class
Public Class Thread_1
Public Event ThreadEnd(sender As Object, e As ThreadEventArgs)
Private _control As Control
Sub New(control As Control)
Me._control = control
End Sub
Public Sub Run(value As Object)
Dim th As New Threading.Thread(AddressOf ThreadProc)
th.Start(value)
End Sub
Private Sub ThreadProc(obj As Object)
Dim value As ThreadObject = CType(obj, ThreadObject)
Dim result As ThreadResult = Nothing
If value.Index = 1 Then result.Text = "测试"
Dim callback As New ThreadCallback(AddressOf ThreadInvoke)
_control.Invoke(callback, result)
End Sub
Private Sub ThreadInvoke(value As ThreadResult)
RaiseEvent ThreadEnd(Me, New ThreadEventArgs(value))

推荐阅读


上一篇：用什么拍摄鸟枪好用，拍鸟用什么相机和镜头

下一篇：安装kvm虚拟机，vmdk安装虚拟机