广东农工商职业技术学院广东农工商职业技术学院VB.NET程序设计程序设计任务八任务八 利用动画美化系统界面利用动画美化系统界面广东农工商职业技术学院广东农工商职业技术学院2 本章学习目标：本章学习目标：掌握掌握Timer控件的使用控件的使用掌握掌握VB.NET中的标准对话框的使用中的标准对话框的使用目标目标广东农工商职业技术学院广东农工商职业技术学院3 在应用程序的界面上增加动画将会使得应在应用程序的界面上增加动画将会使得应用程序更加美化，更吸引用户。用程序更加美化，更吸引用户。同时使用标准对话框将会使用户更方便的操同时使用标准对话框将会使用户更方便的操作系统。作系统。问题的引入问题的引入广东农工商职业技术学院广东农工商职业技术学院4 任务：任务：在登陆录窗体上设置一个能自动从左向右移动的标题任务任务标题能不断地从左向右移动标题能不断地从左向右移动广东农工商职业技术学院广东农工商职业技术学院5 任务：任务： 在职员窗体中增加一个显示员工照片的信息。当单击“照片”按钮时能从硬盘上选择相应的照片任务任务职员照片职员照片广东农工商职业技术学院广东农工商职业技术学院6 Timer控件称为计时器，是应用程序中控制控件称为计时器，是应用程序中控制定时事件的控件，通常用于设计按固定的时间定时事件的控件，通常用于设计按固定的时间间隔所执行的操作。间隔所执行的操作。Timer控件的相关知识控件的相关知识广东农工商职业技术学院广东农工商职业技术学院7属性描述Enabled设置Timer控件是否起作用即定时器事件是否触发，默认为FalseInterval设置定时事件的时间间隔，单位为毫秒，默认值为100毫秒。Timer 控件的常用属性、事件：控件的常用属性、事件：事件描述TickTick事件自动以Interval属性指定的时间间隔发生Timer控件的常用属性和事件控件的常用属性和事件广东农工商职业技术学院广东农工商职业技术学院8Timer控件实例控件实例 在窗体标签上动态显示当前的系统时间。在窗体标签上动态显示当前的系统时间。在窗体上添加一个在窗体上添加一个Timer和和Label控件，设置控件，设置Timer的的Enabled属性为属性为True。InterVal属性为属性为1000Private Sub Timer1_Tick(ByVal sender As Object,ByVal e As EventArgs) Handles _ Timer1.Ticklabel1.Text = DateTime.Now.ToString()End Sub广东农工商职业技术学院广东农工商职业技术学院9随堂练习随堂练习 在登陆录窗体上设置一个能自动从左向右移在登陆录窗体上设置一个能自动从左向右移动的标题动的标题广东农工商职业技术学院广东农工商职业技术学院10 PictureBox控件称为图片框控件，可显示多控件称为图片框控件，可显示多种格式的图片。种格式的图片。PictureBox控件的相关知识控件的相关知识属性描述Image用于设置图片框中显示的图片SizeMode用于设置图片框中显示的图片大小,有以下几种取值：Normal：图片位于PictureBox的左上角，若图片比Pictruebox大，则裁掉其余部分；StretchImage:调整图片的大小，以使其正好充满Picturebox；AutoSize:使Picturebox的大小自动地等于其所显示的图片的大小；CenterImage：使图片居中显示，如果图片比Picturebox大，则裁掉外边缘；Zoom:使图片填满整个Picturebox。PictureBox控件的常用属性、事件：控件的常用属性、事件：广东农工商职业技术学院广东农工商职业技术学院11 Image属性用于显示图片。该属性可以通过属性用于显示图片。该属性可以通过属性窗口设置，也可以在代码中设置属性窗口设置，也可以在代码中设置PictureBox控件图片的加载控件图片的加载通过属性设置只要通过单击该属性右侧的省略号，选通过属性设置只要通过单击该属性右侧的省略号，选择要显示的图片择要显示的图片 通过代码设置，使用通过代码设置，使用Image类的类的FromFile方法进行方法进行设置，其语法格式如下：设置，其语法格式如下：PictureBox1.Image = Image.FromFile(“图片文件路径名图片文件路径名”)广东农工商职业技术学院广东农工商职业技术学院12PictureBox控件实例控件实例 在窗体上添加一个在窗体上添加一个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广东农工商职业技术学院广东农工商职业技术学院13MessageBox消息框消息框 MessageBox 是一个预定义对话框，是一个预定义对话框，它将与应用程序相关的信息显示给用户它将与应用程序相关的信息显示给用户广东农工商职业技术学院广东农工商职业技术学院14MessageBox消息框消息框(续续) 调用调用 MessageBox 类的类的 Show 方法显示消息框方法显示消息框 public static DialogResult Show(string text, string caption, MessageBoxButtons Buttons, MessageBoxIcon icon); 其中参数其中参数text在消息框中显示的文本，在消息框中显示的文本，caption在标题在标题栏中显示的文本，栏中显示的文本，buttons指定在消息框中显示的哪些按钮。指定在消息框中显示的哪些按钮。icon指在消息框中显示的图标。指在消息框中显示的图标。例如例如:MessageBox.Show (“计算完成”, “计算器程序, MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk);广东农工商职业技术学院广东农工商职业技术学院15 指定若干常数，用以定义指定若干常数，用以定义 MessageBox 上将显示哪些按钮上将显示哪些按钮 MessageBoxButton枚举枚举成员名称成员名称说明说明AbortRetryIgnore该消息框包含该消息框包含“中止中止”、“重试重试”和和“忽略忽略”按钮按钮OK该消息框包含该消息框包含“确定确定”按钮按钮OKCancel 该消息框包含该消息框包含“确定确定”和和“取消取消”按按钮钮RetryCancel该消息框包含该消息框包含“重试重试”和和“取消取消”按按钮钮YesNo该消息框包含该消息框包含“是是”和和“否否”按钮按钮YesNoCancel该消息框包含该消息框包含“是是”、“否否”和和“取取消消”按钮按钮广东农工商职业技术学院广东农工商职业技术学院16指定定义要显示的图标MessageBoxIcon枚举枚举成员名称成员名称说明说明Asterisk 该消息框包含一个符号，该符号是由一个圆圈该消息框包含一个符号，该符号是由一个圆圈及其中的小写字母及其中的小写字母 i 组成的组成的Error该消息框包含一个符号，该符号是由一个红色该消息框包含一个符号，该符号是由一个红色背景的圆圈及其中的白色背景的圆圈及其中的白色 X 组成的组成的Exclamation该消息框包含一个符号，该符号是由一个黄色该消息框包含一个符号，该符号是由一个黄色背景的三角形及其中的一个感叹号组成的背景的三角形及其中的一个感叹号组成的Hand该消息框包含一个符号，该符号是由一个红色该消息框包含一个符号，该符号是由一个红色背景的圆圈及其中的白色背景的圆圈及其中的白色 X 组成的组成的广东农工商职业技术学院广东农工商职业技术学院17指定定义要显示的图标MessageBoxIcon枚举枚举(续续)成员名称成员名称说明说明Information该消息框包含一个符号，该符号是由一个圆圈该消息框包含一个符号，该符号是由一个圆圈及其中的小写字母及其中的小写字母 i 组成的组成的None消息框未包含符号消息框未包含符号Question 该消息框包含一个符号，该符号是由一个圆圈该消息框包含一个符号，该符号是由一个圆圈和其中的一个问号组成的和其中的一个问号组成的Stop该消息框包含一个符号，该符号是由一个红色该消息框包含一个符号，该符号是由一个红色背景的圆圈及其中的白色背景的圆圈及其中的白色 X 组成的组成的Warning该消息框包含一个符号，该符号是由一个黄色该消息框包含一个符号，该符号是由一个黄色背景的三角形及其中的一个感叹号组成的背景的三角形及其中的一个感叹号组成的广东农工商职业技术学院广东农工商职业技术学院18指定标识符以指示对话框的返回值DialogResult枚举枚举成员名称成员名称说明说明Abort对话框的返回值是对话框的返回值是 AbortCancel对话框的返回值是对话框的返回值是 CancelIgnore对话框的返回值是对话框的返回值是 IgnoreNo对话框的返回值是对话框的返回值是 NoNone从对话框返回了从对话框返回了 NothingOK对话框的返回值是对话框的返回值是 OKRetry对话框的返回值是对话框的返回值是 RetryYes对话框的返回值是对话框的返回值是 Yes广东农工商职业技术学院广东农工商职业技术学院19MessageBox对话框实例对话框实例 在窗体上添加一个在窗体上添加一个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广东农工商职业技术学院广东农工商职业技术学院20 OpenFileDialog 组件是一个预先配置的对组件是一个预先配置的对话框它与话框它与 Windows 操作系统所公开的操作系统所公开的“打开文打开文件件”对话框相同对话框相同可使用 ShowDialog 方法在运行时显示该对话框调用ShowDialog方法后，对于用户的选择会相应地返回一个DialogResult枚举值使用 Multiselect 属性可使用户选择多个要打开的文件OpenFileDialog控件控件广东农工商职业技术学院广东农工商职业技术学院21FileName属性用于获取用户所选择的文件(包含完整路径)Filter 属性设置当前文件名筛选字符串，该字符串确定出现在对话框的“文件类型”框中的选择设置Filter属性的格式为： 描述符1|过滤符1|描述符2|过滤符2| 其中描述符是将要显示在对话框”文件类型”下拉列表中的文字说明，可随意指定。过滤符是由通配符和实际文件扩展名组成的，如*.*表示所有文件。 Word文档|*.doc|文本文件|*.txt 表示在对话框中只显示扩展名为.doc、.txt文件。OpenFileDialog控件控件广东农工商职业技术学院广东农工商职业技术学院22OpenFileDialog控件实例控件实例 在窗体上添加一个在窗体上添加一个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 SubPrivate 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或广东农工商职业技术学院广东农工商职业技术学院23随堂练习随堂练习 如图所示，当单击如图所示，当单击”照片照片”按钮时，显示出打按钮时，显示出打开对话框，选择相应的图片后，将在图片框开对话框，选择相应的图片后，将在图片框中显示出所选择的图片中显示出所选择的图片广东农工商职业技术学院广东农工商职业技术学院24SaveFileDialog控件控件 Windows 窗体窗体 SaveFileDialog 组件是组件是一个预先配置的对话框，它与一个预先配置的对话框，它与 Windows 使用的使用的标准标准“保存文件保存文件”对话框相同对话框相同 使用使用 SaveFileDialog 组件时，必须编写文组件时，必须编写文件保存逻辑。件保存逻辑。 使用 ShowDialog 方法在运行时显示该对话框广东农工商职业技术学院广东农工商职业技术学院25FontDialog控件控件 FontDialog 是标准的是标准的 Windows“字体字体”对话框，对话框，用于公开系统上当前安装的字体用于公开系统上当前安装的字体 默认情况下，该对话框显示以下项默认情况下，该对话框显示以下项字体、字体样式和字体大小的列表框删除线和下划线等效果的复选框脚本的下拉列表以及字体外观的示例 若要显示字体对话框，可以调用若要显示字体对话框，可以调用ShowDialog 方方法法广东农工商职业技术学院广东农工商职业技术学院26FontDialog控件的常用属性控件的常用属性属性名称属性名称说明说明Font设置或获取选定的字体，包括字形、大小和效果设置或获取选定的字体，包括字形、大小和效果Color设置或获取选定的字体颜色设置或获取选定的字体颜色ShowEffects设置是否显示设置是否显示“效果效果”和和“删除线删除线”、“下划线下划线”区域区域ShowColor设置是否显示设置是否显示“颜色颜色”下拉列表框下拉列表框ShowApply设置是否显示设置是否显示“应用应用”按钮按钮广东农工商职业技术学院广东农工商职业技术学院27ColorDialog控件控件 ColorDialog控件允许用户从调色板选择颜色以控件允许用户从调色板选择颜色以及将自定义颜色添加到该调色板及将自定义颜色添加到该调色板“颜色颜色”对话框允许使用系统提供的对话框允许使用系统提供的“调色板调色板”自定自定义颜色。而义颜色。而“字体字体”对话框不行对话框不行Color属性用于设置或获取所选择的颜色属性用于设置或获取所选择的颜色广东农工商职业技术学院广东农工商职业技术学院28实例实例 在窗体上添加一个在窗体上添加一个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广东农工商职业技术学院广东农工商职业技术学院29小结小结 本任务学习了本任务学习了Timer控件和标准对话控件和标准对话框控件的使用框控件的使用广东农工商职业技术学院广东农工商职业技术学院30 从数据库中得到图片文件的路从数据库中得到图片文件的路径，然后在径，然后在PictureBox上显示出图片上显示出图片习题习题