12.4-Visual Basic语言工具条应用实例（教案）-《程序设计基础Visual Basic 语言》同步教学（电工版第五版）

课程

《程序设计基础Visual Basic 语言》

一体化     理论

章节（课题）及内容

Visual Basic语言工具条应用实例

班级日期

中职

2024.04

授课方式

讲授与任务驱动相结合

课时

1

作业题数

1

拟用时间

40分钟

使学生理解以下理论知识：

1. 理解工具条控件在Visual Basic中的应用场景和作用。
2. 掌握如何添加和定制工具条控件及按钮。
3. 学会处理工具条按钮的事件和功能实现。

教学资源准备

多媒体设备

课本教材

学生练习素材

1. 工具条控件的添加和定制方法。
2. 工具条按钮的事件处理和功能实现。

1. 如何通过工具条控件实现用户界面功能。
2. 如何处理工具条按钮的事件和功能实现。

教学方法

讲授法、任务驱动法、演示法、体验探究法等。

1. 实例演示结合讲解。
2. 互动式学习和实践操作。
3. 课堂练习和作业。

课前导入

课前导入： 介绍工具条控件是Visual Basic中常用的用户界面控件，用于提供快捷访问功能的按钮集合。引导学生思考工具条控件的作用和应用场景。

2分钟

讲授新课

讲授新课：

1. 工具条控件的基本属性和方法。
2. 添加工具条按钮和控件。
3. 处理工具条按钮的事件和功能实现。

代码例子：

vb

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim toolStrip As New ToolStrip()

    Dim buttonOpen As New ToolStripButton("打开文件")

    AddHandler buttonOpen.Click, AddressOf ButtonOpen_Click

    toolStrip.Items.Add(buttonOpen)

    Dim buttonSave As New ToolStripButton("保存文件")

    AddHandler buttonSave.Click, AddressOf ButtonSave_Click

    toolStrip.Items.Add(buttonSave)

    Me.Controls.Add(toolStrip)End Sub

Private Sub ButtonOpen_Click(sender As Object, e As EventArgs)

    ' 打开文件功能实现

10分钟