任务八利用动画美化系统界面.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.Ticklabel1.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.ClickPictureBox1.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.ClickDim dr As DialogResultdr=MessageBox.Show(“计算完成”,“计算器程序,_ MessageBoxButtons.OKCancel,MessageBoxIcon.Asterisk);If dr=DialogResult.OK Then TextBox1.Text=“确定”ElseIf dr=DialogResult.Cancel Then TextBox1.Text=“取消”End IfEnd 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 IfEnd 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=FontDialog1.Font End If dr=ColorDialog1.ShowDialog()If dr=DialogResult.OK Then TextBox1.ForeColor=ColorDialog1.Color End IfEnd Sub,小结,本任务学习了Timer控件和标准对话框控件的使用,从数据库中得到图片文件的路径，然后在PictureBox上显示出图片,习题,
