8.htm

vb基础教程源文件 处学者必备

<p>　　　　<span lang=EN-US>Private Sub Command1_Click() <br>
　　 If ProgressBar1.Value &lt; ProgressBar1.Max Then <br>
　　　　　　 　　　 ProgressBar1.Value = ProgressBar1.Value + 5 <br>
　　　　　　 Else <br>
　　　　　　　　　 ProgressBar1.Visible = False ‘ 当进程条满了的时候让进程条消失 <br>
End If <br>
End Sub </span></p>

<p><strong><span lang=EN-US>2． 滑块 </span></strong></p>

<p><span lang=EN-US>Slider 控件是包含滑块和可选择性刻度标记的窗口，在窗体上画出滑块控件，右击，选择属性，然后进行下列设置： </span></p>

<p><strong>（<span lang=EN-US> 1 ）选择滑块的外观 </span></strong></p>

<p>　　<span lang=EN-US>1) <strong>方向 </strong>属性决定滑块的方位，可以是垂直的或水平的滑块。 </span></p>

<p>　　<span lang=EN-US>2) <strong>滑块样式 </strong>属性决定滑块标记的样子。 </span></p>

<p>　　<span lang=EN-US>3) <strong>滑块频率 </strong>属性规定了沿着滑块的标记的间隔大小，缺省的状态是 1 ，表明每个可能值都出现标记，如果把值设置为
3 ，则每三个可能值出现一个标记。 </span></p>

<p><strong>（<span lang=EN-US> 2 ）滑块的主要属性及事件 </span></strong></p>

<p><strong>　<span lang=EN-US>1 ） Min ， Max 属性 </span></strong></p>

<p>　　<span lang=EN-US>Min 属性决定滑块最左端或最顶端所代表的值。 Max 属性决定滑块最右端或最下端所代表的值。 </span></p>

<p><strong>　　<span lang=EN-US>2 ） LargeChange,SmallChange 属性 </span></strong></p>

<p>　　<span lang=EN-US>SmallChange 决定在滑块两端的箭头钮上单击时改变的值。 LargeChange 决定在滑块上方或下方区域单击时改变的值。
</span></p>

<p><strong>　　<span lang=EN-US>3 ） Value 属性 </span></strong></p>

<p>　　　<span lang=EN-US>Value 属性代表当前滑块所处位置的值，这个值由滑块的相对位置决定。 </span></p>

<p><strong>　　<span lang=EN-US>4 ） Change 事件 </span></strong></p>

<p>当滑块位置发生变化时就引发了<span lang=EN-US> Change 事件。 </span></p>

<p align=center style='text-align:center'><strong><span lang=EN-US>8．4 排列显示（
ListView ）控件和分层显示（ TreeView ） 控件 </span></strong></p>

<p><strong><span lang=EN-US>1． ListView 控件 </span></strong></p>

<p>象<span lang=EN-US>“资源管理器”的右侧一样，可使用四种不同视图显示项目。通过此控件，可将项目组成带有或不带有列标头的列，并显示伴随的图标和文本。
</span></p>

<p>可使用<span lang=EN-US> ListView 控件将称作 ListItem 对象的列表条目组织成下列四种不同的视图之一： </span></p>

<p><strong>大（标准）图标 小图标 列表 报表 </strong></p>

<p>　<span lang=EN-US>View 属性决定在列表中控件使用何种视图显示项目。还可用 LabelWrap 属性控制列表中与项目关联的标签是否可换行显示。另外，还可管理列表中项目的排序方法和选定项目的外观。
</span></p>

<p>　　　<span lang=EN-US>ListView 控件包括 ListItem 和 ColumnHeader 对象。 ListItem 对象定义
ListView 控件中项目的各种特性，如： 项目的简要描述、由 ImageList 控件提供的与项目一起出现的图标、附加的文本片段，称作子项目，它们与显示在报表视图中的
ListItem 对象关联。 </span></p>

<p>可以使用<span lang=EN-US> HideColumnHeaders 属性决定是否在 ListView 控件中显示列标头。列标头可以在设计时添加，也可以在运行时添加。设计时，使用
ListView“ 控件属性”对话框的“列首”选项卡添加列标头。运行时，使用 Add 方法添加 ColumnHeader 对象到 ColumnHeaders 集合中。
</span></p>

<p><strong><span lang=EN-US>2 ． TreeView 控件 </span></strong></p>

<p>该控件象<span lang=EN-US>“资源管理器”的左侧一样，用于显示结点（ Node ） 对象的分层列表，每个 Node 对象均由一个标签和一个可选的位图组成。
TreeView 一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有效地分层显示的其它种类信息。 </span></p>

<p>创建了<span lang=EN-US> TreeView 控件之后，可以通过设置属性与调用方法对各 Node 对象进行操作，这些操作包括添加、删除、对齐和其它操作。可以编程展开与折回
Node 对象来显示或隐藏所有子节点。 </span></p>

<p>　<span lang=EN-US>TreeView 控件使用由 ImageList 属性指定的 ImageList 控件，来存储显示于 Node 对象的位图和图标。任何时刻，
TreeView 控件只能使用一个 ImageList 。这意味着，当 TreeView 控件的 Style 属性被设置成显示图像的样式时， TreeView
控件中每一项的旁边都有一个同样大小的图像。 </span></p>

<p align=center style='text-align:center'><strong><span lang=EN-US>8．5 多媒体控件 </span></strong></p>

<p><strong><span lang=EN-US>1． 多媒体控件 </span></strong></p>

<p><span lang=EN-US><img width=285 height=119 id="_x0000_i1025"
src=image803.gif>Multimedia MCI 控件管理媒体控制接口 (MCI) 设备上的多媒体文件的记录与回放。从概念上说，这种控件就是一组按钮，它被用来向诸如声卡、
MIDI 序列发生器、 CD-ROM 驱动器、视频 CD 播放器和视频磁带记录器及播放器等设备发出 MCI 命令。 MCI 控件还支持 Windows
(*.avi) 视频文件的回放。 </span></p>

<p>在允许用户从<span lang=EN-US> Multimedia MCI 控件选取按钮之前，应用程序必须先将 MCI 设备打开，并在
Multimedia MCI 控件上启用适当的按钮。在 Visual Basic 中， <strong>应将 MCI Open 命令放到 Form_Load 事件中。
</strong></span></p>

<p><strong><span lang=EN-US>2． 媒体播放器控件 </span></strong></p>

<p>可以播放各种多媒体文件，主要属性有： </p>

<p>（<span lang=EN-US>1） filename （待播放的文件名），可以在属性窗口中设置，也可以用代码实现。 </span></p>

<p>（<span lang=EN-US>2） AutoStart （是否自动播放），默认是 True 。 </span></p>

<p>（<span lang=EN-US>3） AutoRewind （是否自动循环），默认是 False 。 </span></p>

<p>（<span lang=EN-US>4） PlayCount （文件播放遍数），默认是 1 。 </span></p>

<table border=0 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
 mso-padding-alt:0cm 0cm 0cm 0cm'>
 <tr>
  <td style='padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><span lang=EN-US><img width=598 height=455
  id="_x0000_i1026" src=image805.jpg></span></p>
  </td>
 </tr>
 <tr>
  <td style='padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><span lang=EN-US><img width=600 height=395
  id="_x0000_i1027" src=image806.jpg></span></p>
  </td>
 </tr>
 <tr>
  <td style='padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><span lang=EN-US><img width=596 height=390
  id="_x0000_i1028" src=image804.jpg></span></p>
  </td>
 </tr>
 <tr>
  <td style='padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal><span lang=EN-US><img width=595 height=161
  id="_x0000_i1029" src=image807.jpg></span></p>
  </td>
 </tr>
</table>

<p class=MsoNormal style='margin-bottom:12.0pt'><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p>

<p align=center style='text-align:center'><strong><span lang=EN-US>8．6 图象列表（
ImageList ）和 图象组合框（ ImageCombo ） </span></strong></p>

<p><strong><span lang=EN-US>1． 图象列表 </span></strong></p>

<p><span lang=EN-US>ImageList 控件是包含 ListImage 对象的集合，该集合中的每个对象都可以通过其索引或关键字被引用。
ImageList 控件不能独立使用，只是作为一个便于向其它控件提供图象的资料中心。 </span></p>

<p>　　<span lang=EN-US>ImageList 控件的作用象图像的储藏室，同时，它需要第二个控件显示所储存的图像。第二个控件可以是任何能显示图像
Picture 对象的控件，也可以是特别设计的、用于绑定 ImageList 控件的 Windows 通用控件之一。这些控件包括 ListView 、
ToolBar 、 TabStrip 、 Header 、 ImageCombo 、和 TreeView 控件。为了与这些控件一同使用 ImageList ，必须通过一个适当的属性将特定的
ImageList 控件绑定到第二个控件。对于 ListView 控件，必须设置其 Icons 和 SmallIcons 属性为 ImageList 控件。对于
TreeView 、 TabStrip 、 ImageCombo 、和 Toolbar 控件，必须设置 ImageList 属性为 ImageList 控件。
</span></p>

<p>一旦<span lang=EN-US> ImageList 与某个 Windows 通用控件相关联，就可以在过程中用 Index 属性或 Key 属性的值来引用
ListImage 对象。 </span></p>

<p>当与<span lang=EN-US> Windows 通用控件一起使用 ImageList 控件时，在将它绑定到第二个控件之前，按照希望的顺序将全部需要的图像插入到
ImageList 。一旦 ImageList 被绑定到第二个控件 ，就不能再删除图像了，并且也不能将图像插入到 ListImages 集合中间。但是可以在集合的末尾添加图像。
</span></p>

<p><strong><span lang=EN-US>2． 图象组合框 </span></strong></p>

<p><span lang=EN-US>ImageCombo 控件是标准 Windows 组合框的允许绘图版本。控件列表部分中的每一项都可以有一幅指定的图片。它可以显示一个包含图片的项目列表，每一项可以有自己的图片，也可以对多个列表项使用相同的图片。
</span></p>

<p>除了支持图片之外，<span lang=EN-US> ImageCombo 还提供了一个对象和基于集合的列表控件。控件列表部分的每一项是一个不同的
ComboItem 对象，而且列表中的所有项组</span></p>

<p>合起来构成<span lang=EN-US> ComboItems 集合。这就使它容易一项一项地指定诸如标记文本、 ToolTip 文本、关键字值以及缩进等级等属性。
</span></p>

<p align=center style='text-align:center'><strong><span lang=EN-US>8．7 通用对话框控件 </span></strong></p>

<p>　<span lang=EN-US>Windows 应用程序里的 Open 对话框， Save As 对话框在各个应用程序里看起来都是一样的，通用对话框控件就可以提供这些对话框的标准功能。
</span></p>

<p><strong><span lang=EN-US>1 ． Open 对话框及 Save As 对话框 </span></strong></p>

<p>打开<span lang=EN-US> Open 对话框使用 ShowOpen 方法，打开 Save As 对话框使用 ShowSave 方法。 </span></p>

<p>　　<span lang=EN-US>Private Sub mnuOpen_Click () <br>
On Error GoTo ErrorHandler <br>
CommonDialog1.CancelError = True <br>
CommonDialog1.Filter = &quot;Text Files (*.txt)|*.txt|Batch Files
(*.bat)|*.bat|All Files (*.*)|*.*&quot; <br>
CommonDialog1.ShowOpen ' 显示打开对话框 <br>
Call OpenFile(CommonDialog1.FileName) <br>
ErrorHandler: <br>
Exit Sub <br>
End Sub </span></p>

<p>其中第三行决定了在文件格式类型栏里出现的文件类型。第五行需要一个自己的打开文件的过程，这个过程需要的参数就是通用对话框返回的文件名。通用对话框的<span
lang=EN-US> CancelError 属性设为 True 的话，用户单击 Cancel 按钮将产生一个错误信息程序，凭借这个信息程序可以检测到用户的放弃操作。
</span></p>

<p><strong><span lang=EN-US>2 ． Color 对话框 </span></strong></p>

<p>下面的过程可用用户选择的颜色作为窗体的底色。 </p>

<p>　　<span lang=EN-US>Private Sub mnuColor_Click () <br>
On Error GoTo CancelButton <br>
CommonDialog1.CancelError = True <br>
CommonDialog1.ShowColor <br>
Form1.BackColor = CommonDialog1.Color <br>
CancelButton: <br>
Exit Sub <br>
End Sub </span></p>

<p><strong><span lang=EN-US>3 ． Fonts 对话框 </span></strong></p>

<p>下面的过程可用字体对话框改变文本框的字体<span lang=EN-US> : </span></p>

<p>　　<span lang=EN-US>Private Sub mnuFonts_Click () <br>
On Error GoTo CancelButton <br>
CommonDialog1.CancelError = True <br>
CommonDialog1.Flags = cdlCFBoth ' Flags property must be set to cdlCFBoth <br>
CommonDialog1.ShowFont ' Display Font common dialog box. <br>
Text1.FontName = CommonDialog1.FontName <br>
Text1.FontSize = CommonDialog1.FontSize <br>
Text1.FontBold = CommonDialog1.FontBold <br>
Text1.FontItalic = CommonDialog1.FontItalic <br>
Text1.FontUnderline = CommonDialog1.FontUnderline <br>
Text1.FontStrikethru = CommonDialog1.FontStrikethru <br>
Text1.ForeColor = CommonDialog1.Color <br>
CancelButton: <br>
Exit Sub <br>
End Sub </span></p>

<p>代码的第三行出现了通用对话框的<span lang=EN-US> Flags 属性决定了通用对话框的一些可选项，不过即使不赋值给 Flags ，代码也一样会按缺省的情况去执行的。
</span></p>

</div>

</body>

</html>