想自学教程的朋友,就来教程巴巴。
教程巴巴
当前位置: 主页 > 图文 > 网络编程教程 >

计算机等级考试二级VB基础教程(8)

发布时间:2013-12-27 17:19 点击:
分享到:
【评论本教程】 【挑错本教程】
------分隔线----------------------------

  3) Visible 可见属性
   对暂时不用的菜单, 如果把Visible属性设为假,则菜单根本不会出现在屏幕上。这样做比把Enabled属性设为假显得更加干脆!
  4) Index属性
  可以生成菜单命令数组,用索引号区分开。例如向File菜单中添加一系列最近打开的文件名。添加菜单可用Load方法。以上属性可以在运行时设置,形成动态的菜单的情况。
  例如:
   mnuUndo.Enabled = False
   mnuProperty.Visible = False
   还可以改变Caption等属性。
   mnuUndo.Caption = “Redo”
3. 生成弹出式菜单(或浮动菜单)
  几乎每个Windows应用程序都提供弹出式菜单,用户可以右键单击窗体或控件取得这个菜单。弹出式菜单也属于普通菜单,只是不固定在窗体上,而是可以在任何地方显示。
  弹出式菜单用PopupMenu方法调用。假设已经用菜单编辑器生成了名为mnuedit的菜单,则可以在MouseUp事件加入如下代码就可以生成弹出式菜单:
  If Button = 2 Then PopupMenu mnuedit
2.5 设计状态条、工具栏、进程条等
1.创建状态条
  选中状态条,按F4键进入属性窗口,双击(Custom)可以进入主要的设置窗口SBarCtrl属性窗口。
  (1) 选择面板形状
  在SBarCtrl属性窗口里选择General标签,在Style列表框里选择多面板(缺省形式)或单面板简单文本形式。
  (2) 添加或删除状态条面板
    在SBarCtrl属性窗口里选择Panels标签,单击Insert按钮添加一个面板,或单击Remove按钮删除一个面板。
  (3) 在单面板里显示文本
     在SBarCtrl属性窗口里选择General标签,在SimpleText框里输入想显示在状态条面板里的文本。用代码显示的方式是:
  StatusBar1.SimpleText = "New string to appear"
  (4) 在多面板里显示文本或图形
  1). 在SBarCtrl属性窗口里选择Panels标签,用Index旁的按钮选择面板序号。
  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就会在工具条上显示精美的图形了。
相关文章