📄 outline.htm
字号:
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>1</font></div>
</td>
<td width="100%">
<div id=PPTP1 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0051.htm');" id=PPTL1>第九章<span
style='mso-spacerun:yes'> </span>文 件</a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>2</font></div>
</td>
<td>
<div id=PPTP2 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0077.htm');" id=PPTL2><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>3</font></div>
</td>
<td>
<div id=PPTP3 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0059.htm');" id=PPTL3>9.1 文件的概念</a></font></div>
<div id=PPTC3 class=CTxt style='display:none'><font size=2>
<ul>
<li>一、文件及其结构</li>
<li><span style='mso-spacerun:yes'> </span>文件：存储在外部介质上数据的集合。</li>
<li><span style='mso-spacerun:yes'> </span>要求操作系统中的文件系统能提供用户按名存取方式</li>
<li><span style='mso-spacerun:yes'> </span>在操作系统中有两种文件：</li>
<li><span
style='mso-spacerun:yes'>
</span>字符流无结构文件和记录式有结构文件</li>
<li><span style='mso-spacerun:yes'> </span>磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>4</font></div>
</td>
<td>
<div id=PPTP4 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0078.htm');" id=PPTL4><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>5</font></div>
</td>
<td>
<div id=PPTP5 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0060.htm');" id=PPTL5><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>6</font></div>
</td>
<td>
<div id=PPTP6 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0079.htm');" id=PPTL6><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>7</font></div>
</td>
<td>
<div id=PPTP7 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0052.htm');" id=PPTL7>9.2 文件系统控件</a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>8</font></div>
</td>
<td>
<div id=PPTP8 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0080.htm');" id=PPTL8><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>9</font></div>
</td>
<td>
<div id=PPTP9 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0082.htm');" id=PPTL9><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>10</font></div>
</td>
<td>
<div id=PPTP10 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0081.htm');" id=PPTL10><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>11</font></div>
</td>
<td>
<div id=PPTP11 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0083.htm');" id=PPTL11><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>12</font></div>
</td>
<td>
<div id=PPTP12 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0084.htm');" id=PPTL12><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>13</font></div>
</td>
<td>
<div id=PPTP13 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0085.htm');" id=PPTL13><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>14</font></div>
</td>
<td>
<div id=PPTP14 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0086.htm');" id=PPTL14><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>15</font></div>
</td>
<td>
<div id=PPTP15 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0056.htm');" id=PPTL15>"（4）文件属性"</a></font></div>
<div id=PPTC15 class=CTxt style='display:none'><font size=2>
<ul>
<li> （4）文件属性：</li>
<li> <span style='mso-spacerun:yes'> </span>Archive：True，只显示文档文件；</li>
<li> <span style='mso-spacerun:yes'> </span>Normal：True，只显示正常标准文件；</li>
<li> <span style='mso-spacerun:yes'> </span>Hidden：True，只显示隐含文件；</li>
<li> <span style='mso-spacerun:yes'> </span>System：True，只显示系统文件。</li>
<li> <span style='mso-spacerun:yes'> </span>ReadOnly：True，只显示只读文件。</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>16</font></div>
</td>
<td>
<div id=PPTP16 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0087.htm');" id=PPTL16>"（6）List、ListCount
和..."</a></font></div>
<div id=PPTC16 class=CTxt style='display:none'><font size=2>
<ul>
<li> （6）List、ListCount 和 ListIndex 属性</li>
<li><span
style='mso-spacerun:yes'>
</span>文件列表框中的List、ListCount 和 ListIndex 属性与列表框（ListBox）控件的List、ListCount
和 ListIndex 属性的含义和使用方法相同，在程序中对文件列表框中的所有文件进行操作，就有用到这些属性。</li>
<li><span
style='mso-spacerun:yes'>
</span>因此有：File1.FileName=File1.List(File1.ListIndex)</li>
<br>
<br>
<li><span style='mso-spacerun:yes'> </span>将文件列表框（File1）中的所有文件名显示在窗体上：</li>
<li><span style='mso-spacerun:yes'> </span>For i = 0 To
File1.ListCount - 1</li>
<li><span style='mso-spacerun:yes'> </span> Print File1.List(i)</li>
<li><span style='mso-spacerun:yes'> </span>Next i</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>17</font></div>
</td>
<td>
<div id=PPTP17 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0057.htm');" id=PPTL17>"2"</a></font></div>
<div id=PPTC17 class=CTxt style='display:none'><font size=2>
<ul>
<li> 2. 主要事件</li>
<li><span style='mso-spacerun:yes'> </span>（1）PathChange事件</li>
<li><span
style='mso-spacerun:yes'>
</span>当路径被代码中FileName或Path属性的设置所改变时，此事件发生。</li>
<li><span
style='mso-spacerun:yes'>
</span>说明：可使用PathChange事件过程来响应FileListBox控件中路径的改变。</li>
<br>
<br>
<li>（2）PatternChange事件</li>
<li><span
style='mso-spacerun:yes'>
</span>当文件的列表样式，如："*.*"，被代码中对FileName或Path属性的设置所改变时，此事件发生。</li>
<li><span
style='mso-spacerun:yes'>
</span>说明：可使用PatternChange事件过程来响应在FileListBox控件中样式的改变。</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>18</font></div>
</td>
<td>
<div id=PPTP18 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0088.htm');" id=PPTL18>"（3） Click、DblClick事件"</a></font></div>
<div id=PPTC18 class=CTxt style='display:none'><font size=2>
<ul>
<li>（3） Click、DblClick事件：</li>
<li> 例如：单击输出文件名。</li>
<li> Sub filFile_Click( )</li>
<li> MsgBox filFile.FileName</li>
<li> End Sub</li>
<br>
<br>
<li> 例如：双击执行可执行程序</li>
<li> Sub File1_DblClick( )</li>
<li><span style='mso-spacerun:yes'> </span>Dim Fname As String</li>
<li><span style='mso-spacerun:yes'> </span>If<span
style='mso-spacerun:yes'> </span>Right(file1.path,1)
="\"<span style='mso-spacerun:yes'> </span>Then</li>
<li><span style='mso-spacerun:yes'>
</span>Fname=file1.path & file1.filename</li>
<li><span style='mso-spacerun:yes'> </span>Else</li>
<li><span style='mso-spacerun:yes'>
</span>Fname=file1.path & "\" & file1.filename</li>
<li><span style='mso-spacerun:yes'> </span>End If</li>
<li><span style='mso-spacerun:yes'> </span>RetVal = Shell(Fname,
1)<span style='mso-spacerun:yes'> </span>' 执行程序</li>
<li> End Sub</li>
</ul>
</font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>19</font></div>
</td>
<td>
<div id=PPTP19 class=PTxt><font size=2><a
href="javascript:GoToSld('slide0058.htm');" id=PPTL19><span
style='mso-spacerun:yes'> </span></a></font></div>
</td>
</tr>
<tr onmouseover="Over(this)" onmouseout="Out(this)" onclick="Follow(this)"
style='cursor:hand'>
<td align=right valign=top>
<div class=sldNum><font size=2>20</font></div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -