锐客网

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

vb.net数据传送 vbs传参数

IT技术数据

vb.net怎么在两个sub间传递数据？方法一: 通过WINSOCK传 方法二: 程序一生成一文件,然后程序二读取 方法三: 利用数据库存取这个是调用自制DLL示例,至于用ActiveX EXE,你可以参考一下,关键是留接口给另一程序 VB制作标准DLL文件并调用该文件的示例1、建立一个ActiveX DLL工程，这时工程中将包括一个类模块Class1 。2、在ActiveX DLL工程中添加一个Form 。3、在类模块添加如下函数：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做个小软件，怎么数据传到access1，你需要一个服务器端的生产和制造的客户端
2，在服务器端用来与数据库打交道，并接受客户端的数据传送到
客户端的一些数据，当数据传输到服务器上 ， 服务器端在接收到的数据，数据库操作，
根据您的操作，当然，如果喜欢它的SQL Server网络数据库更方便，但速度不知道快速进攻
VB.net 串口传送回数据处理的问题使用委托方式处理vb.net数据传送：
Public Class Form1
Dim mSTR As String
Dim strData As String
Dim strDat As String
Dim mRecvByte() As Byte
Dim Hexsj As String
Dim form2 As Form
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim mSize As Integer = Me.SerialPort1.BytesToRead
ReDim mRecvByte(mSize - 1)
SerialPort1.Read(mRecvByte, 0, mSize)
BeginInvoke(New EventHandler(AddressOf ONMLoadA), SerialPort1.BytesToRead()) '使用委托方式显示接收到的字符串
End Sub
Sub ONMLoadA(ByVal sender As System.Object, ByVal e As System.EventArgs) '委托
strDat = ""
TextBox1.Text = ""
Dim i As Integer
For i = 0 To UBound(mRecvByte) 'mSize - 1
strData = https://www.04ip.com/post/strDataIIf(mRecvByte(i)15, Hex(mRecvByte(i)),"0"Hex(mRecvByte(i)))" "
Next
Dim sj As Byte
For i = 1 To Len(strData) Step 3 '处理为ASCII字符
sj = Val("H"Mid(strData, i, 2))
If sj32 Or sj128 Then '当接收字节中有Chr(0)时vb.net数据传送，其后字符被切割
strDat = strDat"."
Else
strDat = strDatChr(sj)
End If
Next
TextBox1.Text = strDat '显示字符
TextBox2.Text = strData '显示为16进制
TextBox3.Text = Len(strData) / 3
End Sub
VB.net 两个窗体之间传递参数新窗体中写
构造函数
，然后调用 。
比如你要调用的新窗体是From1.cs这个窗体，
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--------

推荐阅读


上一篇：手机为什么有红点闪烁呢，为什么手机屏幕变红了

下一篇：电脑什么是低压cpu，低压 cpu