怎样写类模块

Question

我现在要读一个文本文件，因为文件内容很复杂，所以想建立个类模块ReadData，专门用来写读文件内容的程序，但是我怎么调过去啊，大家能帮我看看吗？Private Sub ComdReadData_Click()
      Open MngBaseFileName For Input As #intFilenum
             ReadDataFile  '调用类模块ReadData（数据文件读取.cls）
      Close #intFilenum
End Sub
类模块ReadData（数据文件读取.cls）'****读取数据文件的内容***************************************
Public Sub ReadDataFile()
.（省略）
.
.
.
End Sub
  是哪里出问题了吗？拜托大家帮我看看把 

Answer 1

声明一个类模块的变量：cla
执行类模块中的ReadDataFile方法Dim Cla As New Class1
Cla.ReadDataFile

Answer 2

Dim Cla As New Class1
Cla.ReadDataFile
这个写在哪里？

Answer 3

本帖最后由 bcrun 于 2010-09-28 21:03:07 编辑

  

Answer 4

如果你要按照你原来的思路去写的话，那你在类模块中也得打开文件，还得重复用open
调用类模块的方法，是要先创建类模块的实例啊，再用实例去调方法
你这个是这样的：
dim str as new ReadData
str.ReadDataFile
这样就调用了，但是这样好象达不到你想要的效果吧，你读取数据肯定要拿来用啊，如果这样，你还得在类模块中把数据送到其他模块去，还得引用其他的，比如form1,form2等。
这样就失去类的本质了，一个比较好的类嘛，肯定要有自己的独立性啊。如果失去类的本质，还不如不用类，直接用模块或者直接在窗体中写算了-_-

Answer 5

4楼的示例代码比较适合你,不过ReadDataFile的返回值为string是什么意思呢,是不是成功打开则返回空字符串,失败则返回错误内容呢.那文件本身的内容还要另外表示,比如定义一个byte数组型的属性Content