《VisualBasic Net程序设计》教学课件：第7章常用控件和界面设计

1、VisualBasic.Net程序设计华中农业大学信息学院 章程第7章 常用控件和界面设计 本章学习要点： 菜单设计 鼠标键盘事件1、常用控件 1.1 RichTextBox控件 RichTextBox是一种文本框控件，跟TextBox控件有一些相似的地方，可以进行输入和输出。1、主要属性Text(文字内容)属性：HideSelection属性：Multiline属性：ScrollBars属性：WordWrap属性：2、RichTextBox控件常用方法Copy方法将RichTextBox内选中内容复制剪贴薄。RichTextBox1.Copy()。Cut方法将RichTextBox内选中内容

2、移动到剪切薄。RichTextBox1.Cut()。Paste方法将当前剪切薄的内容移动到RichTextBox中光标所在位置。RichTextBox1.Paste()。LoadFile方法将指定的文本文件加载到RichTextBox控件中显示。 ：RichTextBox.LoadFile(data,fileType)说明：data： 要加载到RichTextBox中的文本文件。fileType：指定加载文件的格式。默认是RichText 格式。RichTextBox1.LoadFile(“a.txt”,RichTextBoxStreamType.PlainText)1.2 滚动条控件 1、重

3、要属性1)Value属性：滑块当前位置所代表的值，默认值为0。2)Minimum和Maximum属性：Minimum属性为滑块处于最小位置时所代表的值。3)SmallChange和LargeChange属性： SmallChange属性表示用户单击滚动条两端的箭头时，Value属性增加或减少的值。LargeChange属性表示用户单击滚动条的空白处时，Value属性增加或减少的值。2、重要事件 Scroll ValueChanged【例7.1】 【例7.2】 利用滚动条设计一个对文字字号和颜色设置的应用程序。1.3 ProgressBar控件 1、重要属性： 1）Maximum 2）Minim

4、um 3）Value【例7.3】设计一个倒计时程序。 2、菜单设计 在Windows环境中，几乎所有的应用软件都通过菜单来实现各种操作。在VB.NET中，命令选项比较多的时候，使用菜单会比较方便。2.1 简单菜单设计 设计如图所示菜单，能够对文本框中的文字进行简单的编辑操作（“复制”，“剪切”，“粘贴”）。 Private Sub CopyItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyItem.Click RichTextBox1.Copy() PasteItem.Enabl

5、ed = True End SubPrivate Sub CutItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutItem.Click RichTextBox1.Cut() PasteItem.Enabled = TrueEnd SubPrivate Sub PasteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteItem.Click RichTextBox1.

6、Paste()End Sub2.2 菜单设计 为了便于设计菜单，VB.NET提供了MenuStrip和ConTextMenuStrip两个控件，分别用来设计主菜单和弹出式菜单。 MenuStrip和ContextMenulStrip控件出现在窗体下专用面板中，它们是非用户界面控件。 2.2.1、重要属性 菜单项除了Name， Visible， Enabled等属性之外，还具有下列重要属性。Text 若菜单项需要热键，则在热键字符之前加一个“&”符号。若菜单项是分隔符，则应输入“-”(减号)。2.2.1、重要属性ShortCutKeys：用来设置菜单项的快捷键。 CheckedBoolean类型

7、。若设置为True，则在菜单项左边显示一个“”，表示选中了该项，否则，没有“”，表示未选中该项。2.3、下拉菜单菜单项的重要事件是Click事件。【例7.5】利用MenuStrip控件建立一个下拉式菜单。2.4、弹出式菜单 弹出菜单是右击鼠标时弹出的菜单。【例7.7】给前面的例子创建一个弹出式菜单，菜单运行时的界面如下图： 要使程序运行后用鼠标标右击文本框能显示弹出菜单，必须建立弹出菜单与文本框之间的关联。 3 、鼠标事件 【例7.8】编写一个程序，确定哪个鼠标键被按下。在窗体上按下鼠标按键，则在标签显示相应的提示信息和按下的坐标位置。运行界面如下：程序代码： Dim mess$ = If e

8、.Button = MouseButtons.Right Then mess = 鼠标右键按下，坐标位置是 If e.Button = MouseButtons.Left Then mess = 鼠标左键按下，坐标位置是 If e.Button = MouseButtons.Middle Then mess = 鼠标中间键按下，坐标位置是 Label1.Text = mess Label1.Text &= （ & e.X & , & e.Y & )3.1 常用的鼠标事件 事 件 名 称说 明Click在控件对象上按下鼠标并放开会触发此事件DoubleClick在控件对象上双击鼠标并放开会触发此

9、事件MouseEnter鼠标光标进入控件对象时会触发此事件MouseMove鼠标光标进入控件对象时会触发此事件MouseHover鼠标光标停在控件对象上不动时会触发此事件MouseDown鼠标光标在控件上并按下鼠标按键时会触发此事件MouseUp鼠标光标在控件对象上放开鼠标按键时会触发此事件MouseLeave鼠标光标离开控件对象时会触发此事件属 性说 明（可取值）e.Button以下常量的名称空间为Windows.Forms：MouseButtons.None：表示没有按下鼠标任何键MouseButtons.Left：表示按下鼠标左键MouseButtons.Right：表示按下鼠标右键Mo

10、useButtons.Middle：表示按下鼠标中间键e.Clicks取得按下并放开鼠标键的次数e.x取得鼠标在对象上的x坐标e.y取得鼠标在对象上的y坐标4、键盘事件 【例7.9】编写一个程序，当按下Alt+F3组合键时，弹出如图所示欢迎窗口。 Private Sub Form1_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.F3 And e.Alt Then MsgBox(欢迎使用键盘事件！) End

11、If End Sub4.1 一些常用键盘事件4.1.1、KeyPress事件 对焦点所在的对象，用户的键盘按键将产生一个KeyPress事件，编程者可以通过对KeyPress事件的过程处理进行编制程序代码。 当控件（对象）拥有焦点并按下键盘时，会触动KeyPress事件。此事件只能响应按键操作，无法知道知道按键是否被按下或放开。 属 性说 明Handled设置是否响应按键操作e.Handled=True:不响应按键，例如：焦点在文本框中由键盘所输入的数据，并不会显示在文本框中e.Handle=False:响应按键操作。例如：在文本框中由键盘所输入的数据，会显示在文本框中KeyChar取得对应的

12、所按下键盘的字符。例如：按“0”键会传回字符“0”；按“A”键会传回字符a；按Shift+B键会传回字符B，其他依次类推。因此，你也可以使用Asc（）函数将取得键盘的字符转成ASCII码 在计算机游戏世界中，键盘的使用频率非常高，比如上、下、左、右在游戏中通常称为方向的控制键，这些控制动作可以使用KeyDown和KeyUp事件实现。 键盘KeyDown，KeyUp事件的第2个自变量e为KeyEventArgs类型，这个自变量的属性可以用来取得相关的事件信息。 4.1.2、KeyDown与KeyUp事件4.1.2、KeyDown与KeyUp事件属性说 明Handled设置是否不响应按键操作：e.

13、Handled=True：不响应按键操作。例如：焦点在文本框中由键盘所输入的数据，并不会显示在文本框中e.Handled=False：响应按键操作。例如：在文本框中由键盘所输入的数据，会显示在文本框中Alt判断是否按下Alt键Control判断是否按下Control键KeyCode可以取得键代码。使用说明如下：键代码是属于Keys类型的列举常量，列举常量包括：Key.Left（）、Keys.A(A键)、Keys.F1（F1键），其他一次类推若想知道键代码的意义，可使用e.KeyCode.ToString()语句来完成。例如：按下键，则e.KeyCode.ToString()会显示Right，其他依次类推KeyValue可以取得键代码Shift判断有否按下Shift【例7.11】过街老鼠的游戏。任务描述： 窗体上有一只朝四面随机移动的老鼠，窗体上还有一只静止的锤子，可以由键盘控制上下左右移动，当锤子移动打到老鼠时，程序执行完毕。5 多重窗体 5.1一个多窗体程序示例【例7.11】 5.2 多重窗体使用方法 简单的VB.NET应用程序通常只包括一个窗体，称为单窗体程序。在实际应用中，特别是对于复杂的应用程序，单一窗体往往不能满足需要，必须通过多窗体来实现。 1、添加窗体2、设置启动窗体3、窗体实例化和显示4 重要方法和关键字(1)Show