[如何用VB调用windows图片浏览器]Private Sub Command1_Click() Dim strPicPath As String strPicPath = ＂C:\Documents and Settings\Administrator\My Documents\My Pictures\1.jpg＂ strPicPath = ＂＂＂＂ & strPic...+阅读
使用以下的函数，可以传送任何文件.
至于显示，你只要打开传送完得到的文件就行了，这应该没问题吧？
Const Max As Long = 65534 '每次最大传送数据
Dim SendPos As Double '发送数据位置
Dim RecPos As Double '接收数据位置（此二变量可实现断点续传）
'传送文件
Sub SendFile(FileName As String, Wnk As Winsock)
'FileName 预发送的文件.
Static iPoss As Double '当前发送位置
Dim SendData() As Byte '二进制数据
Dim Length As Double '记录文件长度
Dim FileNum As Integer
FileNum = FreeFile '获得文件号
Length = FileLen(FileName) '获得文件长度
Open FileName For Binary As FileNum
DoEvents
If Length <= Max Then
ReDim SendData(1 To Length)
Get FileNum, , SendData
Wnk.SendData SendData
Else
While iPos <= Length - Max
ReDim SendData(1 To Max)
Get FileNum, iPos + 1, SendData
Wnk.SendData SendData
iPos = iPos + Max
Wend
End If
ReDim SendData(Length - iPos - 1) '此处注意要-1，否则不会成功！
Get FileNum, iPos + 1, SendData
Wnk.SendData SendData
Close FileNum
Debug.Print FileLen(FileName)
End Sub
'==============================================================
'==============================================================
Sub ReceiveData(FileName As String, Wnk As Winsock, Lens As Long) '接收数据
'FileName 文件保存的位置
Dim RecData() As Byte
Dim Length As Double
Dim FileNum As Integer
FileNum = FreeFile
Open FileName For Binary As FileNum
Length = FileLen(FileName)
ReDim RecData(1 To Lens)
Wnk.GetData RecData
Put FileNum, Length + 1, RecData
Close FileNum
End Sub
以下为关联文档：
如何用Photoshop给图片添加文字原发布者：currd 如何用Photoshop给图片加文字（最简约教程）基于Photoshop6.0，无需会用PS即可完成 添加文字步骤如下：1.用Photoshop打开图片，立即另存为另一文件名。2.图层—新建图...
如何用photoshop给图片添加边框你好这位朋友！这个操作再简单不过了。图片做好以后，使用“矩形选择工具”在顶部拖出矩形选择框，宽窄适宜即可。点菜单“图层>；新建>；图层”，按住“Alt + Delete”键填充黑色即...
如何用photoshop调整图片底色用photoshop调整图片底色的方法是：把前景抠出来，使前景与背景分离，最后填充背景。具体操作方法是： 1、打开原图，如下图： 2、复制图层。 3、滤镜--Knockout2--载入工作图层，如下图：...
如何用photoshop拼合图片一， 文件--新建；或Ctrl+N新建一个文件；大小嘛...大点儿没关系，做完了可以裁的； 二， 文件--打开，或Ctrl+O打开你想合并的图片；想要合并几张就全打开； 三， 将一张图片作为工作文件，选移动...
如何用ppt制作滚动图片我用office2003给你讲解一下，我这里只用三张图做代表，依次类推可以添加无数张： 很显然添加图片你是知道的， 选中你想要首先播放的图片a，右击，选＂自定义动画＂，会在右边多出一个＂自定义...
如何用coreldraw12切割图片1. 实例，将右边的图片使用精确剪裁，调整到左边红色框框的大小，并进行调整。 2. 先鼠标左键选择图片，右键按住不动将图片拖动到红色框框中，此时出现一个提示框，选择精确剪裁 3. 此...
如何用关键词搜索图片图片搜索：上传图片进行图片搜索后，会看到一些相似图片，如没有你所要的分辨率，则可在找到的图片说明中找到适合的词语作为关键词，在图片搜索中搜索此关键词，或许能找到你要的规格的...
如何用ps去图片水印去水印使用专业的图像处理软件Photoshop，以下提供使用PS去除水印、文字的多种方法（根据图片水印特点，酌情选择）： 1、使用仿制图章工具去水印这是比较常用的方法。具体的操作是，选...
如何用VB向Excel单元格中插入图片并且设置图片的属性Private LastRow As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = LastRow Then Exit Sub End If LastRow = Target.Row s = Works...
