首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

将资料编号作为参数传递

2012-07-29 
将文件编号作为参数传递在一个函数A中已经打开一个文件,编号为#1。同时在函数A中需要调用函数B,函数B中也需

将文件编号作为参数传递
在一个函数A中已经打开一个文件,编号为#1。同时在函数A中需要调用函数B,函数B中也需要使用这个文件,但是不想在重新打开这个文件。怎样才能将这个文件作为参数传递给函数B呢? 如下

private function a() as boolean

  Open filename For Binary As #1
  ......
  dim r as boolean
  r = b()  

end function

private function b() as boolean

  Get #1, pos, dataByte '?直接读取不行,怎样将此文件传递到b函数,而不需要重新打开?  

end function




[解决办法]
你直接把文件内容传给B就可以了
[解决办法]
在一个函数中打开这个文件后,只要这个文件号没有被close,那么其他函数中完全可以通过这个文件号来进行读写操作,而根本不需要楼主说的什么传递问题。
[解决办法]

引用楼主 NPHARD 的帖子:
private function b() as boolean

Get #1, pos, dataByte '?直接读取不行,怎样将此…

[解决办法]
这是一个不良好的习惯!!

打开文件最好用一个变量代替文件号:
Dim lngFileId As Long
lngFileId = FreeFile

热点排行