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