?????

yunxiang 2003-12-18 10:27:56
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
...全文
42 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
muchtrouble2003 2003-12-18
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


好了,写完了,楼主给分吧
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告