巧制“任务――帮助”小工具
【摘要】用Visual Basic编制信息技术课堂上学生使用的一个简单而又实用的小工具，该工具可以让学生知晓课堂上的每一个任务安排，并为学生提供重要操作帮助演示功能，解决信息技术课堂上学生差异性给教学带来的困难，同时培养学生自主学习能力。
【关键词】信息技术课堂Visual Basic 任务 帮助
信息技术课堂教学往往采用任务驱动的教学模式，在教学过程中完成一个具体任务或作品为线索，把教学内容巧妙地隐含在任务之中。学生在完成一个个小任务时，遇到问题通过自主探究学习，或通过同学、老师的点拨，解决问题。信息技术课堂上学生的差异性极其明显的，这对教师的教学制造了很大的困难。有的学生已经完成一个小任务，等待老师布置下一个任务而无所事事，有些学生却为找不到方法而在互相讨论问题，甚至有的学生通过学生、教师讲解演示还不能掌握操作方法。
通过教学实践，发现把“任
务――帮助”做成类似浮动面板的样
式来说明今天任务安排，以及对重要
操作提供帮助演示功能，能起到很好
的教学效果。下面让我们用Visual
Basic 制作如图 “任务----帮助” 实
用小工具的具体过程。
一、窗口以合适大小总显示在所有窗口最前
1、 因“任务――帮助”窗口过大会影响到操作软件显示区域，且使窗口固定大小不能改变，我们在窗体属性窗口中设置高度Heiht=2220，宽度Ｗidth ＝4020，设置BorderStyle 属性为4—Fixed Tool Window。
2、在代码编辑窗口输入总显示在所有窗口最前代码：
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long,
ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1 ' 保持窗口大小
Private Const SWP_NOMOVE& = &H2 ' 保持窗口位置
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ' 将窗口设为总在最前
End Sub
二、任务选项卡的制作
1、由于选项卡部件（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 Byte
Dim FileName As Long
If Dir(Environ("windir") & "\TABCTL32.OCX", vbHidden) = "" Then '先判断系统是否存在TABCTL32.OCX 控件，不存在则执行
RunEXE = LoadResData(101, "CUSTOM") ' 资源文件里的标示号为：101 类型为"CUSTOM" 的文件
FileName = FreeFile '转换为自由文件
Open "c:\TABCTL32.OCX" For Binary As #FileName '以二进制方式输出到运行目录
Put #1, , RunEXE '输出数据
Close #FileName '关闭文件
Shell "regsvr32 " & "c:\TABCTL32.OCX /s", vbNormalFocus '静默方式注册控件 End If
Form1.Show '启动主程序
End Sub
第三步：把工程属性里的启动对象设置成Sub Main。
三、调用外部帮助演示文件
1、先把重要操作的帮助演示动画做成flash 或用屏幕录像专家把屏幕上的操作过程录制成FLASH 动画、WMV 动画、A VI 动画或者自播放的EXE 动画。
2、单击工具箱的CommandButton 控件，并在窗体适当位置拉出一个“帮助”按钮。点击 “帮助”按钮运行外部文件代码：
Private Sub Command1_Click()
Shell "e:\SAFlashPlayer.exe e:\excelfx1.swf ", vbNormalFocus
„ e:\excelfx1.swf为帮助演示文件路径及文件名，e:\SAFlashPlayer.exe为打开演示文件的软件路径及文件名
End Sub
通过以上的步骤可以制作出适合学生课堂上使用的“任务――帮助” 小工具，但使用时要注意，在上课前要把外部演示的文件和运行该文件的软件发送到你指定的目录e:\下，以保证“帮助”的正常使用。因小工具运行时要释放文件，
部分杀毒软件认为HEUR/Malware.QVM.Gen木马而不运行，我们在杀毒软件中把它设定为可信任即可。
巧制“任务――帮助”小工具
【摘要】用Visual Basic编制信息技术课堂上学生使用的一个简单而又实用的小工具，该工具可以让学生知晓课堂上的每一个任务安排，并为学生提供重要操作帮助演示功能，解决信息技术课堂上学生差异性给教学带来的困难，同时培养学生自主学习能力。
【关键词】信息技术课堂Visual Basic 任务 帮助
信息技术课堂教学往往采用任务驱动的教学模式，在教学过程中完成一个具体任务或作品为线索，把教学内容巧妙地隐含在任务之中。学生在完成一个个小任务时，遇到问题通过自主探究学习，或通过同学、老师的点拨，解决问题。信息技术课堂上学生的差异性极其明显的，这对教师的教学制造了很大的困难。有的学生已经完成一个小任务，等待老师布置下一个任务而无所事事，有些学生却为找不到方法而在互相讨论问题，甚至有的学生通过学生、教师讲解演示还不能掌握操作方法。
通过教学实践，发现把“任
务――帮助”做成类似浮动面板的样
式来说明今天任务安排，以及对重要
操作提供帮助演示功能，能起到很好
的教学效果。下面让我们用Visual
Basic 制作如图 “任务----帮助” 实
用小工具的具体过程。
一、窗口以合适大小总显示在所有窗口最前
1、 因“任务――帮助”窗口过大会影响到操作软件显示区域，且使窗口固定大小不能改变，我们在窗体属性窗口中设置高度Heiht=2220，宽度Ｗidth ＝4020，设置BorderStyle 属性为4—Fixed Tool Window。
2、在代码编辑窗口输入总显示在所有窗口最前代码：
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long,
ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1 ' 保持窗口大小
Private Const SWP_NOMOVE& = &H2 ' 保持窗口位置
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ' 将窗口设为总在最前
End Sub
二、任务选项卡的制作
1、由于选项卡部件（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 Byte
Dim FileName As Long
If Dir(Environ("windir") & "\TABCTL32.OCX", vbHidden) = "" Then '先判断系统是否存在TABCTL32.OCX 控件，不存在则执行
RunEXE = LoadResData(101, "CUSTOM") ' 资源文件里的标示号为：101 类型为"CUSTOM" 的文件
FileName = FreeFile '转换为自由文件
Open "c:\TABCTL32.OCX" For Binary As #FileName '以二进制方式输出到运行目录
Put #1, , RunEXE '输出数据
Close #FileName '关闭文件
Shell "regsvr32 " & "c:\TABCTL32.OCX /s", vbNormalFocus '静默方式注册控件 End If
Form1.Show '启动主程序
End Sub
第三步：把工程属性里的启动对象设置成Sub Main。
三、调用外部帮助演示文件
1、先把重要操作的帮助演示动画做成flash 或用屏幕录像专家把屏幕上的操作过程录制成FLASH 动画、WMV 动画、A VI 动画或者自播放的EXE 动画。
2、单击工具箱的CommandButton 控件，并在窗体适当位置拉出一个“帮助”按钮。点击 “帮助”按钮运行外部文件代码：
Private Sub Command1_Click()
Shell "e:\SAFlashPlayer.exe e:\excelfx1.swf ", vbNormalFocus
„ e:\excelfx1.swf为帮助演示文件路径及文件名，e:\SAFlashPlayer.exe为打开演示文件的软件路径及文件名
End Sub
通过以上的步骤可以制作出适合学生课堂上使用的“任务――帮助” 小工具，但使用时要注意，在上课前要把外部演示的文件和运行该文件的软件发送到你指定的目录e:\下，以保证“帮助”的正常使用。因小工具运行时要释放文件，
部分杀毒软件认为HEUR/Malware.QVM.Gen木马而不运行，我们在杀毒软件中把它设定为可信任即可。