Windows 95的新控件Visual Basic的输入输出

Windows 95的新控件Visual Basic的输入输出§1 ToolBar（工具条）控件ToolBar就是那些在菜单下面的图形钮，这已经成为Windows应用程序的样板。

一、建立工具条1，在工具箱里单击工具条图标，拖到窗体的任何位置，Visual Basic自动将ToolBar移到顶部。

2，按F4键打开属性窗口。

3，双击（Custom），打开ToolBar属性窗口。

4，选择Buttons标签。

5，单击Insert按钮，Visual Basic就会在你的工具条上显示一个空按钮，现在为你的每一个按钮重复这一步。

6，单击确定按钮。

如果你想把按钮分组，首先生成一个分隔的按钮，再在刚才提到的对话框里将这个按钮的Style属性改为3-Separator。

二、为工具条增加图画1，在Visual Basic工具箱里单击ImageList图标，并将它拖到窗体的任何位置（位置不重要，因为它总是不可见的）。

2，按F4打开属性窗口。

3，双击（Custom），打开ImageListCtrl属性窗口。

4，选择Image标签。

5，单击Insert Picture，在现在图形的对话框里选择你想使用的位图或图标，然后单击打开按钮。

为每个你想添加图形的工具条按钮重复此步。

6，单击确定按钮。

7，单击你的工具条，按F4，双击（Custom），显示ToolBar属性对话框。

8，选择General标签，在ImageList框里选择刚才添加的ImageList控件。

9，选择Buttons标签，单击紧挨Index框的向左或向右箭头以选择一个按钮序号。

出现在工具条最左边的按钮序号为1。

10，在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。

11，为每个按钮重复第10和第11步。

12，单击确定按钮，现在Visual Basic就会在工具条上显示精美的图形了。

三、为工具条添加文本信息在刚才提到的ToolBar属性对话框中选择Buttons标签，在Caption框里输入你想显示在按钮上的文本。

四、添加ToolTipsToolTips是一种当你点到工具按钮是弹出的小标签。

ToolTips很方便，可以告诉那些新手每个按钮是干什么用的。

在刚才提到的ToolBar属性对话框中选择Buttons标签，在ToolTipText框里输入你想作为ToolTip的文本。

五、如何编写代码双击你的工具条，以下面的格式输入代码就可以了。

Private Sub Toolbar1_ButtonClick(ByVal Button As Button)Select Case Button.IndexCase 1'Code to follow if user clicks the first buttonCase 2'Code to follow if user clicks the second buttonCase 3'Code to follow if user clicks the third buttonEnd SelectEnd Sub§2 StatusBar（状态条）控件和ToolBar一样，选中状态条，按F4键进入属性窗口，双击（Custom）可以进入主要的设置窗口SBarCtrl属性窗口。

一、选择面板形状在SBarCtrl属性窗口里选择General标签，在Style列表框里选择多面板（缺省形式）或单面板简单文本形式。

二、添加或删除状态条面板在SBarCtrl属性窗口里选择Panels标签，单击Insert按钮添加一个面板，或单击Remove 按钮删除一个面板。

三、在单面板里显示文本在SBarCtrl属性窗口里选择General标签，在SimpleText框里输入你想显示在状态条面板里的文本。

用代码显示的方式是：StatusBar1.SimpleText = "New string to appear"四、在多面板里显示文本或图形1，在SBarCtrl属性窗口里选择Panels标签，用Index旁的按钮选择面板序号。

2，在Text框里输入你想显示在状态条面板里的文本。

3，如果你想加入图形，单击Browse按钮打开一个图形选择对话框，选择你想加入的图形，然后单击打开按钮。

4，最后按确定按钮。

5，用代码显示的方式是：StatusBar1.Panels(x).Text = "New string to appear"五、如何编写代码如果是一个单面板状态条，当用户单击状态条时，只需用下面的事件过程来响应：Private Sub StatusBar1_Click()End Sub如果是一个多面板状态条，就需要鉴别用户单击的是哪一个面板，可用下面的事件过程来识别用户所单击的面板：Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)Select Case Panel.IndexCase 1'Code to follow if user clicks the first panelCase 2'Code to follow if user clicks the second panelCase 3'Code to follow if user clicks the third panelEnd SelectEnd Sub§3 ProgressBar（进程条）控件一、进程条的三个属性1，Min属性代表进程条全空时的值，缺省时为0。

2，Max属性代表进程条全空时的值，缺省时为100。

3，Value属性代表进程条当前的值（不用在属性窗口里找这个属性，它不出现在属性窗口中，但它的确存在），它大于Min属性，小于Max属性。

改变Value属性的值将改变进程条的进度显示。

为了了解进程条的功能，在窗体里添加一个进程条和一个命令钮，双击命令钮进入代码窗口，键入如下代码：Private Sub Command1_Click()If ProgressBar1.Value < ProgressBar1.Max ThenProgressBar1.Value = ProgressBar1.Value + 5ElseProgressBar1.Visible = False …当进程条满了的时候让进程条消失End IfEnd Sub§4 Slider（滑块）控件一、选择滑块的外观1，Orientation属性决定滑块的方位，可以是垂直的或水平的滑块。

2，TickStyle属性决定滑块标记的样子。

3，TickFrequency属性规定了沿着滑块的标记的间隔大小，缺省的状态是1，表明每个可能值都出现标记，如果你把值设置为3，则每三个可能值出现一个标记。

二、滑块的Min，Max，Value属性这三个属性和进程条的这三个属性差不多，Min，Max表示滑块的最小和最大值，Value 表示进程条的当前值。

三、滑块的LargeChange，SmallChange属性LargeChange规定了当用户用鼠标单击滑块时，滑块可移动的距离。

SmallChange规定了用户按左箭头或右箭头时滑块的移动距离。

§5 TabStrip控件（象笔记本书签或一组文件夹的标签）和ToolBar一样，选中TabStrip，按F4键进入属性窗口，双击（Custom）可以进入主要的设置窗口TabStrip属性窗口。

一、设置样式在TabStrip属性窗口里选择General标签，在Style列表框里选择Tabs或Buttons样式。

二、规定TabStrip的标题，ToolTips和1，在TabStrip属性窗口里选择Tabs标签，在Caption框里输入标题。

2，在TabStrip属性窗口里选择Tabs标签，在ToolTipText框里输入ToolTip。

三、增减标签总数在TabStrip属性窗口里选择Tabs标签，单击Insert Tab按钮增加标签，单击Remove Tab 按钮删除标签。

四、在TabStrip上显示图形1，在窗体里拖入一个ImageList控件，2，按F4打开属性窗口。

3，双击（Custom），打开ImageListCtrl属性窗口并选择Image标签。

4，单击Insert Picture，在现在图形的对话框里选择你想使用的位图或图标，然后单击打开按钮。

为每个你想添加图形的Tab按钮重复此步。

5，单击确定按钮。

现在ImageList里存储了你需要的图形。

6，选择你的TabStrip，进入TabStrip属性窗口并选择General标签，在ImageList列表框里选择ImageList1。

7，现在选择Tabs标签，单击紧挨Index框的向左或向右箭头以选择一个Tab序号。

在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。

8，单击确定按钮。

五、用户响应可用类似下面的代码来识别用户在哪一个项目上单击。

Private Sub TabStrip1_Click()Select Case TabStrip1.SelectedItem.IndexCase 1'Code to follow if user clicks the first tabCase 2'Code to follow if user clicks the second tabCase 3'Code to follow if user clicks the third tabEnd SelectEnd Sub六、在TabStrip上放置其它控件在用户选择了标签后，TabStrip要求你编写代码来显示或隐藏控件。

下面的代码上是一个TabStrip上有一个命令钮和一个选项钮的例子，当用户选择了第一个Tab时，选项钮出现，当用户选择了第二个Tab时，命令钮出现。

Private Sub TabStrip1_Click()Select Case TabStrip1.SelectedItem.IndexCase 1Command1.Visible = FalseOption1.Visible = TrueCase 2Command1.Visible = TrueOption1.Visible = FalseEnd SelectEnd Sub§6 Visual Basic的输入机制程序的基本操作就是数据的输入，数据处理和数据的输出。