论文部分内容阅读
● 课件设计
导学课件是课堂教学的重要组成部分。内容上,要根据课堂教学整体设计的需要进行安排;形式上,是在保持前置的恰当大小的窗口中,放置学习内容,使学生在操作其他软件的同时,方便查看课件内容。在课件窗口上也可以放置最小化按钮,在需要时对窗口进行最小化和还原。
● 导学课件的几个制作经验
1.制作工具软件选择
(1)屏幕录制和编辑
在信息技术课教学中,软件操作是重要的内容之一。将操作过程用屏幕录制软件录制和编辑好,放置于课件中。学生可以根据自己的实际情况,选择自己生疏的内容进行重复学习。笔者选用的屏幕录制软件是Camtasia。
(2)媒体整合
PPT是应用非常广泛的演示文稿软件,而Storyline是近年来另一款流行的多媒体整合工具软件,它有着许多的优点,如交互设计、图层功能等。使用者可以根据自己课件的功能设计及个人喜好加以选用。
2.在VB中播放PPT
要做到笔者前述的窗口前置,可以用VB制作课件播放的窗口,然后通过程序实现。而在VB中播放PPT,需要用到Windows的API函数。这里,笔者将经过验证的使用方法介绍如下:
在VB中建立一个窗口,命名为frmSS,其中的代码为:
Option Explicit
Const APP_NAME = "PowerPoint in VB window"
Public oPPTApp As Object
Public oPPTPres As Object
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Sub Form_Load()
frmSS.ScaleMode = 2 ’point 模式
Dim screenClasshWnd As Long
On Error Resume Next
Set oPPTApp = CreateObject("PowerPoint.Application")
If Not oPPTApp Is Nothing Then
Set oPPTPres = oPPTApp.Presentations.Open(App.Path
导学课件是课堂教学的重要组成部分。内容上,要根据课堂教学整体设计的需要进行安排;形式上,是在保持前置的恰当大小的窗口中,放置学习内容,使学生在操作其他软件的同时,方便查看课件内容。在课件窗口上也可以放置最小化按钮,在需要时对窗口进行最小化和还原。
● 导学课件的几个制作经验
1.制作工具软件选择
(1)屏幕录制和编辑
在信息技术课教学中,软件操作是重要的内容之一。将操作过程用屏幕录制软件录制和编辑好,放置于课件中。学生可以根据自己的实际情况,选择自己生疏的内容进行重复学习。笔者选用的屏幕录制软件是Camtasia。
(2)媒体整合
PPT是应用非常广泛的演示文稿软件,而Storyline是近年来另一款流行的多媒体整合工具软件,它有着许多的优点,如交互设计、图层功能等。使用者可以根据自己课件的功能设计及个人喜好加以选用。
2.在VB中播放PPT
要做到笔者前述的窗口前置,可以用VB制作课件播放的窗口,然后通过程序实现。而在VB中播放PPT,需要用到Windows的API函数。这里,笔者将经过验证的使用方法介绍如下:
在VB中建立一个窗口,命名为frmSS,其中的代码为:
Option Explicit
Const APP_NAME = "PowerPoint in VB window"
Public oPPTApp As Object
Public oPPTPres As Object
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Sub Form_Load()
frmSS.ScaleMode = 2 ’point 模式
Dim screenClasshWnd As Long
On Error Resume Next
Set oPPTApp = CreateObject("PowerPoint.Application")
If Not oPPTApp Is Nothing Then
Set oPPTPres = oPPTApp.Presentations.Open(App.Path