8.htm

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

  <td width=187 style='width:140.25pt;border:solid windowtext .5pt;padding:
  0cm 0cm 0cm 0cm'>
  <p><span lang=EN-US>MediaPlayer 媒体播放器 </span></p>
  </td>
  <td width=288 style='width:216.0pt;border:solid windowtext .5pt;padding:0cm 0cm 0cm 0cm'>
  <p><strong><span lang=EN-US>Microsoft Media Player </span></strong></p>
  </td>
  <td width=120 style='width:90.0pt;border:solid windowtext .5pt;padding:0cm 0cm 0cm 0cm'>
  <p><span lang=EN-US>Msdxm.ocx </span></p>
  </td>
 </tr>
</table>

<p align=center style='text-align:center'><strong><span lang=EN-US>8.1 多选项卡对话框——页框（
TabStrip ） </span></strong></p>

<p><strong><span lang=EN-US>1. 设置页框的外观样式 </span></strong></p>

<p>（<span lang=EN-US>1） 先在窗体上画出一个 TabStrip 对象； </span></p>

<p>（<span lang=EN-US>2） 右击该对象，从快捷菜单中选择“属性”； </span></p>

<p>（<span lang=EN-US>3） 在 TabStrip 属性窗口里选择 <strong>通用 </strong>（ General ）标签，在样式（
Style ）列表框里选择样式； </span></p>

<p>（<span lang=EN-US>4） 在 TabStrip 属性窗口里选择 <strong>选项卡 </strong>（ Tabs ）标签，在标题（
Caption ）框里输入标题和关键字； </span></p>

<p>（<span lang=EN-US>5） 如果需要的话，在工具提示文本（ ToolTipText ）框里输入提示信息； </span></p>

<p>（<span lang=EN-US>6） 在 TabStrip 属性窗口里选择 <strong>字体 </strong>（ Font ）标签，设置标题的字体（可以直接采用默认值）。
</span></p>

<p><strong><span lang=EN-US>2 ． 增减标签总数 </span></strong></p>

<p>在<span lang=EN-US> TabStrip 属性窗口里选择 <strong>选项卡 </strong>标签，单击 <strong>插入选项卡
</strong>按钮增加标签，单击 <strong>删除选项卡 </strong>按钮删除标签。 </span></p>

<p><strong><span lang=EN-US>3 ．在 TabStrip 上显示图形 </span></strong></p>

<p>　　<span lang=EN-US>1) 在窗体里拖入一个图象列表（ ImageList ）控件； </span></p>

<p>　　<span lang=EN-US>2) 在此对象上右击，选择 <strong>属性 </strong>，打开 <strong>属性页 </strong>窗口；
</span></p>

<p>　　<span lang=EN-US>3) 选择 <strong>图象 </strong>标签， 单击 <strong>插入图片 </strong>按钮，在
<strong>选定图片 </strong>对话框里选择想使用的位图或图标，然后单击打开按钮；为每个想添加图形的选项卡重复此步； </span></p>

<p>　　<span lang=EN-US>4) 单击确定按钮， ImageList 里就存储了需要的图片。 </span></p>

<p>　　<span lang=EN-US>5) 选择 TabStrip ， 进入 TabStrip 属性窗口并选择 <strong>通用 </strong>标签，在
<strong>图象列表 </strong>框里选择 ImageList1 ； </span></p>

<p>　　<span lang=EN-US>6) 选择 <strong>选项卡 </strong>标签，单击紧挨 <strong>索引 </strong>框的向左或向右箭头以选择一个
Tab 序号。在图象框里输入一个数，输入为 1 ，则显示刚才 ImageList 控件里的第一个图形，输入为 2 ，则显示刚才 ImageList 控件里的第二个图形，单击确定按钮完成。
</span></p>

<p><strong><span lang=EN-US>4 ． 在 TabStrip 上放置其它控件 </span></strong></p>

<p>在窗体上象添加普通控件一样，把每一页需要的控件添上，控件不止一个时，应该用<span lang=EN-US> Frame 来分组，注意：除了默认的第一页上的
Frame 控件外，其他所有 Frame 的 Visible 属性都应该设为假。 </span></p>

<p><strong><span lang=EN-US>5 ．设计代码 </span></strong></p>

<p>在用户选择了标签后，<span lang=EN-US> TabStrip 要求编写代码来显示或隐藏控件。可用类似下面的代码来识别用户在哪一个项目上单击。
</span></p>

<p><strong><span lang=EN-US>Private Sub TabStrip1_Click() </span></strong><b><span
lang=EN-US><br>
<strong>　　　　 Select Case TabStrip1.SelectedItem.key </strong><br>
<strong>Case 1 </strong></span></b><span lang=EN-US><br>
&lt;选第一项时需要执行的代码&gt; <br>
<strong>Case 2 </strong><br>
&lt;选第一项时需要执行的代码&gt; <br>
<strong>…… </strong><b><br>
<strong>End Select </strong><br>
<strong>　 End Sub </strong></b></span></p>

<p><strong>例 </strong>：<span lang=EN-US> Private Sub TabStrip1_Click() <br>
Select Case TabStrip1.SelectedItem.Key <br>
　　　　　　　　　　　 Case &quot;statubar&quot; <br>
　　　　　　　　　　　　　　　　　　 Frame2.Visible = False <br>
　　　　　　　　　　　　　　　　　　 Frame1.Visible = True <br>
Case &quot;toolbar&quot; <br>
　　　　　　　　　　　　　　　　　　 Frame1.Visible = False <br>
　　　　 　　　　　　　　　　　　　　 Frame2.Visible = True <br>
　　　　 　　　 End Select <br>
End Sub </span></p>

<p align=center style='text-align:center'><strong><span lang=EN-US>8.2 状态栏（
StatusBar ）和工具栏（ ToolBar ） </span></strong></p>

<p><strong><span lang=EN-US>1 ． 状态栏的作用与组成 </span></strong></p>

<p>　　<span lang=EN-US>StatusBar 控件由 Panel （窗格） 对象组成，最多能被分成 16 个 Panel 对象，每一个
Panel 对象能包含文本和 / 或图片。控制个别窗格的外观属性包括 Width 、 Alignment （文本和图片的）和 Bevel( 斜面 ) 。此外，能使用
Style 属性七个值中的一个自动地显示公共数据，诸如日期、时间和键盘状态等。 </span></p>

<p><strong><span lang=EN-US>2． 创建状态栏 </span></strong></p>

<p>先在窗体上画出一个<span lang=EN-US> StatusBar 对象，再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口，进行下面的设置：
</span></p>

<p><strong>（<span lang=EN-US> 1 ） 选择窗格形状 </span></strong></p>

<p>在属性窗口里选择 <strong>通用 </strong>标签，在 <strong>样式 </strong>列表框里选择多窗格（缺省形式）或单窗格简单文本形式。
</p>

<p><strong>（<span lang=EN-US> 2 ） 添加或删除状态栏窗格 </span></strong></p>

<p>在属性窗口里选择 <strong>窗格 </strong>标签，单击 <strong>插入窗格 </strong>按钮添加一个窗格，或单击 <strong>删除窗格
</strong>按钮删除一个窗格。 </p>

<p><strong>（<span lang=EN-US> 3 ） 在单窗格里显示文本 </span></strong></p>

<p>在属性窗口里选择 <strong>通用 </strong>标签，在 <strong>简单文本 </strong>框里输入想显示在状态栏窗格里的文本。用代码显示的方式是：
</p>

<p><strong>　　<span lang=EN-US>StatusBar1.SimpleText = &quot; 要显示的内容 &quot; </span></strong></p>

<p><strong>（<span lang=EN-US> 4 ） 在多窗格里显示文本或图形 </span></strong></p>

<p>　　　<span lang=EN-US>1). 在属性窗口里选择 <strong>窗格 </strong>标签，用索引旁的按钮选择窗格序号。 </span></p>

<p>　　　<span lang=EN-US>2). 在文本框里输入想显示在状态栏窗格里的文本。用代码显示的方式是：
StatusBar1.Panels(x).Text = &quot; <strong>要显示的内容 </strong>&quot; </span></p>

<p>　　　<span lang=EN-US>3). 如果想加入图形，单击浏览按钮打开一个图形选择对话框，选择想加入的图形，然后单击打开按钮。 </span></p>

<p><strong>（<span lang=EN-US> 5) 编写代码 </span></strong></p>

<p>如果是一个单窗格状态栏，当用户单击状态栏时，只需用下面的事件过程来响应： </p>

<p>　　　<span lang=EN-US>Private Sub StatusBar1_Click() <br>
&lt; 要执行的代码 &gt; <br>
End Sub </span></p>

<p>如果是一个多窗格状态栏，就需要鉴别用户单击的是哪一个窗格，可用下面的事件过程来识别用户所单击的窗格： </p>

<p><strong>　　　<span lang=EN-US>Private Sub StatusBar1_PanelClick(ByVal Panel As
Panel) </span></strong><b><span lang=EN-US><br>
<strong>Select Case Panel.Index </strong><br>
<strong>Case 1 </strong><br>
</span></b><span lang=EN-US>&lt; 要执行的代码 &gt; <br>
<strong>Case 2 </strong><br>
　　　　　　　　　　　　　　　　 &lt; 要执行的代码 &gt; <br>
…… <br>
<strong>End Select </strong><b><br>
<strong>End Sub </strong></b></span></p>

<p><strong><span lang=EN-US>3． 创建工具栏 </span></strong></p>

<p><strong>（<span lang=EN-US> 1 ） . 建立工具栏 </span></strong></p>

<p>　　　<span lang=EN-US>1 ） 在工具箱里单击工具栏图标，拖到窗体的任何位置， Visual Basic 自动将 ToolBar 移到顶部。再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口；
</span></p>

<p>　　　<span lang=EN-US>2 ） 选择 <strong>按钮 </strong>标签，单击插入按钮， Visual Basic 就会在工具栏上显示一个空按钮，重复此步插入多个按钮；
</span></p>

<p>　　　<span lang=EN-US>3 ） 单击确定按钮。如果想把按钮分组，首先插入一个分隔的按钮，再在对话框里将这个按钮的样式属性改为
3-Separator 。 </span></p>

<p><strong>（<span lang=EN-US> 2 ） 为工具栏增加图画 </span></strong></p>

<p>　　　<span lang=EN-US>1). 在 Visual Basic 工具箱里单击 ImageList 图标，并将它拖到窗体的任何位置（位置不重要，因为它总是不可见的），再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口；
</span></p>

<p>　　　<span lang=EN-US>2). 选择图象标签，单击插入图片，在选定图形对话框里选择想使用的位图或图标，然后单击打开按钮。为每个想添加图形的工具栏按钮重复此步。
</span></p>

<p>　　　<span lang=EN-US>3). 单击确定按钮。 </span></p>

<p>　　　<span lang=EN-US>4). 进入 ToolBar 属性对话框，选择 <strong>通用 </strong>标签，在 <strong>图象列表
</strong>框里选择刚才添加的 ImageList 控件。 </span></p>

<p>　　　<span lang=EN-US>5). 选择按钮标签，单击紧挨 Index 框的向左或向右箭头以选择一个按钮序号。出现在工具栏最左边的按钮序号为
1 。 </span></p>

<p>　　　<span lang=EN-US>6). 在 Image 框里输入一个数，输入为 1 ，则显示刚才 ImageList 控件里的第一个图形，输入为
2 ，则显示刚才 ImageList 控件里的第二个图形。 </span></p>

<p>　　　<span lang=EN-US>7). 为每个按钮重复第 6 步， 单击确定按钮，现在 Visual Basic 就会在工具栏上显示精美的图形了。
</span></p>

<p><strong>（<span lang=EN-US> 3 ）为工具栏添加文本信息 </span></strong></p>

<p>在<span lang=EN-US> ToolBar 属性对话框中选择 <strong>按钮 </strong>标签，在 <strong>标题 </strong>框里输入想显示在按钮上的文本。
</span></p>

<p><strong>（<span lang=EN-US> 4 ） 添加 ToolTips </span></strong></p>

<p>　　　 <span lang=EN-US>ToolTips 是一种当点到工具按钮时弹出的小标签。 ToolTips 很方便，可以告诉那些新手每个按钮是干什么用的。在
ToolBar 属性对话框中选择 <strong>按钮 </strong>标签，在 <strong>工具提示文本 </strong>框里输入想作为
ToolTip 的文本。 </span></p>

<p><strong>（<span lang=EN-US> 5 ）编写代码 </span></strong></p>

<p>双击工具栏，以下面的格式输入代码就可以了： </p>

<p><strong><span lang=EN-US>Private Sub Toolbar1_ButtonClick(ByVal Button As
Button) </span></strong><span lang=EN-US><br>
<strong>Select Case Button.Index </strong><b><br>
<strong>Case 1 </strong></b><br>
　　　　　　　　　　　　　　　　 &lt; 要执行的代码 &gt; <br>
<strong>Case 2 </strong><br>
　　　　　　　　　　　　　　　　 &lt; 要执行的代码 &gt; <br>
…… <br>
<strong>End Select </strong><b><br>
<strong>End Sub </strong></b></span></p>

<p align=center style='text-align:center'><strong><span lang=EN-US>8.3 进程条（
ProgressBar ）和滑块（ Slider ） </span></strong></p>

<p><strong><span lang=EN-US>1. 进程条 </span></strong></p>

<p><strong>作用 </strong>：进程条控件用于监视操作完成的进度。 </p>

<p><strong>创建 </strong>：在窗体上画出进程条控件，右击，选择属性，然后进行所需的外观设置。 </p>

<p><strong>主要属性 </strong>：<span lang=EN-US> ProgressBar 控件有一个行程和一个当前位置。行程代表该操作的整个持续时间。当前位置则代表应用程序在完成该操作过程时的进度。
Max 和 Min 属性设置了行程的界限。 Value 属性则指明了在行程范围内的当前位置。 </span></p>

<p>　　<span lang=EN-US>(1) Min 属性代表进程条全空时的值，缺省时为 0 。 </span></p>

<p>　　<span lang=EN-US>(2) Max 属性代表进程条全空时的值，缺省时为 100 。 </span></p>

<p>　　<span lang=EN-US>(3) Value 属性代表进程条当前的值（但不出现在属性窗口中），它大于 Min 属性，小于 Max 属性。改变
Value 属性的值将改变进程条的进度显示。 </span></p>

<p><strong>示例 </strong>： </p>