第七章用户界面设计.ppt

第七章 用户界面设计,7.1 用户界面概述 7.2 菜单设计 7.3 对话框设计 7.4 工具栏 7.5 综合应用 7.6 自主学习鼠标和键盘,本章目录,本章目录,7.1 用户界面概述,例7.1 记事本程序,菜单：下拉式菜单、弹出式菜单（快捷菜单） 对话框：通用对话框、自定义对话框 工具栏,本章目录,7.1 用户界面概述,界面设计预定义类,System.Windows.Forms命名空间,7.2 菜单设计,MenuStrip：下拉式菜单 ContextMenuStrip：弹出式菜单,本章目录,重要属性： (1)Text 热键 &热键字符 输入：新建(&N) 显示：新建(N) N为热键 分隔符 输入：- (2) ShortCut 设置快捷键。 (3) Checked 控制菜单项左边是否显示“” 重要事件： 菜单项的事件Click 为菜单项编写程序,本章目录,例7.2 设计例7.1的程序,本章目录,下拉式菜单的建立过程： 在窗体上放置一个MainMenu控件 设计菜单 设置菜单项的属性 编写菜单项的事件过程,本章目录,弹出式菜单的建立过程： 在窗体上放置一个ContextMenuStrip控件 设计菜单 设置菜单项的属性 建立弹出式菜单与文件框之间的关联 编写菜单项的事件过程 一般与下拉式菜单中的菜单项共享事件过程 ' 修改“新建”菜单项的事件过程（假定弹出式菜单中“新建”菜单项名称为PopFileNew） Sub FileNew_Click( ) Handles FileNew.Click, PopFileNew.Click TextBox1.Text = “ TextBox1.Focus() End Sub,7.3 对话框设计, 通用对话框 自定义对话框,不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作。 如果想要实现这些功能则需要编程实现。 打开对话框的方法： ShowDialog 例如： OpenFileDialog1.ShowDialog 返回值： Windows.Forms.DialogResult.OK Windows.Forms.DialogResult.Cancel,本章目录,1. 打开文件对话框,控件：OpenFileDialog 重要属性 : (1) FileName包含路径，Title不包含路径 (2) Filter 确定所显示文件的类型 例如：Text Files|*.txt|所有文件|*.* 显示文本文件和所有文件 (3) FilterIndex 决定文件列表框中显示第几组类型的文件 (4) InitialDirectory 初始化路径,本章目录,例7.4 编写一个应用程序，弹出打开文件对话框， 从中选择一个BMP位图文件，能在图形框中显 示该图片 Sub Button1_Click( ) Handles Button1.Click OpenFileDialog1.FileName = “*.Bmp“ OpenFileDialog1.InitialDirectory = “C:Windows“ OpenFileDialog1.Filter = “Pictures(*.Bmp)|*.Bmp|All Files(*.*)|*.*“ OpenFileDialog1.FilterIndex = 1 ' 显示“打开文件”对话框，并判断是否选择了文件。 If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then ' 利用Image.FromFile函数把图片放入图形框中。 PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName) Else MsgBox(“没有选择文件！“) End If End Sub,本章目录,可以在属性窗口中设置,例7.5 为例7.1中的“打开”菜单项编写事件过程. Sub FileOpen_Click( ) Handles FileOpen.Click, Pop FileOpen Dim InputData As String OpenFileDialog1.FileName = “*.txt“ OpenFileDialog1.InitialDirectory = “c:“ OpenFileDialog1.Filter = “Text Files(*.Txt)|*.Txt|All iles(*.*)|*.*“ OpenFileDialog1.FilterIndex = 2 OpenFileDialog1.ShowDialog() ' 显示“打开文件”对话框 FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) TextBox1.Text = “ Do While Not EOF(1) InputData = LineInput(1) ' 读一行数据 TextBox1.Text = TextBox1.Text + InputData + vbCrLf Loop FileClose(1) ' 关闭文件 End Sub,本章目录,可以在属性窗口中设置,2. 保存文件对话框,控件：SaveFileDialog 属性与OpenFileDialog控件基本相同， 特有属性是DefaultExt 用于设置缺省的扩展名 例7.6 为例7.1中的“另存为”菜单项编写事件过程。 ' 有关文件的读写操作请参阅第八章。 Sub FileSaveAs_Click( ) Handles FileSaveAs.Click, PopFileSaveAs SaveFileDialog1.FileName = “Default.Txt“ ' 设置缺省文件名 SaveFileDialog1.DefaultExt = “Txt“ ' 设置缺省扩展名 SaveFileDialog1.ShowDialog() ' 打开另存为对话框 FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output) Print(1, TextBox1.Text) ' 将文本框中的内容写入文件 FileClose(1) 关闭文件 End Sub,本章目录,3. 颜色对话框,控件：ColorDialog 重要属性：Color 用户选定的颜色，属于Color结构类型 例7.7 为例7.1中的“颜色”菜单项编写事件过程。 Sub FormatColor_Click() Handles FormatColor.Click, PopFormatColor.Click ColorDialog1.ShowDialog() 打开颜色对话框 TextBox1.ForeColor = ColorDialog1.Color End Sub,设置文件框前景颜色,本章目录,4. 字体对话框,控件：FontDialog,例7.8 为例7.1中的“字体”菜单项编写事件过程。 Sub FormatFont_Click() Handles FormatFont.Click, PopFormatFont.Click FontDialog1.ShowDialog() 打开字体对话框 TextBox1.Font = FontDialog1.Font 设置字体 End Sub,Font获取选择的字体 Color 选定的颜色,ShowColor控制是否有“颜色”选项,本章目录,5. 自定义对话框,具有特殊属性的窗体 添加Windows窗体，设置属性 使用VB.NET提供的模板，如对话框、“关于”框等 本节使用第一种方法 创建自定义对话框 (1) 添加窗体 项目添加Windows窗体 注意：一个项目中不能有相同名称的窗体 (2)设置属性,本章目录,(3)设置启动窗体 系统默认Form1为启动窗体。 项目属性命令设置启动窗体 (4)窗体的实例化和显示 只有启动窗体实例化是由VB.NET自动完成 其他窗体都是通过代码实例化并显示的 例如，显示窗体Form2： Dim frm2 As New Form2 ' 定义frm2为类Form2的对象变量，并创建一个实例赋予frm frm2.Show() ' 也可以用命令frm2.ShowDialog()显示窗体 而不能用下列语句显示Form2： Form2. Show() ' 或Form2. ShowDialog() 原因：Form2是一个类名，不是窗体名称,本章目录,重要方法 (1)Show 以非模式方法显示窗体 窗体对象.Show() 非模式 程序可继续执行 (2)ShowDialog 以模式方法显示窗体 窗体对象.ShowDialog() 模式 在关闭该窗体后才能对其它窗体进行操作 (3)Hide 将窗体暂时隐藏(还在内存中) 窗体对象.Hide (4) Close 关闭窗体，释放内存 窗体对象.Close 注意：Me 关键字Me代表代码所在的窗体 Me.Close 关闭自己,本章目录,与对话框的数据传递 在模块中定义公共变量，作为交换数据的场所。 例如：创建Module1，然后在其中如下的变量： Public x As String 例7.9 为例7.1设计一个如图1.7.9所示的对话框， 并且为“帮助关于”编写事件过程 Sub AboutDialog_Click( ) Handles AboutDialog.Click Dim Dialog As New Form2 Dialog.ShowDialog() End Sub,本章目录,7.4 工具栏,控件：ToolStrip ToolStrip控件是一个容器， 可以放置ToolStripBotton、ToolStripLabel等对象,本章目录,例7.10 为例7.1配置一个工具栏 (1) 建立ToolStrip控件 (2) 创建图标按钮 选择Button (3) 设置属性 Image属性值是图标按钮中显示的图像 (4) 编写事件过程 一般与菜单项共享事件过程,本章目录,' “新建”菜单项和“新建”图标按钮的事件过程 Sub FileNew_Click( ) Handles FileNew.Click, PopFileNew.Click, ToolStripButton1.Click TextBox1.Text = “ TextBox1.Focus() End Sub 注意： 可以在项目编辑器中设置属性 在工具栏的属性窗口选择编辑器 ToolStrip控件上还可以放置ToolStripLabel等对象。 ToolStripBotton还有一个主要属性是ToolTopText,7.5 综合应用,例7.11 如图所示程序：“统计”和“结束”没有子菜单，当选择“统计后，统计结果显示在左图的对话框中。,本章目录,综合应用,例7.12 多重窗体应用示例,本章目录,7.6 自主学习鼠标和键盘,7.6.1 鼠标 鼠标事件 需要注意事件发生在哪一个对象上 Click、DoubleClick事件 MouseDown 按下任意一个鼠标按钮时被触发 MouseUp 释放任意一个鼠标按钮时被触发 MouseMove 移动鼠标时被触发,本章目录,鼠标,鼠标事件过程中的参数e决定鼠标的当前状态。 e.X、e.Y表示当前鼠标的位置； e.Button指示按下或释放了哪个鼠标按钮，,本章目录,鼠标,例7.14 显示鼠标器指针所指的位置。 例7.15 设计一个最简单的画图程序。程序运行时，按住鼠标右键移动画圆，按住鼠标左键移动画线。,本章目录,7.5.2 键盘,1. KeyPress事件 输入ACSII字符时发生， 参数e包含了与KeyPress事件相关的数据。 e.KeyChar 输入的字符的ASCII码值。 例如，键盘输入小写A，e.KeyChar的值为“a”。 e.Handled 表示本次按键是否被处理过 True:已经被处理过，不再处理，即怱略本次按键 False:传送给Windows进行常规处理。 利用这个特性可以在某些控件中过滤掉不允许的字符。,本章目录,键盘,2. KeyDown事件和KeyUp事件 当焦点在某个对象时，用户按下键盘上的任一键，便会引发该对象KeyDown事件，释放按键便触发KeyUp事件。 参数e包含了所按键信息(及Shift、Ctrl、Alt键的状态)。 e.KeyCode的值为操作的物理键。 例7.21编写一个程序，按下Alt+F5组合键可终止程序的运行,本章目录,本章小节,常用控件 单选按钮、复选框、框架、列表框、组合框、滚动条、进度条、定时器、超链接 通用对话框 菜单 下拉式菜单 MainMenu 弹出式菜单 ContextMext 两个窗体之间访问 通过窗体对象实例.控件 或模块级公共变量,思考题,1. 有哪几种方法可以在列表框添加选项？ 2如果要一个定时器每半分钟产生一个Tick控件，则InterVal属性应设置为多少？ 3在VB.NET中，使用什么方法访问网页？ 4代码中如何判断用户在通用对话框中选择了“取消”按钮？ 5创建弹出菜单需要什么控件？通过什么属性才能将控件与弹出菜单建立关联？ 6什么是模式对话框？什么是非模式对话框？ 7简述窗体之间数据互访如何才能实现？,本章目录,