Question

VB如何点击发送按钮发送ID和Data文本框的数据到上面文本框呢？图片如下，调用了函数，普通的方法没法解决

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim ret As Integer
Dim IDbuff(4) As Byte
Dim Databuff(8) As Byte
Dim FreamType As Byte
Dim Bytes As Byte
IDbuff(0) = 18
IDbuff(1) = 18
IDbuff(2) = 18
IDbuff(3) = 18
Databuff(0) = 12
Databuff(1) = 37
Databuff(2) = 21
Databuff(3) = 55
Databuff(4) = 12
Databuff(5) = 21
Databuff(6) = 55
Databuff(7) = 23
FreamType = 1 '//扩展数据帧
Bytes = 8 ' //本帧8个字节
ret = Can_send(IDbuff, Databuff, FreamType, Bytes) ' //调用发送函数例子
TextBox1.Text += "发送:" + Str(IDbuff(0)) + " " + Str(IDbuff(1)) + " " + Str(IDbuff(2)) + " " + Str(IDbuff(3)) + " " + Str(Databuff(0)) + " " + Str(Databuff(1)) + " " + Str(Databuff(2)) + " " + Str(Databuff(3)) + " " + Str(Databuff(4)) + " " + Str(Databuff(5)) + " " + Str(Databuff(6)) + " " + Str(Databuff(7)) + Environment.NewLine
TextBox1.SelectionLength = 0
TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
End Sub

Answer 1

窗体上的文本框获得ID和Data数抿较简单，只需字符串赋值即可，发送到外部设备需经串口或网口来实现。

追问

如何编写这个赋值程序呢，根据原来的代码我只能在程序中更改ID和Data值，我想在窗体上输入发送，改怎么写呢？困扰好久了，

追答

仔细看了你的代码，是使用字节流来发送数据和ID的，这需要一个字符串转为字节数组的代码，这儿机器暂无VB.NET的编程软件，特提供一个VB.NET以前做的串口测试软件参考。可以根据需要移植到网口通信。
其中无字符串与字节数组转换的代码。
VB6.0中有个StrConv 函数，可返回按指定类型转换的 Variant (String)。能进行字节数组和字符串互转。不知VB.NET中是否有类似函数使用。