xferinterface.bas

来自「Com串口即时通讯工具.有服务端和客启端..是学习的好程度!」· BAS 代码 · 共 36 行

Attribute VB_Name = "xferInterface"
'=================
'文件接收发送处理模块
'=================

'==============
'发送文件函数
'================
Public Function sendFile_01(fileName As String, filePath As String, hostIP As String, hostPort As Double, localUserName As String)

Dim a As New frmSend

a.nameOfFile = fileName
a.pathToFile = filePath
a.hostIP = hostIP
a.hostPort = hostPort
a.userName = localUserName

a.Show

End Function

'================
'接收文件函数
'================
Public Function receiveFile_01(hostIP As String, hostPort As Double)

Dim a As New frmReceive

a.hostIP = hostIP
a.hostPort = hostPort

a.Show

End Function