?????

[yunxiang]

Public Function ServerIcon() As Boolean
Dim i As Integer
Dim MyFile As String
Dim tb() As Byte
On Error GoTo IconError
If gbconnected Then
MyFile = "C:\TestPass.bmp"
SavePicture MyForm.Image1.Picture, MyFile //什么意思？
Open MyFile For Binary As #1 ///什么意思？
i = 0 //什么意思？
i = LOF(1) //什么意思？
ReDim tb(i + 1) As Byte //什么意思？
i = 0
Do Until EOF(1) //什么意思？
Get #1, , tb(i) //什么意思？
i = i + 1 //什么意思？
Loop
Close #1 //什么意思？
Kill MyFile
objClient.ReceivePic tb //什么意思？
ServerIcon = True //什么意思？
End If
Exit Function
IconError:
#If DEBUG_ON Then //什么意思？
MsgBox Error$, vbOKOnly + vbExclamation, "Get Server Icon - Error" & Str$(Err) //什么意思？
#End If
ServerIcon = False
End Function

[muchtrouble2003]

Public Function ServerIcon() As Boolean
Dim i As Integer
Dim MyFile As String
Dim tb() As Byte
On Error GoTo IconError
If gbconnected Then
MyFile = "C:\TestPass.bmp"
SavePicture MyForm.Image1.Picture, MyFile
'SavePicture是vb自带函数，保存图片，意思是将MyForm.Image1.Picture保存MyFile路径下
Open MyFile For Binary As #1
'以二进制方式打开MyFile路径下文件流
i = 0
'i是文件长度
i = LOF(1)
'lof括号中1表示文件编号filenumber
ReDim tb(i + 1) As Byte
'重定义tb数组大小
i = 0
Do Until EOF(1)
'当打开的1号文件为空时跳出循环
Get #1, , tb(i)
'逐个读取文件中的字符，存入tb数组中
i = i + 1
'每读取一个字符i自加一次
Loop
Close #1
'关闭刚才打开的编号为1的文件
Kill MyFile
'kill为删除路径全名MyFile的文件
objClient.ReceivePic tb
'用引用将tb数组传递给客服区client
ServerIcon = True
'上述操作完成后表示成功保存图标，函数ServerIcon返回值为true
End If
Exit Function
IconError:
#If DEBUG_ON Then
'检测应用程序是否仍然处于调试中
MsgBox Error$, vbOKOnly + vbExclamation, "Get Server Icon - Error" & Str$(Err)
'将错误信息代码Err强制转换成字符串提示出来
#End If
ServerIcon = False
End Function


好了，写完了，楼主给分吧