# 请帮忙.

Posted by RPG之鬼 on March 14, 1998 at 01:32:57:

以下的程式是甚么意思??

00 Const Generic_Read = &H80000000
01 Const Generic_Write = &H40000000
02 Const Create_New = 1
03 Const Open_existing = 3
04 Const File_Attribute_normal = &H80

05 Dim m_FileName as string
06 Dim m_FilePointer as Long

07 Public Property let FileName(S As String)
08 m_FileName = S
09 End Property

10 Public Property Get FileName () as String
11 FileName = m_FileName
12 End Property

13 Public Property Get FilePointer(L as Long)
14 m_FilePointer=L
15 End Property

16 Public Property Let FilePointer() as Long
17 FilePointer=m_FilePointer
18 End Property

19 Public sub OpenFile()
20 m_FilePointer=CreateFile(m_FileName,Generic_Read Or Generic_write,0&,0&,open_existing,File_attribute_normal,0&)
21 End Sub

我想知道第07-12行是甚么东西??S 和 L 又是甚么??
而第20行中的Generic_Read Or Generic_write又是何解意思??

Follow Ups:

- Re: 请帮忙. 小吴 22:39:08 3/14/98 (2)
  - Re: 请帮忙. RPG之鬼 18:25:30 3/15/98 (1)
    - Re: 请帮忙. 陈凯程 23:20:22 3/15/98 (0)