2248.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 33 行

HTML
33
字号
<html>
  <head>
    <title>请帮忙.</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>请帮忙.</h1>
    </center>

<HR><p>
Posted by <a href="mailto:william@huge.net.hk">RPG之鬼</a> on March 14, 1998 at 01:32:57:<p>
以下的程式是甚么意思??<p>00  Const Generic_Read = &H80000000<br>01  Const Generic_Write = &H40000000<br>02  Const Create_New = 1<br>03  Const Open_existing = 3<br>04  Const File_Attribute_normal = &H80<p>05  Dim m_FileName as string<br>06  Dim m_FilePointer as Long<p>07  Public Property let FileName(S As String)<br>08  m_FileName = S<br>09  End Property<p>10  Public Property Get FileName () as String<br>11  FileName = m_FileName<br>12  End Property<p>13  Public Property Get FilePointer(L as Long)<br>14  m_FilePointer=L<br>15  End Property<p>16  Public Property Let FilePointer() as Long<br>17  FilePointer=m_FilePointer<br>18  End Property<p>19  Public sub OpenFile()<br>20  m_FilePointer=CreateFile(m_FileName,Generic_Read Or     Generic_write,0&,0&,open_existing,File_attribute_normal,0&)<br>21  End Sub<p>我想知道第07-12行是甚么东西??S 和 L 又是甚么??<br>而第20行中的Generic_Read Or Generic_write又是何解意思??
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2248-->
<!--top: 2253--><li><a href="2253.html"><b>Re: 请帮忙.</b></a> 小吴 <i>22:39:08 3/14/98</i>
(<!--responses: 2253-->2)
<ul><!--insert: 2253-->
<!--top: 2262--><li><a href="2262.html"><b>Re: 请帮忙.</b></a> RPG之鬼 <i>18:25:30 3/15/98</i>
(<!--responses: 2262-->1)
<ul><!--insert: 2262-->
<!--top: 2278--><li><a href="2278.html"><b>Re: 请帮忙.</b></a> 陈凯程 <i>23:20:22 3/15/98</i>
(<!--responses: 2278-->0)
<ul><!--insert: 2278-->
</ul><!--end: 2278-->
</ul><!--end: 2262-->
</ul><!--end: 2253-->
</ul><!--end: 2248-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?