用户交互使用鼠标键盘和菜单.pptx

《用户交互使用鼠标键盘和菜单.pptx》由会员分享，可在线阅读，更多相关《用户交互使用鼠标键盘和菜单.pptx（46页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、会计学1用户交互使用鼠标键盘和菜单用户交互使用鼠标键盘和菜单2n n键盘、鼠标和菜单是用户和程序进行交互的主要工具。了解使用它们进行用户交互的设计要求、方法，并理解交互过程中如何进行控制。第1页/共46页3n n键盘是主要的输入工具。一般认为键盘对应于ASCII码，每一个按键将产生一个对应的ASCII码，由键盘传送给计算机的操作系统，根据用户程序的需要再由操作系统产生键值。n n鼠标器是图形界面系统最为方便快捷的交互工具。鼠标操作有单击、双击以及移动等操作。第2页/共46页4n n菜单则是另外一种GUI工具模式，它把各种程序操作过程集于一个窗口中的菜单构造上，可以通过鼠标和键盘设置两者的结合使

2、得对菜单的操作转换为程序的执行。n n所谓的用户交互过程就是程序把执行的情况显示在屏幕上，用户把程序运行的数据、操作选择的命令，通过这些交互工具发送给程序，以达到互动、协调完成程序处理过程。第3页/共46页5n n【例6-1】使用鼠标按键和移动操作。n n 在这个示例中，把鼠标左键的按下(MouseDown）和放 开（MouseUp）分开处理，结合按键（Shift）的使用产生不同的效果。第4页/共46页6n n我们使用鼠标进行不同的操作，系统通过使用指针和对鼠标按键事件过程程序进行响应。有一些有关鼠标的属性可以在设置窗体和控件时进行设置，但对大多数情况，例如单击、双击和移动以及拖动鼠标需要进行

3、必要的程序代码，以便完成响应的工作。第5页/共46页7n n6.3.1 程序状态：改变鼠标指针的形状n n当一个应用程序进入不同的状态，其鼠标的指针形状发展变化，用户可以根据指针的形状了解应该进行哪种类型的操作。n nVB控件属性中使用MousePointer设置指针类型，使用MouseIcon设置鼠标形状的图形。第6页/共46页8n nVB允许用户自定义鼠标指针，这时可以把MousePointer的属性值为设置为99，就可以通过程序指定一个鼠标指针的图标文件。例如在窗体的Load事件中加入语句：n nMe.MouseIcon=LoadPicture(IcoPoint04.ico)Me.Mou

4、seIcon=LoadPicture(IcoPoint04.ico)第7页/共46页9n n【例例6-26-2】显示显示VBVB的指针形状。的指针形状。Private Sub Form_Click()Static Count As Byte Cls Print Chr(10)+Chr(13)+鼠标指针常量值鼠标指针常量值:;Count If Count=65 And KeyAscii=65 And KeyAscii=90 Thenn n Digit1=KeyAscii+32 Digit1=KeyAscii+32n n Else Elsen n Digit1=KeyAscii-32 Digit1

5、=KeyAscii-32n n End If End Ifn n Char1=Chr(Digit1)Char1=Chr(Digit1)n n TxtDemo.Text=Char1+TxtDemo.Text=Char1+的的ASCIIASCII码为：码为：+Str(Digit1)+Chr(13)+Chr(10)+Str(Digit1)+Chr(13)+Chr(10)n n TxtDemo.Text=TxtDemo.Text=的的ASCIIASCII码为：码为：+Str$(KeyAscii)+Chr(13)+Chr(10)+TxtDemo.Text+Str$(KeyAscii)+Chr(13)+C

6、hr(10)+TxtDemo.Textn nEnd Sub End Sub 第21页/共46页23n n6.4.2 特殊按键处理：KeyDown和KeyUpn n一个对象具有焦点时，事件在按下键(KeyDown)或松开键(KeyUp)时发生。KeyDown和KeyUp的处理过程为：n nPrivate Sub Private Sub 对象名对象名_KeyDown(index As Integer,Keycode As Integer,Shift _KeyDown(index As Integer,Keycode As Integer,Shift As Integer)As Integer)n

7、nPrivate SubPrivate Sub对象名对象名_KeyUp(index As Integer,Keycode As Integer,shift As _KeyUp(index As Integer,Keycode As Integer,shift As Integer)Integer)第22页/共46页24n n其中Index选项参数的意义和前述的KeyPress相同,其他几个参数的意义如下：n n（1 1）KeycodeKeycode是一个键代码，指示键盘上按下的物理键，是一个键代码，指示键盘上按下的物理键，诸如诸如 vbKeyF1vbKeyF1（F1F1键）或键）或vbKeyH

8、omevbKeyHome（HOME HOME 键）等。键）等。KeyPressKeyPress中的中的KeyAsciiKeyAscii只含可显示字符键只含可显示字符键，而，而KeyCodeKeyCode包含包含了键盘上所有键的代码了键盘上所有键的代码。n n（2 2）ShiftShift是在该事件发生时响应是在该事件发生时响应ShiftShift，CtrlCtrl和和AltAlt键的状态键的状态的一个整数。（参见下一节）的一个整数。（参见下一节）第23页/共46页25n n6.4.2 特殊按键处理：KeyDown和KeyUpn nKeyDown和KeyUp事件经常用于：扩展的字符键如功能键、定

9、位键、键盘修饰键和按键的组合、区别数字小键盘和常规数字键等。第24页/共46页26n n【例例6-66-6】设计一个程序，在窗口上建立两个文本框，在设计一个程序，在窗口上建立两个文本框，在右边的文本框中输入键盘的按键，在左边的文本框中显示右边的文本框中输入键盘的按键，在左边的文本框中显示这个键符号和对应的的代码。这个键符号和对应的的代码。n nPrivate Sub Form_Load()Private Sub Form_Load()n n Show Shown n TxtDemo2.SetFocus TxtDemo2.SetFocusn nEnd SubEnd Subn n 按键产生按键产生

10、KeyDownKeyDown事件过程事件过程n nPrivate Sub TxtDemo2_KeyDown(KeyCode As Integer,Shift As Integer)Private Sub TxtDemo2_KeyDown(KeyCode As Integer,Shift As Integer)n n TxtDemo1.Text=Chr(KeyCode)+TxtDemo1.Text=Chr(KeyCode)+的代码为的代码为 n n TxtDemo1.Text=TxtDemo1.Text+Str$(KeyCode)TxtDemo1.Text=TxtDemo1.Text+Str$(

11、KeyCode)n n TxtDemo2=TxtDemo2=n n TxtDemo2.SetFocus TxtDemo2.SetFocusn nEnd SubEnd Sub第25页/共46页27n n在VB中，使用Shift参数保存Shift、Ctrl、Alt这三个键的状态，可以使用这些状态，和键盘的其他按键或者鼠标的Button按键进行组合。n n 表表6.7 Shift6.7 Shift参数关联的参数关联的VBVB常量常量 常量常量值值描述描述vbShiftMask1Shift键被记录键被记录vbCtrlMask2Ctrl键被记录键被记录vbAltMask4Alt键被记录键被记录第26页/

12、共46页28n n在在VBVB中，允许组合键可以单独一个。两个中，允许组合键可以单独一个。两个或者三个全部被按下，因此或者三个全部被按下，因此ShiftShift参数的值为参数的值为3 3、6 6、7 7，它们都是有效值，分别代表，它们都是有效值，分别代表ShiftShift键和键和CtrlCtrl键、键、CtrlCtrl键和键和AtlAtl键以及这三个键都键以及这三个键都被按下。被按下。第27页/共46页29n n菜单（Menu）是Windows应用程序中的重要组成部分。菜单的最大特点是把程序的功能以菜单的形式列出，用户需要的时候可以选择使用。n n每一个菜单项对应于一段程序的执行，类似于执

13、行一个命令。n nVB支持Windows的下拉式和弹出式两种类型的菜单。第28页/共46页30菜单标题菜单栏菜单项分隔线快捷键图 6.7 菜单的组成元素6.6.1 什么是菜单什么是菜单第29页/共46页31n n6.6.2 使用菜单编辑器n n在在VBVB中，使用中，使用“菜单编辑器菜单编辑器”设计菜单。有四种方设计菜单。有四种方法进入法进入“菜单编辑器菜单编辑器”。n n（1 1）在）在VB IDEVB IDE下，打开下，打开“工具工具”菜单，选择菜单，选择“菜单编菜单编辑器辑器”。n n（2 2）单击）单击VB IDEVB IDE菜单栏下方的工具按钮上的菜单编辑菜单栏下方的工具按钮上的菜单

14、编辑器，器，n n 图标为图标为 。n n（3 3）使用快捷键）使用快捷键 Ctrl+ECtrl+E。n n（4 4）在）在“工程工程”窗口使用快捷菜单，选择窗口使用快捷菜单，选择“菜单编辑菜单编辑器器”。n n菜单编辑器分为上下两个部分，上部为菜单控件属菜单编辑器分为上下两个部分，上部为菜单控件属性，下部为菜单控件列表框。每建立一个菜单项，性，下部为菜单控件列表框。每建立一个菜单项，将被列在列表框中。将被列在列表框中。第30页/共46页32n n1 1标题（标题（CaptionCaption）n n指定菜单项要显示的标题文字。指定菜单项要显示的标题文字。n n2 2名称名称(Name)(Na

15、me)n n这是作为菜单项控件的名称。这是作为菜单项控件的名称。n n3 3索引（索引（IndexIndex）n n4 4快捷键（快捷键（Short CutShort Cut）n n在这个组合列表框中给出了在这个组合列表框中给出了VBVB预预n n先定义的各种快捷键，编程者可先定义的各种快捷键，编程者可n n以选择使用，以选择使用，n n7 7复选（复选（CheckedChecked）n n是否置复选标志（是否置复选标志（）。）。n n8 8可用（可用（EnabledEnabled）n n9 9可见（可见（VisibleVisible）n n1111分隔线分隔线n n在菜单项的标题中，输入连接

16、符在菜单项的标题中，输入连接符“-”-”。图6.8 菜单编辑器第31页/共46页33n n设计菜单的注意任务就是确定各个菜单项的名称以及要实现的内容，然后有条理地组织它们。我们设计应用程序应当尽量保持Windows应用程序的风格，界面上保持一致。6.6.3 设计菜单设计菜单第32页/共46页34n n6.6.4 子菜单n n严格意义上，在主菜单n n 下的各个菜单项都是n n “子菜单”，而子菜单也可以有子菜单。在VB中，允许每个菜单项最多包含5级子菜单。n n尽管子菜单有时是需要的，但还是要限制使用它们，因为多级菜单结构往往会使得用户查找命令功能变得复杂。第33页/共46页35n n6.6.

17、5 菜单编程：菜单的Click事件n n菜单事件只有一个，就是菜单的Click事件。除了分隔线外，每个菜单项都可以识别它对应的Click事件。n n【例6-7】使用菜单设计一个完成二进制、十进制、八进制和十六进制数进行相互转换的程序。第34页/共46页36Private Sub Form_Load()Show Label1.Caption=Label2.Caption=TxtInNum.Text=TxtInNum.Enabled=False TxtOutNum.Text=TxtOutNum.Enabled=FalseEnd SubPrivate Sub MnuExit_Click()EndEn

18、d SubPrivate Sub MnuHex2_Click()Label1.Caption=十进制数为：十进制数为：Label2.Caption=十六进制数为：十六进制数为：TxtInNum.Text=InputBox(请输入一个十进制数请输入一个十进制数,输入输入)TxtOutNum.Text=Hex(Val(TxtInNum.Text)End SubPrivate Sub MunOctor2_Click()十进制到八进制十进制到八进制 Label1.Caption=十进制数为：十进制数为：Label2.Caption=八进制为：八进制为：TxtInNum.Text=InputBox(请输

19、入一个十进制数请输入一个十进制数,输入输入)TxtOutNum.Text=Oct(Val(TxtInNum.Text)End Sub第35页/共46页37n n 在程序执行的不同状态下，单击鼠标的右键，弹出一个菜单，供用户选择合适的操作命令，对于Windows应用程序而言，不但是一个友好的显示效果，更是一个快捷的方法，因此弹出式菜单也叫快捷菜单。第36页/共46页38n n6.7.1 设计弹出式菜单n n【例例6-86-8】设计一个将文本框的文本进行对齐操作的弹设计一个将文本框的文本进行对齐操作的弹出式菜单。出式菜单。第37页/共46页39n n1使用菜单编辑器n n 在设计弹出式菜单时，主菜

20、单项应设置“可见”属性为False（不选）。我们给这个弹出式菜单命名为PopMnu，下面有三个菜单项分别为“左对齐”“居中”和“右对齐”。当在窗口单击右键则弹出的是三个子菜单项的菜单。第38页/共46页40n n2PopupMenu方法。n n 激活弹出式菜单使用PopupMenu方法。使用格式为：n n PopupMenu 菜单名称 n n 或者使用调用的方法，格式为：n nCall PopupMenu（菜单名称）第39页/共46页41n n3在何地使用弹出式菜单n n菜单对象要通过菜单事件触发，但由于弹出式菜单是隐藏的，也就是它的属性被设置为不可见，因此就需要另外的事件触发，再用Popup

21、MenuPopupMenu方法显示弹出式菜单后进入菜单事件。一般是鼠标右键被按下，“弹出”菜单 n n4对弹出式菜单的菜单项进行菜单过程的编程，使之完成命令操作。第40页/共46页42n nPrivate Sub Form_Load()Private Sub Form_Load()n n TxtDemo.Text=Chr(13)+Chr(10)TxtDemo.Text=Chr(13)+Chr(10)n n TxtDemo.Text=TxtDemo.Text+TxtDemo.Text=TxtDemo.Text+这是一个关于弹出式菜单的示例程序这是一个关于弹出式菜单的示例程序+Chr(13)+Ch

22、r(10)+Chr(13)+Chr(10)n n TxtDemo.Text=TxtDemo.Text+Chr(13)+Chr(10)+TxtDemo.Text=TxtDemo.Text+Chr(13)+Chr(10)+单击鼠标右键，对文本进行对齐操作单击鼠标右键，对文本进行对齐操作 n nEnd SubEnd Subn nPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Private Sub Form_MouseDown(Button As Integer,Shift A

23、s Integer,X As Single,Y As Single)n n If Button=vbRightButton Then PopupMenu PopMnu1 If Button=vbRightButton Then PopupMenu PopMnu1n nEnd SubEnd Subn nPrivate Sub MnuLeft_Click()Private Sub MnuLeft_Click()n n TxtDemo.Alignment=0 TxtDemo.Alignment=0n nEnd SubEnd Subn nPrivate Sub MnuMiddle_Click()Pri

24、vate Sub MnuMiddle_Click()n n TxtDemo.Alignment=2 TxtDemo.Alignment=2n nEnd SubEnd Subn nPrivate Sub MnuRight_Click()Private Sub MnuRight_Click()n n TxtDemo.Alignment=1 TxtDemo.Alignment=1n nEnd SubEnd Sub第41页/共46页43n n【例例6-96-9】设计一个程序，捕捉鼠标和按键的全部操作，设计一个程序，捕捉鼠标和按键的全部操作，并在窗口上显示鼠标和键盘的按键状态，即指示是哪个键并在窗口上显

25、示鼠标和键盘的按键状态，即指示是哪个键被按下了。被按下了。n n设计思路：n n 捕捉键盘按键和鼠标按键，要知道究竟是哪个具体捕捉键盘按键和鼠标按键，要知道究竟是哪个具体的位置，只有使用的位置，只有使用KeyDownKeyDown事件和事件和MouseDownMouseDown事件。事件。第42页/共46页44n nPrivate Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)n n Label2.Caption=

26、Label2.Caption=您所按下的键是您所按下的键是 +Chr(KeyCode)+Chr(KeyCode)+键值为键值为 +Str$(KeyCode)+Str$(KeyCode)n nEnd SubEnd Subn nPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)n n Dim Str1 As

27、String Dim Str1 As Stringn n Str1=Str1=您按下的是鼠标的您按下的是鼠标的 n n Select Case Button Select Case Buttonn n Case 1:Label1.Caption=Str1+Case 1:Label1.Caption=Str1+左按钮左按钮 n n Case 2:Label1.Caption=Str1+Case 2:Label1.Caption=Str1+右按钮右按钮 n n Case 4:Label1.Caption=Str1+Case 4:Label1.Caption=Str1+中间按钮中间按钮 n n En

28、d Select End Selectn nEnd SubEnd Sub第43页/共46页45n n【例例6-106-10】设计一个简单的记事本设计一个简单的记事本 第44页/共46页46n nPrivate Sub TxtCopy_Click()Private Sub TxtCopy_Click()n n On Error Resume Next On Error Resume Nextn n Clipboard.SetText TxtDemo.SelText Clipboard.SetText TxtDemo.SelTextn nEnd SubEnd Subn nPrivate Sub T

29、xtCut_Click()Private Sub TxtCut_Click()n n On Error Resume Next On Error Resume Nextn n Clipboard.SetText TxtDemo.SelText Clipboard.SetText TxtDemo.SelTextn n TxtDemo.SelText=TxtDemo.SelText=n nEnd SubEnd Subn nPrivate Sub TxtPaste_Click()Private Sub TxtPaste_Click()n n On Error Resume Next On Error Resume Nextn n TxtDemo.SelText=Clipboard.GetText TxtDemo.SelText=Clipboard.GetTextn n TxtDemo.SelText=TxtDemo.SelText=n nEnd SubEnd Sub第45页/共46页