VB实现远程共享显示及声音
减小字体
增大字体ImgEdit1.Image = FileName
ImgEdit1.Display ' 显示收到的图像
ImgEdit1.BurnInAnnotations 0, 2
frmClient.MousePointer = 0
Exit Sub
End If
' 收到一块二进制图像信息
Put #FileID, , Buf ' 将当前数据块存盘
tcpClient.SendData "Next Block" ' 申请下一块
FileLen = FileLen + bytesTotal
frmClient.Caption = "TCP Client " + Trim(Str(FileLen)) + _
" Bytes Received." ' 显示当前收到的字节数
End Sub
客户端成功共享服务器端显示画面后的外观如图三所示。
二、共享声音
共享声音与共享显示的思想是一致的，只是这时是客户端向服务器端发送声音文件，以便共享服务器的声卡。服务器端应使用微软的多媒体控件（MMControl） 进行声音播放（使用 Ctrl+T 或菜单“工程->部件”来添加）。用该控件播放声音不仅是简单的，而且功能强大。
由于关键模块与共享显示一致，故此处略去源代码。
Tags：
作者：佚名
- 好的评价 如果您觉得此文章好，就请您
0%(0) 
- 差的评价 如果您觉得此文章差，就请您
0%(0) 
中查找“VB实现远程共享显示及声音”更多相关内容
中查找“VB实现远程共享显示及声音”更多相关内容评论内容只代表网友观点，与本站立场无关！
评论摘要(共 0 条，得分 0 分，平均 0 分)
查看完整评论