VB教程命令钮标签文本框.ppt

命令按钮、标签和文本框,CommandButton命令按钮控件,单击按钮执行某项操作。Label标签控件,用来显示文本TextBox文本框控件,用来输入和显示文本,常用属性：Caption属性该属性设定按钮显示的文字。Style属性控制按钮的显示类型共有两种取值：标准类型standard和图形类型graphical。设为graphical时下面三个属性不起作用Picture属性指定按钮中显示的图片。BackColor属性指定按钮的背景颜色。,命令按钮CommandButton,命令按钮的快捷访问键,访问键为按钮的选中提供了一种快捷方式，即同时按下ALT键和访问键等同于鼠标单击该按钮。设置访问键在caption属性中，在想要指定为访问键的字符前加一个“&”符号，该字符就会带有一个下划线。比如：&Next，&Last,程序演示,命令按钮的事件,【例1】点击一个按钮，发出铃声一个命令按钮控件：Command1编写Click事件过程(双击按钮即可进入代码窗口)PrivateSubCommand1_Click()BeepEndSub,【例2】在窗体上添加一个按钮，实现窗口的最大化和还原。设计一个命令按钮，命名为cmdSize（窗体的MaxButton和MinButton属性均设置为False）：在窗口第一次显示时，按钮标题为“最大化(&L)”。点击按钮后将窗口最大化，并且标题变成“还原(&B)”。再点击设置窗口还原，标题又恢复为“最大化(&L)”。PrivateSubcmdSize_Click()IfcmdSize.Caption=最大化(&L)ThenMe.WindowState=2cmdSize.Caption=还原(&B)ElseMe.WindowState=0cmdSize.Caption=最大化(&L)EndIfEndSub,待讲,【例3】一个使用按钮红绿灯变化的小程序三个image控件，分别放红黄绿灯亮的图案两个CommandButton控件，一个负责改变image控件的visible属性，另一个关闭窗口,PrivateSubCommand1_Click()IfShape1.Visible=TrueThenShape1.Visible=FalseShape2.Visible=TrueElseIfShape2.Visible=TrueThenShape2.Visible=FalseShape3.Visible=TrueElseShape3.Visible=FalseShape1.Visible=TrueEndIfEndSub,PrivateSubForm_Load()Shape2.Visible=FalseShape3.Visible=FalseEndSub,程序演示,待讲,选定命令按钮,程序执行有以下方法选中命令按钮：鼠标单击按钮用Tab键把焦点移到按钮上，按空格或回车键使用按钮的快捷键（Alt+有下划线的字母）设置按钮的Default属性为True,直接使用Enter键即可选中设置按钮的Cancel属性为True,用Esc键选中,标签Label,标签的用途:1、通常用来标注本身不具有Caption属性的控件2、提供其他控件的访问键绘制控件，并保证每个标签Tabindex值比其后的小一。每个标签的Caption属性用字符“&”指定访问。如：“编号(&I)”。,程序演示,标签,常用属性：Autosize为True，可自动水平适应长度WordWrap为True，可自动换行显示，前提是Autosize为TrueBackStyle背景是否透明BorderStyle边框样式,文本框用来编辑和显示文本。（一）属性1基本属性Name、Height、Width、Top、Left、Enabled、Visible、Font，ForeColor、BackColor等与标签控件相同。2常用属性（1）Text文本属性在文本框中显示的正文内容存放在Text属性中。当程序运行时，用户通过键盘输入正文内容，保存在Text属性中。缺省情况下，文本框中的文本最多为2048个。文本框没有Caption属性,文本框TextBox,常用属性Maxlength：允许在文本框中输入的最大字符数MultiLine：True允许多行显示。默认为一行（False）ScrollBars：当MultiLine为True时，该属性才有效。PassWordChar：文本框显示设置的字符,自动换行和滚动条示例,文本框,文本框,SelStart：确定在文本框选中文本的起始位置。第一字符的位置为0。若没有选择文本，则用于返回或设置文本的插入点位置。SelLength：设置或返回文本框中选定的文本字符串长度（字符个数）。SelText：设置或返回当前选定文本中的文本字符串。,使用Clipboard对象来操作剪贴板Clipboard对象没有任何属性和事件，但使用它可以实现对剪贴板的操作。清除剪贴板中的内容Clipboard.clear将文本复制到剪贴板上Clipboard.SetTextClipboard.SetTextText1.seltext复制返回存储在剪贴板上的文本目标=Clipboard.GetTextText1.seltext=Clipboard.GetText()粘贴,课堂示例文本框复制粘贴1,文本框,课堂示例文本框复制粘贴2,常用方法Setfocus文本框名.SetFocus常用事件Change事件：当改变文本框的Text属性时会引发该事件KeyPress事件：当用户按下并释放键盘上一个ANSI键时，就会触发一次该事件LostFocus事件：当控件失去焦点时发生。GotFocus事件：当控件获得焦点时发生。Validate事件：当控件失去焦点前发生，常用于检查数据输入是否正确。,三、文本框,Change事件例：当下面的程序运行后，在文本框中输入ABCD，则在窗体上在输出结果是？,课堂演示,文本框示例,当程序运行后中输入ABCD，则在窗体上在输出结果是？,课堂示例4-4,Keypr