Word控件工具箱的使用和实例(多选题制作)
2010-07-27 07:41:48   来源:IT部落窝   浏览:4246
-
  word中的控件工具箱是做什么的,如何使用?
  Word的控件工具箱在哪里呢?单击菜单视图——工具栏””项中点控件工具箱就可以调出控件工具箱。

  Word控件工具箱是做什么的呢?word控件工具箱主要在VBA中窗体内使用,每个控件都是一个工具模块,具体功能通过设置属性和写入VB代码来实现。有些控件也可以在word文档中使用。

  word控件工具箱其实就是VBA的可视化界面,需要掌握一定的VBA知识,懂一些代码,才能更好的驾驭Word的控件工具箱。

  举一个很简单的例子,打开word后,打开控件工具箱,双击命令按钮,页面上就会多出一
Commandbutton,双击“commandbutton”,在end sub上面加这样一行MsgBox
  保存退出VBA编辑器,单击一下控件工具箱上第一个钮退出设计模式,现在单击一下页面上的Commandbutton按钮,就会弹出一个提示框
  下面我们就利用Word的控件工具箱来制作一道多项选择题。下面是具体操作步骤:

  第一步,启动Word,新建一空白文档,输入计算机的软件系统包括( )”并根据情况设置好字体、字号和颜。

  第二步,依次单击菜单栏中的视图工具栏控件工具箱命令,在弹出的控件工具箱中选中复选框按钮 ,然后在文档拖拉出一个复选框。

  第三步,在拖拉出的复选框(checkbox1)上单击鼠标右键选择属性,打开属性对话框,将其中名称修改为“duoxt11”“Caption”后面的字符修改为题目相应选项字符(系统软件”),然后再设置“font”选项设置合适的字体、字号等。其他属性可采用默认值。

  第四步,将上面设置好的复选框复制三个,分别将名称修改为“duoxt12”“duoxt13”“duoxt14”“Caption”属性分别修改为应用软件杀毒软件工具软件

  第五步,选择控件工具箱命令按钮,在文档中添加一个按钮,和上面3中的操作一样将其名称修改为“duopd11”“caption”属性修改为判断”(也可以修改“font”属性来设置字体、字号等)。然后双击该按钮,进入“VisualBasic编辑器状态,将下述代码输入到Private Sub Private Sub duopd11_Click()End Sub代码中间,输入完成后,关闭窗口返回。
  If duoxt11.Value = True And duoxt12.Value = True And duoxt13.Value = False And duoxt14.Value = False Then
  MsgBox "恭喜你,选择正确。", vbOKOnly, "结果"
  Else
  If duoxt11.Value = True And duoxt12.Value = False And duoxt13.Value = False And duoxt14.Value = False Or duoxt11.Value = False And duoxt12.Value = True And duoxt13.
Value = False And duoxt14.Value = False Then
  MsgBox "选对了一个,还有一个,再努力一下就胜利了。", vbOKOnly, "提示"
  Else
  MsgBox "选择错误!还需要继续努力啊!", vbOKOnly, "提示"
  End If
  End If
  上述代码含义是如果选择第一项和第二项并且第三和第四项不选时,按下判断按钮则弹出恭喜你,选择正确消息框,如果仅仅选择了第一项或第二项则弹出选对了一个,还有一个再努力一下就胜利了。消息框,如果选择了第三或第四项中的任何一项都会弹出选择错误!还需要继续努力啊!”消息框。

  第六步,将命令按钮复制一份,将其名称修改为“duopd12”“caption”属性修改为重选
双击该按钮,进入“VisualBasic编辑器状态,将下述代码输入到Private Sub duopd12_Click()End Sub代码中间,输入完成后,关闭窗口返回。
  duoxt11.Value = False
  duoxt12.Value = False
  duoxt13.Value = False
  duoxt14.Value = False
控件的使用
  第七步,单击控件工具箱中的退出设计模式按钮关闭控件工具箱。这一步很重要,否则不能出现预期的效果。
  经过上面的不再,利用word控件工具箱就制作好了一个多项选题,制作好的效果如上图所示。

  大家制作好后,可以自己检测一下,自己勾选前面的框作出选择,系统就会弹出相应的对话框,根据选择的不同给出不同的提示。

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。