《命令钮标签文本框.ppt》由会员分享，可在线阅读，更多相关《命令钮标签文本框.ppt（45页珍藏版）》请在三一办公上搜索。
1、第四章 命令按钮、标签和文本框,课堂内容,命令按钮标签控件文本域控件,一、命令按钮（Command Button）,命令按钮的用途,命令按钮CommandButton控件有时简称为“按钮”，用来进行人机交互操作，通过鼠标点击来执行某项操作。,请点我！,命令按钮控件CommandButton,使用CommandButton控件创建，可以有不同的外观：,Caption属性：该属性设定按钮显示的文字。Style属性：控制按钮的显示类型，共有两种取值：标准类型和图形类型。Picture属性：指定按钮中显示的图片。BackColor属性：指定按钮的背景颜色。MaskColor属性：指定按钮的图片中的透明
2、色，即掩码。使用的前提是UseMaskColor属性设置为True。,命令按钮的快捷访问键,访问键为按钮的选中提供了一种快捷方式，即同时按下ALT键和访问键等同于鼠标单击该按钮。热键可以提高键盘操作的速度。使用按钮的Caption属性赋予按钮一个访问键。在标题中，在想要指定为访问键的字符前加一个“&”符号，该字符就会带有一个下划线。比如：&Next，&Last,命令按钮的事件,最常用的就是命令按钮的Click()事件 事件例子见48页，例题4-1，通过按钮控制窗体最大化和正常尺寸显示。注意按钮不支持双击事件(dblClick),命令按钮的响应,使用CommandButton控件创建，只要用户单
3、击按钮，就会调用Click事件过程程序执行有以下方法选中命令按钮：鼠标单击按钮用Tab键把焦点移到按钮上，按空格或回车键使用按钮的快捷键（Alt+有下划线的字母）Caption属性的快捷字符前插入符号“&”在程序代码中设置按钮的Value属性为True在代码中直接调用按钮的Click事件,默认的命令按钮,设置按钮的Default属性为True,直接使用Enter键即可选中（总是为默认选中的按钮，当窗口中有其他控件时才生效，增加一个文本框试试看）设置按钮的Cancel属性为True,用Esc键选中,命令按钮示例1,【例】有四个按钮，三个表示3种颜色，1个“退出”，点击其中一个颜色键，使窗体背景色
4、发生相应变化，然后给每个键设置快速访问键，看效果；另外设一下缺省命令按钮和缺省取消按钮。界面元素组成：命令按钮控件：Command1编写Click事件过程(双击按钮即可进入代码窗口)Private Sub Command1_Click()me.backcolor=vbRedEnd Sub,命令按钮示例2,【例】在窗体上添加一个按钮，实现窗口的最大化和还原。习题思路：1.通过按钮点击事件判断按钮标题名 2.设置窗体显示状态，并且重新设置按钮标题名为相反操作,命令按钮示例2,设计一个命令按钮，命名为cmdSize（窗体的MaxButton和MinButton属性均设置为False）：在窗口第一次显
5、示时，按钮标题为“最大化(&L)”。点击按钮后将窗口最大化，并且标题变成“还原(&B)”。Private Sub cmdSize_Click()If cmdSize.Caption=最大化(&L)Then Me.WindowState=vbMaximized cmdSize.Caption=还原(&B)Else Me.WindowState=vbNormal cmdSize.Caption=最大化(&L)End IfEnd Sub,二、标签控件（Label）,标签的用途,作用：1.标签Label控件用来标示文本域内容,2.用来输出文本。当用于标示文本域内容时，经常和文本域一起使用；当用于第二种
6、用途时，用户可以先设置其初始内容，然后根据需要，可以通过代码显示新内容。,用于输出文本的标签属性,Caption属性长度最长可以设置为1024个字节Alignment属性：控制Label控件中的文本位置。有：左对齐(0)，居中(1)，右对齐需要多行输出时，可用Vbcrlf常量，或合并chr(11)&chr(13)字符的办法。,用于标识文本域时的属性,文本域可以快捷访问么？UseMnemonic 属性：使标签可以为文本域设置快捷访问键在标签的标题名中加上“&”符保证输入框的TabIndex属性 要比对应标签的TabIndex大1,例子：教师信息登记,比如图中可输入教师信息，其中标签有两种用途：标
7、签可以放在它们前面作为输入提示快捷访问键：鼠标可以直接将光标放在某个文本框上，但使用键盘有时更快捷些。比如键盘Alt+P可以直接将光标移到电话输入框中。,标签控件的其他属性,可以用来显示文本,或用作其它控件的标识Autosize，为True，可自动水平适应长度WordWrap，为True，可自动换行显示，前提是Autosize为TrueBackStyle,BorderStyle 背景透明,边框样式,AutoSize和WordWrap,当初始宽度无法满足标题名文本长度时，自动改变大小。当AutoSize取值为True时，WordWrap属性才有效；WordWrap为True时文本自动卷绕换行。,
8、三、文本域控件（TextBox）,文本框控件,文本框TextBox控件用来输入和显示文本，并允许用户编辑其中的文本,我用来输入内容哦,文本框控件TextBox,程序运行时，通常使用TextBox控件让用户输入数据。文本框中所看到的数据就是Text属性中存放的字符串。Text属性：Text属性包含输入到TextBox控件中的文本。缺省时，文本框中输入的字符为单行，最多达2048个。若将控件的MultiLine属性设置为True，则可输入多达32K的文本。Text属性是文本框的缺省属性，访问时可以省略书写。比如要指定或读取文本框内容：Text1.Text=“欢迎”或者 Text1=“欢迎”Form
9、1.Print Text1.Text,文本框TextBox的重要属性,Text，文本框文字MultiLine，允许多行(true/false)ScrollBars，带滚动条(无/水平/垂直/都有)PasswordChar，密码显示符号MaxLength，允许输入最大字符数Locked，运行状态下只读SelStart，文本串内插入点（光标）位置SelLength，选中文本宽度SelText，返回当前选中的文本，如果对此属性重新赋值的话意味着插入该值到光标所在位置,TextBox控件的显示效果,支持多行：MultiLine属性为True支持水平和垂直滚动条：指定ScrollBar属性,TextBo
10、x控件的文本,文本中的回车换行，则使用chr(13)和 chr(10)或VB常量vbCrLf比如:Text1.Text=“Youre”&chr(13)&chr(10)&“right”文本中出现引号，则Text1.Text=”He said:”How do you do”或用chr(34),TextBox控件示例1,【例】编写一个修改用户密码的程序，首先判断原始用户名和密码的正确性，然后输入两次新密码，两次新密码相同才能生效。（设置密码文本框的PasswordChar为*）,编程思路：先要检查用户名和密码是不是正确如果上个步骤通过，在检查两次密码输入是否一致*通过if条件结构实现。,TextBo
11、x控件示例1,【确定】按钮的事件过程如下：Private Sub cmdOK_Click()首先检查正确用户名和密码 If txtUserName.Text=admin And txtPassword.Text=admin Then If txtNewPwd1.Text=txtNewPwd2.Text Then（修改密码（文件或数据库）的代码放在此处）MsgBox 密码修改成功!,修改密码 Unload Me Else MsgBox 新密码输入有误，请重试!,修改密码 txtNewPwd2.SetFocus End If Else MsgBox 用户名或密码无效，请重试!,修改密码 txtUs
12、erName.SetFocus End IfEnd Sub,TextBox控件示例1,【取消】按钮的事件过程如下：Private Sub cmdCancel_Click()Unload Me End Sub,常用事件和选定文本属性,常用事件Change事件KeyPress事件Validate事件选定文本属性,通过VB解决问题的方法,通过VB解决问题的方法1.思考问题，分析问题2.总结一个编程思路，设计编码的步骤3.设计程序界面，编码4.总结问题解决思路，用于其他同类问题解决活动。,TextBox控件的Change事件,通过任意方式造成文本框Text属性的变化，就会引发Change事件。事件名:
13、文本域对象_Change()Text1_Change()注意：在文本域中输入、改写、删除等操作都会触发此事件。,TextBox控件示例2,【例】编写程序输入语文、数学、外语三门功课的成绩，要求输入的同时计算平均成绩并输出，即一边输入一边计算。编程思路：在输入或修改单科成绩的同时计算平均分，即在语文、数学和英语文本框的内容发生改变时就要立即重新计算平均分，并用计算结果修改平均成绩框的Text属性。因此需要编写这三个文本框的Change事件过程。,程序代码（只是语文成绩输入时）,代码如下：Private Sub txtChinese_Change()Dim sum As Double用于计算总分
14、sum=0 If txtChinese.text Then sum=sum+Val(txtChinese.Text)If txtMath.text Then sum=sum+Val(txtMath.Text)If txtEnglish.text“Then sum=sum+Val(txtEnglish.Text)txtAvg=sum/3End Sub,代码说明,1.Sum变量来统计总分，2.由于每个文本框输入都要重新计算，所以要有个Sum=0重新计算2.VB中表示不相等的符合为”3.因为文本框中存放的是字符串，不是可以计算的数字，所以需要使用Val函数转换为数字。,TextBox控件的KeyPr
15、ess事件,在文本框中点击键盘上按键，就会引发它的Key_Press()事件。事件名:文本域对象_keyPress(KeyAscii)Text1_KeyPress()注意：在文本域中点击键盘触发此事件。,TextBox控件-控制输入字符,有时对输入的字符类型有特殊要求。比如只允许输入数字，如果输入了其它字符应忽略。思路：可用文本框的KeyPress事件限制或转换输入的字符。【例】为上例增加功能，来限定文本框仅接受数字字符。,代码例子（数学成绩输入）,Private Sub txtMath_KeyPress(KeyAscii As Integer)Select Case KeyAscii Cas
16、e Asc(0)To Asc(9)Case vbKeyBack Case Asc(.)以上为正确字符，不做任何处理 Case Else KeyAscii=0取消字符 Beep发出提示音 End SelectEnd Sub,代码说明,1.条件为四种：1）.0-9的数字 2）.“.”输入小数点，3）.可以输入退格键 4）.其他情况（为非数字格式的情况）前三种允许，其他情况不让输入 2.通过KeyAscii=0，可使已键入的字符无效；同时系统发出“滴”的一声。,TextBox控件的Validate事件,当焦点要离开文本框时，将要触发此事件 前提：CauseValidate属性要设成True（缺省值）
17、事件名:文本域对象_Validate(Cancel)Text1_Validate()Cancel表示是否要取消焦点的移动，如果为true则不会引发LostFocus事件注意：可以对于数据内容进行验证，如果满足，可以离开焦点，不满足把Cancel属性设成True，使文本框焦点无法转移。,TextBox控件-检验输入内容,用户输入了有效的键，但还要判输入值是否在有效范围如：例如成绩的输入不能为小于0或大于100的分数（百分制）见代码：Private Sub txtScore_Validate(Cancel As Boolean)If Val(txtScore.Text)100 or Val(txt
18、Score.Text)0 Then MsgBox“Invalid data!Cancel=true End IfEnd Sub,选定文本的系列属性,所有Windows中的文本框控件都有共同的特点；就是可以选择所有文本或部分文本进行剪切、复制或其它操作，选中的文本以突出颜色显示。,TextBox控件中的选中文本,SelStart属性：Long型整数，用来指定选定文本块的起始位置。如果没有选定的文本，则该属性指定插入点（编辑光标）的位置。SelLength属性：Long型整数，指定所选的文本块的字符个数。任何情况下，一旦给SelLength属性设置一个大于0的值n，则会自动选中并突出显示从当前插入
19、点（SelStart属性指定值）开始的n个字符。SelText属性：是一个字符串，即选定的字符。如果没有字符被选定的话，就是空字符串。如果程序中对SelText赋值新的字符串，则该字符串将替换文本框中原选定的文本。,TextBox控件选中文本示例,通过设置SelStart和SelLength属性，可控制文本的选择。例如我们在数据录入程序中，用户经常会希望光标置于已有文本的尾部，或者在重新录入某项数据可能希望新的输入替换原有数据。【例】对于分数输入的程序，在每个输入框重新获得焦点时，将原来文本框中输入的数据全部选中，以便于替换或修改。代码如下：Private Sub txtScore_GotFocus(Index As Integer)txtScore(Index).SelStart=0 txtScore(Index).SelLength=Len(txtScore(Index)End Sub,课后作业,书上 2，3，4题习题思考，看书上的常用事件部分，另外理解例题4-3，思考课后题2，整出一个编程思路,
