⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 c++ builder 程序设计实用教程 - 5_5 利用文件类控件 - 张晋 - 17xie.htm

📁 已经消失的不易找到的C++ builder网络教程总结
💻 HTM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
lang=EN-US>Form1-&gt;FileListBox1-&gt;Directory=Form1-&gt;DirectoryListBox1-&gt;Directory;</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置</SPAN><SPAN 
lang=EN-US>FileListBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">控件的目录</SPAN></P>
<P class=a3><SPAN lang=EN-US>}</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<H4><SPAN lang=EN-US>5</SPAN><SPAN 
style="FONT-FAMILY: 楷体_GB2312; mso-ascii-font-family: 'Times New Roman'">．添加其余代码</SPAN></H4>
<P class=MsoNormalIndent><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">当然，仅仅依靠前面所添加的代码是不够的，还需要添加响应建立窗体等事件的代码，如下所示：</SPAN></P>
<P class=a3><SPAN lang=EN-US>void __fastcall TForm1::FormCreate(TObject 
*Sender)</SPAN></P>
<P class=a3><SPAN lang=EN-US>{</SPAN></P>
<P class=a3><SPAN lang=EN-US>chdir("c:\\Windows\\");</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">初始化</SPAN><SPAN 
lang=EN-US>DriveComboBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">控件</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DriveComboBox1-&gt;Left=56;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DriveComboBox1-&gt;Top=56;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DriveComboBox1-&gt;Width=217;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DriveComboBox1-&gt;Height=19;</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置控件</SPAN><SPAN 
lang=EN-US>DriveComboBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">的位置与大小</SPAN></P>
<P class=a3><SPAN lang=EN-US>……</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">初始化控件</SPAN><SPAN 
lang=EN-US>Edit1</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;Edit1-&gt;Left=56;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;Edit1-&gt;Top=272;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;Edit1-&gt;Width=409;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;Edit1-&gt;Height=21;</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置控件</SPAN><SPAN 
lang=EN-US>Edit1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">的位置与大小</SPAN></P>
<P class=a3><SPAN lang=EN-US>}</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a0><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">注意：</SPAN></P>
<P class=a1><SPAN lang=EN-US 
style="FONT-FAMILY: Wingdings; mso-fareast-font-family: Wingdings; mso-bidi-font-family: Wingdings"><SPAN 
style="mso-list: Ignore">@<SPAN 
style="FONT: 7pt 'Times New Roman'">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
</SPAN></SPAN></SPAN><SPAN 
style="FONT-FAMILY: 楷体_GB2312; mso-ascii-font-family: 'Times New Roman'">由于篇幅的限制，在这里就不对代码一一的加以说明，详细的代码可以参看附后的源程序代码。</SPAN></P>
<H4><SPAN lang=EN-US>6</SPAN><SPAN 
style="FONT-FAMILY: 楷体_GB2312; mso-ascii-font-family: 'Times New Roman'">．运行程序</SPAN></H4>
<P class=MsoNormalIndent><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">做完以上的工作后，存储文件，按键盘上的功能键</SPAN><SPAN 
lang=EN-US>F9</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">运行程序，程序的运行结果如图</SPAN><SPAN 
lang=EN-US>5-19</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">所示。</SPAN></P>
<P class=a><SPAN lang=EN-US><IMG height=198 
src="C++ Builder 程序设计实用教程 - 5_5 利用文件类控件 - 张晋 - 17xie.files/d1f129c1d9.jpg" 
width=302 v:shapes="_x0000_i1026"></SPAN></P>
<P class=MsoCaption><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">图</SPAN><SPAN 
lang=EN-US>5-19<SPAN style="mso-spacerun: yes">&nbsp; </SPAN></SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">程序运行结果</SPAN></P>
<P class=MsoNormalIndent><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">以上程序的源程序代码如下所示：</SPAN></P>
<DIV 
style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 0cm; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 0cm; PADDING-BOTTOM: 1pt; BORDER-LEFT: windowtext 1pt solid; PADDING-TOP: 1pt; BORDER-BOTTOM: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; mso-element: para-border-div">
<P class=a2 
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; PADDING-LEFT: 0cm; PADDING-BOTTOM: 0cm; BORDER-LEFT: medium none; PADDING-TOP: 0cm; BORDER-BOTTOM: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 1.0pt 0cm"><SPAN 
style="FONT-FAMILY: 仿宋_GB2312; mso-ascii-font-family: 'Times New Roman'">程序清单</SPAN><SPAN 
lang=EN-US 
style="FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt"><o:p></o:p></SPAN></P></DIV>
<P class=a3><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a3><SPAN lang=EN-US>#include &lt;vcl.h&gt;</SPAN></P>
<P class=a3><SPAN lang=EN-US>#pragma hdrstop</SPAN></P>
<P class=a3><SPAN lang=EN-US>#include &lt;dir.h&gt;</SPAN></P>
<P class=a3><SPAN lang=EN-US>#include "Unit1.h"</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>//---------------------------------------------------------------------------</SPAN></P>
<P class=a3><SPAN lang=EN-US>#pragma package(smart_init)</SPAN></P>
<P class=a3><SPAN lang=EN-US>#pragma resource "*.dfm"</SPAN></P>
<P class=a3><SPAN lang=EN-US>TForm1 *Form1;</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a3><SPAN lang=EN-US>__fastcall TForm1::TForm1(TComponent* 
Owner)</SPAN></P>
<P class=a3><SPAN lang=EN-US><SPAN 
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>: 
TForm(Owner)</SPAN></P>
<P class=a3><SPAN lang=EN-US>{</SPAN></P>
<P class=a3><SPAN lang=EN-US>}</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>//-----------------------------------------------------------------------</SPAN></P>
<P class=a3><SPAN lang=EN-US><o:p>&nbsp;</o:p></SPAN></P>
<P class=a3><SPAN lang=EN-US>void __fastcall TForm1::FormCreate(TObject 
*Sender)</SPAN></P>
<P class=a3><SPAN lang=EN-US>{</SPAN></P>
<P class=a3><SPAN lang=EN-US>chdir("c:\\Windows\\");</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">初始化</SPAN><SPAN 
lang=EN-US>DriveComboBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">控件</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DriveComboBox1-&gt;Left=56;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DriveComboBox1-&gt;Top=56;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DriveComboBox1-&gt;Width=217;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DriveComboBox1-&gt;Height=19;</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置控件</SPAN><SPAN 
lang=EN-US>DriveComboBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">的位置与大小</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DriveComboBox1-&gt;Drive='c';</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置控件</SPAN><SPAN 
lang=EN-US>DriveComboBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">的初始驱动器</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>//Form1-&gt;DriveComboBox1-&gt;DirList=Form1-&gt;DirectoryListBox1;</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置</SPAN><SPAN 
lang=EN-US>DriveComboBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">控件的关联控件为</SPAN><SPAN 
lang=EN-US>DirectoryListBox1</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">初始化</SPAN><SPAN 
lang=EN-US>DirectoryListBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">控件</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DirectoryListBox1-&gt;Left=56;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;DirectoryListBox1-&gt;Top=88;</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>Form1-&gt;DirectoryListBox1-&gt;Width=217;</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>Form1-&gt;DirectoryListBox1-&gt;Height=145;</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置控件</SPAN><SPAN 
lang=EN-US>DirectoryListBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">的位置与大小</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>Form1-&gt;DirectoryListBox1-&gt;Directory="c:\\Windows\\";</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置控件</SPAN><SPAN 
lang=EN-US>DirectoryListBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">的初始工作目录为</SPAN><SPAN 
lang=EN-US>c:\Windows</SPAN></P>
<P class=a3><SPAN 
lang=EN-US>//Form1-&gt;DirectoryListBox1-&gt;FileList=Form1-&gt;FileListBox1;</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置</SPAN><SPAN 
lang=EN-US>DirectoryListBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">控件的关联控件为</SPAN><SPAN 
lang=EN-US>FileListBox1</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">初始化</SPAN><SPAN 
lang=EN-US>FileListBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">控件</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;FileListBox1-&gt;Left=280;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;FileListBox1-&gt;Top=56;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;FileListBox1-&gt;Width=185;</SPAN></P>
<P class=a3><SPAN lang=EN-US>Form1-&gt;FileListBox1-&gt;Height=209;</SPAN></P>
<P class=a3><SPAN lang=EN-US>//</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">设置控件</SPAN><SPAN 
lang=EN-US>FileListBox1</SPAN><SPAN 
style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">的位置与大小</SPAN></P>
<P class=a3><SPAN
1234

⌨️ 快捷键说明

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