新Visual Basic.NET程序设计案例教程 电子教案 孙街亭 第6章 Windows高级界面.pptVIP

第六章 Windows高级界面设计 6.1 高级窗体应用 知识点1 Control类 定义控件的基类，控件是带有可视化表示形式的组件。 Control 类实现向用户显示信息的类所需的最基本功能。它处理用户通过键盘和指针设备所进行的输入。它还处理消息路由和安全。虽然它并不实现绘制，但是它定义控件的边界（其位置和大小）。它提供窗口句柄 (hWnd)。 知识点2 Form 类 表示组成应用程序的用户界面的窗口或对话框。 Form 是应用程序中所显示的任何窗口的表示形式。Form 类可用于创建标准窗口、工具窗口、无边框窗口和浮动窗口。还可以使用 Form 类创建模式窗口，例如对话框。 一种特殊类型的窗体，即多文档界面 (MDI) 窗体可包含其他称为 MDI 子窗体的窗体。通过将 IsMdiContainer 属性设置为 true 来创建 MDI 窗体。通过将 MdiParent 属性设置为将包含 MDI 子窗体的 MDI 父窗体来创建 MDI 子窗体。 知识点3 TrackBar 控件 TrackBar 控件有两部分：滚动块（又称为滑块）和刻度线。滚动块是可以调整的部分，其位置与 Value 属性相对应。刻度线是按规则间隔分隔的可视化指示符。 知识点4 Timer控件 Windows 窗体 Timer 组件具有一个 Interval 属性，该属性指定一个计时器事件与下一个计时器事件之间间隔的毫秒数。除非该组件被禁用，否则计时器会以大致相等的时间间隔持续接收 Tick 事件。 任务1 透明窗体 任务1 解析 Dim temp As Integer Dim flag As Boolean Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll Timer1.Interval = 10 * TrackBar1.Value End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick If flag = False Then temp = temp + 1 Me.Opacity = temp / 100 If Me.Opacity = 1 Then Timer1.Enabled = False flag = True End If Else temp = temp - 1 Me.Opacity = temp / 100 If Me.Opacity = 0 Then Timer1.Enabled = False flag = False End If End If Label1.Text = 窗体不透明度： CStr(temp) % End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True End Sub Private Sub Form1_FormClosing (ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Timer1.Enabled = True If MsgBox(真的关闭窗体吗？, MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then e.Cancel = False Else Timer1.Enabled = False Me.Opacity = 1 temp = 100 flag = True e.Can