|
2). 在Text框里输入想显示在状态条面板里的文本。 3). 如果想加入图形，单击Browse按钮打开一个图形选择对话框，选择想加入的图形，然后单击打开按钮。 4). 最后按确定按钮。 5). 用代码显示的方式是：StatusBar1.Panels(x).Text = "New string to appear" 6). 编写代码 如果是一个单面板状态条，当用户单击状态条时，只需用下面的事件过程来响应： Private Sub StatusBar1_Click() End Sub 如果是一个多面板状态条，就需要鉴别用户单击的是哪一个面板，可用下面的事件过程来识别用户所单击的面板： Private Sub StatusBar1_PanelClick(ByVal Panel As Panel) Select Case Panel.Index Case 1 'Code to follow if user clicks the first panel Case 2 'Code to follow if user clicks the second panel Case 3 'Code to follow if user clicks the third panel End Select End Sub 2．创建工具栏 （1）建立工具条 1).在工具箱里单击工具条图标，拖到窗体的任何位置，Visual Basic自动将ToolBar移到顶部。 2).按F4键打开属性窗口。 3).双击（Custom），打开ToolBar属性窗口。 4). 选择Buttons标签。 5). 单击Insert按钮，Visual Basic就会在你的工具条上显示一个空按钮，现在为你的每一个按钮重复这一步。 6). 单击确定按钮。 如果想把按钮分组，首先生成一个分隔的按钮，再在刚才提到的对话框里将这个按钮的Style属性改为3-Separator。 （2） 为工具条增加图画 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步。 12). 单击确定按钮，现在Visual Basic就会在工具条上显示精美的图形了。 2.6 Visual Basic的输入机制 程序的基本操作就是数据的输入，数据处理和数据的输出。Visual Basic可中用于输入的控件主要有：文本框Text Box、复选框Check Box、选项按钮Option Button、列表框List Box、组合框Combo Box、滚动条Scroll Bar、通用对话框控件。还有一个函数叫InputBox函数，也可用于数据的输入。 1. 通过文本框输入数据 只要取得文本框的Text属性就可以对其进行操作了。下面的代码可将Text1文本框的正文变成大写输出至Text2文本框。 Private Sub Form_Click () Text2.Text = UCase(Text1.Text) End Sub 2. 通过复选框和选项按钮输入数据 只要检测到Check Box和Radio Button的Value属性值就可以知道它们是否被选上了。 3. 通过列表框和组合框输入数据 (1) 列表框List Box和组合框Combo Box的不同 它们在Windows的Open，Save As对话框里最为常见。组合框又包括三种类型，这三种类型要在它的Style属性里设置。列表框仅仅把可以选择的项目列出来，而组合框里有的类型可以允许用户输入数据。 (2) 列表项目的增减 使用AddItem，RemoveItem语句可以增减列表项目。通常将项目增减的语句放入Form_Load事件里。 ListBoxName. AddItem item ComboBoxName. AddItem item item是新项目名称，必须是字符串类型，非字符串类型可通过Str函数或Format函数来转换。转列表框，组合框的每一项目都有一个Index值，第一个项目的Index值是0，第二个是1，依此类推。删除项目可通过删除其Index值来实现。 |
