任务八利用动画美化系统界面.ppt

VB.NET程序设计,任务八 利用动画美化系统界面,本章学习目标： 掌握Timer控件的使用 掌握VB.NET中的标准对话框的使用,目标,在应用程序的界面上增加动画将会使得应用程序更加美化，更吸引用户。 同时使用标准对话框将会使用户更方便的操作系统。,问题的引入,任务： 在登陆录窗体上设置一个能自动从左向右移动的标题,任务,标题能不断地从左向右移动,任务： 在职员窗体中增加一个显示员工照片的信息。当单击“照片”按钮时能从硬盘上选择相应的照片,任务,职员照片,Timer控件称为计时器，是应用程序中控制定时事件的控件，通常用于设计按固定的时间间隔所执行的操作。,Timer控件的相关知识,Timer 控件的常用属性、事件：,Timer控件的常用属性和事件,Timer控件实例,在窗体标签上动态显示当前的系统时间。,在窗体上添加一个Timer和Label控件，设置Timer的Enabled属性为True。InterVal属性为1000,Private Sub Timer1_Tick(ByVal sender As Object,ByVal e As EventArgs) Handles _ Timer1.Tick label1.Text = DateTime.Now.ToString() End Sub,随堂实训,在登陆录窗体上设置一个能自动从左向右移动的标题,PictureBox控件称为图片框控件，可显示多种格式的图片。,PictureBox控件的相关知识,PictureBox控件的常用属性、事件：,Image属性用于显示图片。该属性可以通过属性窗口设置，也可以在代码中设置,PictureBox控件图片的加载,通过属性设置只要通过单击该属性右侧的省略号，选择要显示的图片,通过代码设置，使用Image类的FromFile方法进行设置，其语法格式如下： PictureBox1.Image = Image.FromFile(“图片文件路径名”),PictureBox控件实例,在窗体上添加一个Button和一个PictureBox控件，当单击Button控件时在PictureBox控件中显示C盘的leaf.gif文件,Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click PictureBox1.Image = Image.FromFile(“c:leaf.gif”) End Sub,MessageBox消息框,MessageBox 是一个预定义对话框，它将与应用程序相关的信息显示给用户,MessageBox消息框(续),调用 MessageBox 类的 Show 方法显示消息框 public static DialogResult Show(string text, string caption, MessageBoxButtons Buttons, MessageBoxIcon icon); 其中参数text在消息框中显示的文本，caption在标题栏中显示的文本，buttons指定在消息框中显示的哪些按钮。icon指在消息框中显示的图标。 例如:,MessageBox.Show (“计算完成”, “计算器程序“, MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk);,指定若干常数，用以定义 MessageBox 上将显示哪些按钮,MessageBoxButton枚举,指定定义要显示的图标,MessageBoxIcon枚举,指定定义要显示的图标,MessageBoxIcon枚举(续),指定标识符以指示对话框的返回值,DialogResult枚举,MessageBox对话框实例,在窗体上添加一个Button和TextBox控件，当单击Button显示一个对话框，在TextBox上显示用户在对话框上的选择,Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click Dim dr As DialogResult dr = MessageBox.Show (“计算完成”, “计算器程序“, _ MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk); If dr = DialogResult.OK Then TextBox1.Text = “确定” ElseIf dr = DialogResult.Cancel Then TextBox1.Text = “取消” End If End Sub,OpenFileDialog 组件是一个预先配置的对话框它与 Windows 操作系统所公开的“打开文件”对话框相同 可使用 ShowDialog 方法在运行时显示该对话框 调用ShowDialog方法后，对于用户的选择会相应地返回一个DialogResult枚举值 使用 Multiselect 属性可使用户选择多个要打开的文件,OpenFileDialog控件,FileName属性用于获取用户所选择的文件(包含完整路径) Filter 属性设置当前文件名筛选字符串，该字符串确定出现在对话框的“文件类型”框中的选择 设置Filter属性的格式为： 描述符1|过滤符1|描述符2|过滤符2| 其中描述符是将要显示在对话框”文件类型”下拉列表中的文字说明，可随意指定。过滤符是由通配符和实际文件扩展名组成的，如*.*表示所有文件。 Word文档|*.doc|文本文件|*.txt 表示在对话框中只显示扩展名为.doc、.txt文件。,OpenFileDialog控件,OpenFileDialog控件实例,在窗体上添加一个Button、TextBox、OpenFileDialog控件，当单击Button显示一个打开对话框，在TextBox上显示用户所选择的文件名及路径（参考代码如下：）,Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click Dim dr As DialogResult dr = OpenFileDialog1.ShowDialog() If dr = DialogResult.OK Then TextBox1.Text = OpenFileDialog1.FileName End If End Sub,Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Me.TextBox1.Text = Me.OpenFileDialog1.FileName End If End Sub,或,随堂实训,如图所示，当单击”照片”按钮时，显示出打开对话框，选择相应的图片后，将在图片框中显示出所选择的图片,SaveFileDialog控件,Windows 窗体 SaveFileDialog 组件是一个预先配置的对话框，它与 Windows 使用的标准“保存文件”对话框相同 使用 SaveFileDialog 组件时，必须编写文件保存逻辑。 使用 ShowDialog 方法在运行时显示该对话框,FontDialog控件,FontDialog 是标准的 Windows“字体”对话框，用于公开系统上当前安装的字体 默认情况下，该对话框显示以下项 字体、字体样式和字体大小的列表框 删除线和下划线等效果的复选框 脚本的下拉列表以及字体外观的示例 若要显示字体对话框，可以调用ShowDialog 方法,FontDialog控件的常用属性,ColorDialog控件,ColorDialog控件允许用户从调色板选择颜色以及将自定义颜色添加到该调色板 “颜色”对话框允许使用系统提供的“调色板”自定义颜色。而“字体”对话框不行 Color属性用于设置或获取所选择的颜色,实例,在窗体上添加一个Button、TextBox、FontDialog、ColorDialog控件，当单击Button分别显示“字体”和“颜色”对话框，在TextBox上的文本字体和前景色也改变,Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click Dim dr As DialogResult dr = FontDialog1.ShowDialog() If dr = DialogResult.OK Then TextBox1.Font= Font