锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net进程间通讯 vbnet tcp通讯

IT技术通讯

VB.NET窗体间的数据传递在编写VB.Net windows应用程序的时候我们经常会遇到这种问题，怎么样在两个窗体间传递数据呢？例如 ， 用VB.Net做一个文本编辑器，里面有一个搜索功能（即搜索我打开的文本里面的文字），点搜索则弹出搜索对话框 ， 输入要搜索的内容，然后确定，就可以搜索到我打开的文本里面的文字了，这里就用到了两个窗体间的相互通信 。我查看了相关的资料想了想 ， 得出一些想法和方法 。
也许有的人会觉得这个很简单呀 。假如主框架为Form1 ， 打开的搜索对话框是Form2.直接在Form2类中申明一个Form1实例：dim f1 as new Form1然后就可以通过f1来调用Form1中的域和函数了 。其实不是这样的，你申明的新的Form1实例不是原来的那个Form1对象了，这样操作的是新的Form1中的域和函数，和最先打开的Form1是没有关系的 。
那应该如何来完成两个窗体的通讯呢？我们要做的是把当前的Form1实例传递给Form2，如果是这样的话 ， 问题就很好解决了 。
方法1：首先，我们在Form2中定义：
Private mF_Form As Form1
我们更改Form2的构造函数为有参数的
Public Sub New(ByVal form As Form1)
MyBase.New()
'该调用是 Windows 窗体设计器所必需的 。
InitializeComponent()
Me.mF_Form = form
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
在Form1中，我在 要用到Form2的地方申明如下：
Dim f1 As New Form2(Me)
这里的me指的就是Form1当前的实例,也就是把当前Form1的实例通过Form2的构造函数传递给Form2类（其实在网上看到过比较蠢的方式，就是在构造函数里面传递要传递的信息如：字符串或是数字等，这样做很有局限性，不能传递其他的，所有我们可以直接传递实例,来完成传递更多的信息 。）
这样在Form2中使用myForm 就可以对原来的Form1窗口进行操作了 。但是你要把要操作的Form1中的域和函数定义成public形式的（这样可能不安全） ， 此时的myForm就是真正的最开始打开的Form1了，你可以用这个实例来进行两个窗体的通讯了 。
方法2：其实VB.Net中提供了窗体间进行通讯的现成的属性，呵呵，我们能想到的，微软也想到了，他们创造的语言其实确实可以说是人性化了 。
在Form1类中申明Form2时用如下代码：
Dim f2As New Form2'类Form2中的构造函数不改，还是无参的
f2.owner=me
也可以使用函数的方法 ， 给当前实例添加一个附属窗口代码：Me.AddOwnedForm(f2)
在Form2类的定义中写如下代码：
dim f1 as Form1=me.owner
这样f1对应的就是原来的Form1的实例了，也就可以用这个进行通讯了 。但是还是要把不同类之间访问的域和函数定义成public，哎,安全确实是一个问题?。?
用vb.net实现网络通信用 vb.net socket通信
Dim th As Threading.Thread
2Dim tcpl As System.Net.Sockets.TcpListener
3
4Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
【vb.net进程间通讯 vbnet tcp通讯】 6th.Start()
7End Sub
8
9Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10Try
11If IP"" Then
12Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14Dim reqStream As New IO.StreamWriter(tcpStream)
15reqStream.Write(SendMsg)
16reqStream.Flush()
17tcpStream.Close()
18tcpc.Close()
19End If
20Catch ex As Exception
21MsgBox(ex.Message.ToString)
22End Try
23End Sub
24Private Sub MyListen()Sub MyListen()
25Try
26Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28tcpl.Start()
29While True
30Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31Dim MyBuffer(1024) As Byte
32Dim i As Integer
33i = s.Receive(MyBuffer)
34If i0 Then
35Dim lstrRec As String
36Dim j As Integer
37For j = 0 To i - 1
38TextBox1.Text= Chr(MyBuffer(j))","
39Next
40End If
41End While
42Catch ex As Exception
43MsgBox(ex.Message.ToString)
44End Try
45End Sub
46
47Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48SendMessage("192.168.0.61", TextBox2.Text)
49End Sub
怎样在两个VB程序之间传递信息？可以用动态数据交换(Dynamic Data Exchange,DDE)实现进程之间的通信 。
发送端vb.net进程间通讯：
添加Command1vb.net进程间通讯，Text1控件vb.net进程间通讯 ， Text1的内容用于发送 。
代码如下：
Private Sub Command1_Click()
Dim t As Long
Text1.LinkMode = 0
Text1.LinkTopic = "Child|FrmChild" '注意此处一定与接收的程序名称和连接的标题相同否则连接不成功 。
Text1.LinkMode = 2
Text1.LinkExecute Text1.Text
t = Text1.LinkTimeout
Text1.LinkTimeout = 1
Text1.LinkMode = 0
Text1.LinkTimeout = t
End Sub
接收端：
添加Text1控件，Text1的内容用于接收 。设置工程名称为Child（与发送的程序名对应），设置窗体的LinkMode属性为1，LinkTopic为FrmChild(对应上面发送的标题) 。
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
Text1 = CmdStr
Cancel = 0
End Sub
编译后，先运行接收端，然后运行发送端，输入内容，发送即可成功 。
各们，请教怎么使用vb.net编写两个进程间消息两个方法
1.
要接收vb.net进程间通讯的窗口先使用FindWindow这个api获得句柄
调用SetForegroundWindow使其获得焦点并选中
调用.net方法vb.net进程间通讯：SendKeys.Send方法发送
2.使用APIvb.net进程间通讯的SendInput
怎么用.net技术实现进程间通讯一、进程间通讯的方式
1）共享内存
包括：内存映射文件，共享内存DLL，剪切板 。
2）命名管道及匿名管道
3）消息通讯
4）利用代理方法 。例如SOCKET,配置文件 ， 注册表方式 。
等方式 。
方法一：通讯 。
进程间通讯的方式有很多，常用的有共享内存（内存映射文件、共享内存DLL、剪切板等）、命名管道和匿名管道、发送消息等几种方法来直接完成 ， 另外还可以通过socket口、配置文件和注册表等来间接实现进程间数据通讯任务 。以上这几种方法各有优缺点，具体到在进程间进行大数据量数据的快速交换问题上，则可以排除使用配置文件和注册表的方法；另外，由于管道和socket套接字的使用需要有网卡的支持，因此也可以不予考虑 。这样，可供选择的通讯方式只剩下共享内存和发送消息两种 。
二、发送消息实现进程间通讯前准备
下面的例子用到一个windows api 32函数
[DllImport("User32.dll", EntryPoint = "SendMessage")]
private static extern int SendMessage(IntPtr wnd,int msg,IntPtr wP,IntPtr lP);
要有此函数，需要添加using System.Runtime.InteropServices;命名空间
此方法各个参数表示的意义
wnd：接收消息的窗口的句柄 。如果此参数为HWND_BROADCAST，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖的窗口和弹出式窗口 ， 但消息不被发送到子窗口 。
msg：指定被发送的消息类型 。
wP：消息内容 。
lP：指定附加的消息指定信息 。
用api参考手册查看SendMessage用法时，参考手册则提示
SendMessage与PostMessage之间的区别：SendMessage和PostMessage，这两个函数虽然功能非常相似，都是负责向指定的窗口发送消息，但是SendMessage() 函数发出消息后一直等到接收方的消息响应函数处理完之后才能返回，并能够得到返回值 ， 在此期间发送方程序将被阻塞，SendMessage() 后面的语句不能被继续执行，即是说此方法是同步的 。而PostMessage() 函数在发出消息后马上返回 ， 其后语句能够被立即执行 ， 但是无法获取接收方的消息处理返回值 ， 即是说此方法是异步的 。
三、发送消息实现进程间通讯具体步骤
详细可以参考：
VB与VB.NET串口及以太网通迅关于串口通讯的问题：
很明显 ， 你还不知道（不会、不习惯）使用事件驱动的方式接收数据 。
建议你仔细看看串口组件（无论VB6还是VB.net）的OnComm事件，你的问题很容易解决 。
关于以太网通讯：
在TCP通讯中端口确实可以重用 ， 你百度一下“TCP端口重用”能查到很多示例 。
但绝大多数情况下不推荐端口重用，而应该采取服务器端建立连接池的方法 。
或者 ， 干脆不用TCP ， 用UDP解决也可以 。
vb.net进程间通讯的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet tcp通讯、vb.net进程间通讯的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：postgresql储存过程，存储过程plsql怎么执行

    下一篇：怎么导出mysql中的表格数据类型，mysql导出表格式