巧制信息技术课堂“任务――帮助”小工具.docxVIP

巧制信息技术课堂“任务一一帮助”小工具 巧制“任务一一帮助”小工具 【摘要】用Visual Basic编制信息技术课堂上学生使用的一个简单而又 实用的小工具，该工具可以让学生知晓课堂上的每一个任务安排，并为学 生提供重要操作帮助演示功能，解决信息技术课堂上学牛差异性给教学带 来的困难，同时培养学生自主学习能力。 【关键词】信息技术课堂Visual Basic任务帮助 信息技术课堂教学往往采用任务驱动的教学模式，在教学过程中完成 一个具体任务或作品为线索，把教学内容巧妙地隐含在任务Z屮。学生在 完成一个个小任务时，遇到问题通过自主探究学习，或通过同学、老师的 点拨，解决问题。信息技术课堂上学生的差异性极其明显的，这对教师的 教学制造了很大的困难。有的学生已经完成一个小任务，等待老师布置下 一个任务而无所事事，冇些学生却为找不到方法而在互相讨论问题，甚至 有的学生通过学生、教师讲解演示还不能掌握操作方法。 通过教学实践，发现把“任 务一一帮助”做成类似浮动面板的样 式来说明今天任务安排，以及对重要 操作提供帮助演示功能，能起到很好 的教学效果。下面让我们用Visual Basic制作如图“任务--帮助”实 用小工具的具体过程。 一、 窗口以合适大小总显示在所有窗口最前 1、 因“任务一一帮助”窗口过大会影响到操作软件显示区域，且使 窗口固定大小不能改变，我们在窗体属性窗口中设置高度Heiht二2220,宽 度Width=4020,设置 BorderStyle 属性为 4一Fixed Tool Windowo 2、 在代码编辑窗口输入总显示在所有窗口最前代码： Option Explicit Private Declare Function SetWindowPos Lib user32 (ByVai hwnd As Long, By Vai hWn d Insert After As Long, By Vai x As Long, By Vai y As Long, By Vai ex As Long, By Vai cy As Long, By Vai wFlags As Long) As Long 1 Private Const HWND_TOPMOSTamp; = -1 #39;将窗口置于列表顶部,并位于任何最顶部窗口的前ifil Private Const SWP_NOSIZEamp; = amp;Hl #39;保持窗 口大小 Private Const SWP_NOMOVEamp; = amp;H2 #39;保持窗 口位置 Private Sub Form_Load() SetWindowPos Me.hwnd, HWND_TOPMOST 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE #39;将窗口设为总在最前 End Sub 二、 任务选项卡的制作 由于选项卡部件(SSTab控件)不在标准的工具箱中，而是在文件 TABCTL32.OCX中，因此，你必须把该控件的.OCX文件添加到工程中。方法 是：在工具箱空口处单击鼠标右键，在弹出的菜单中选择“部件Microsoft Tabbed Dialog Control选项我们看到工具箱屮出现“SSTab控件。单击工具 箱的SSTab控件，并在窗体拉出一个矩形框，就能看到选项卡出现。 在选项卡的属性页设置选项卡的标签个数和名称，女口： Tab Count和 TabsPerRow为5, TabCaption分别为摘耍、任务一、任务二、任务三和拓 展。我们使用工具箱中Label和TextBox控件在每一个选项卡上添加任务说 明文字。 2、由于小工具生成的exe文件要在无VB环境中运行，需要 TABCTL32.OCX控件才能支持运行，而采用打包方法学生使用时不方便，现 把程序所需控件加入VB资源编辑器，在Sub Main事件释放，再运行主程 序，打造一个绿色程序。第一步：把我们程序里所用到的控件 TABCTL32.OCX先加入至VB的资源编辑器中。如果VB资源编辑器没有被加 载，请单击“外接程序%选取外接管理器“启动外接管理器，然后选 中“VB6 资源编辑器”，点击“确定”退出外接管理器。此吋，可以在 工具条中看到资源编辑器的绿色图标，单击它就可以启动VB资源编辑器 了。在VB的资源编辑器中添加自定义资源，点一下问号旁边最近的一个 按钮，把TABCTL32.OCX控件添加进去，资源编辑器就会出现一个“CUSTOM ” 目录树，添加进去的文件序号从101开始。 第二步：在加载程序窗口之前释放，必须在Sub Main里填写代码，Sub Main是模块里的语句，所以我们先建立一个模块，然后写入以下代码： Sub Main() Dim RunEXE() As By