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 + -
显示快捷键?