有兄弟在吗?安装了VB的过来帮我一个忙,急用。谢谢

coo_key 2003-05-17 03:04:44
帮忙把下面这个函数编译成MengXHFileDownLoad.DLL
谢谢。。。。

Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String

On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum
fl = FileLen(bfilename)
ReDim binbyte(fl)
Get #FileNum, , binbyte
Close #FileNum
readBinFromFile = binbyte
Exit Function

errHandler:
Exit Function
End Function
...全文
1 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
coo_key 2003-05-17
忘记了,发送到coo_key@163.com
我马上就要走了,帮忙。。。
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-17 03:04
社区公告
暂无公告