问题描述在倒数第三行的注释,读取二进制文件
Private Sub Command1_Click()


WinClient.RemoteHost = "127.0.0.1"
WinClient.RemotePort = 1001
WinClient.Connect ' 进行连接


End Sub

Private Sub Command2_Click()

If WinClient.State <> 7 Then
Exit Sub
End If


Dim FLen As Long
Dim Fdata() As Byte
Dim Alist As Long


FLen = FileLen("c:\a.bmp") '获取文件长度

Open "c:\a.bmp" For Binary As 1 '打开文件,文件号为1

For Alist = 1 To FLen Step 1000 '每次读取1024个字节
DoEvents

If Alist + 1000 > FLen Then
ReDim Preserve Fdata(FLen - Alist)
Get #1, Alist, Fdata '读取文件数据
End If '如果剩下的字节数小于1024


If Alist + 1000 < FLen Then
ReDim Preserve Fdata(1000)
Get #1, Alist, Fdata
End If '如果剩下的字节数大于等于1024



WinClient.SendData Fdata


Me.Caption = Val(Me.Caption) + UBound(Fdata)
'这里显示的数据总比实际值小1,为什么,想了很久,没找到问题所在,请指教!
Next

End Sub

[解决办法]
Me.Caption = Val(Me.Caption) + UBound(Fdata)

你的意思是Me.Caption和实际的Val(Me.Caption) + UBound(Fdata)不符?

直接Debug.Print看看UBound(Fdata)到底是多少呢
[解决办法]