vb第4章窗体与常用内部控件1ppt课件

.,1,第4章,窗体与常用内部控件,本章要点:窗体命令按钮、文本框、标签框架、图片框、图像框选项按钮、复选框列表框、组合框计时器、滚动条,.,2,4.1窗体,窗体:窗口(一般，设计期称窗体、运行期称窗口)窗体模块:每个窗体对应于一个窗体模块1.窗体的结构,.,3,移除方法一:工程移除Form1移除方法二:在工程资源管理器中右击窗体名称移除Form1,工程添加窗体(打开“添加窗体”对话框),新建,现存,添加方法二:使用工具栏中的“添加窗体”按钮,设置启动对象:工程工程1属性设置启动对象,添加方法一:,2.添加窗体、移除窗体,.,4,3.属性(1)Name(名称):窗体的名称，且是磁盘上的窗体文件名，扩展名为.frm。(2)BackColor:窗体的背景颜色。(3)BorderStyle:窗体的边框样式。(4)Caption(标题):窗体标题栏显示的内容。(5)ControlBox:决定窗体是否具有控制菜单(6)Font:窗体中输出字符的字体、大小等特性。(7)ForeColor:窗体的前景颜色。(8)Icon:运行时窗体处于最小化时所显示的图标。(9)MaxButton:决定窗体的标题栏中是否具有最大化按钮。(10)Moveable:决定窗体是否能移动(11)Picture:设置要在窗体上显示的图片。(12)WindowState:决定运行时窗体是正常、最小化还是最大化。,.,5,运行时只读属性(只能在属性窗口中设置):Name;BorderStyle;ControlBox;MaxButton;Moveable4.事件常用事件有:Load、Activate、Click、DblClick例:单击窗体时产生Click事件,将窗体背景设成黄色PrivateSubForm_Click()Form1.BackColor=vbYellowEndSub5.方法窗体上常用的方法有Print、Cls、Move和Show等,.,6,4.2.1控件的分类,内部控件默认状态下工具箱中显示的控件CommandButtonLabelPictureBoxActiveX控件存于.OCX文件中，包括各种版本的VB控件，必要时可添加到工具箱中。ToolBarCommonDialogImageList可插入对象将其他应用程序产品作为一个对象加入到工具箱中。如Excel工作表、公式等。,4.2控件简介,.,7,4.2.2控件的公共属性,1.Name属性(1)运行时是只读的(2)缺省名称控件类型标志符整数(3)以字母开始，最长40个字符，可包括字母、数字和下划线，不能包括标点符号或空格(允许汉字)(4)控件数组的名称:Name(Index)2.Caption属性(1)窗体显示在标题栏中的文本控件显示在控件中或控件后的文本(2)加访问键:KeyDown;KeyUp;MouseDown;MouseUp例:PrivateSubCommand1_MouseDown()Form1.BackColor=vbRedEndSub例:PrivateSubCommand1_MouseUp()Form1.BackColor=vbGreenEndSub例:PrivateSubCommand1_KeyDown()Form1.Caption=你好EndSub3.方法SetFocus方法:将焦点定位在指定的命令按钮上例:cmdOk.SetFocus,.,15,焦点和Tab键序问题焦点当前可以接收用户输入的对象称为具有焦点。注意:并非所有控件都可以接收焦点。而且,只有Enabled和Visible属性为True时，才可以接收焦点。事件GotFocus发生在对象得到焦点时LostFocus发生在对象失去焦点时对象何时得到焦点运行时选择对象(鼠标、Tab键、访问键)在代码中使用SetFocus方法,.,16,Tab键序指按Tab键时光标在各个控件之间移动的顺序。每个窗体都有自己的Tab键序。默认键序与控件的建立次序一致。TabIndex属性:决定键序改变TabIndex属性可以改变键序TabStop属性:决定是否能够使用Tab键将焦点移动到当前对象。,.,17,4.4文本框(TextBox)1.属性(1)Text:返回或设置文本框显示的内容。例:Text1.Text=欢迎使用VisualBasic(2)MultiLine:决定是否可以显示多行文本。(3)PasswordChar:常用于输入口令。在文本框中键入字符显示为该指定的字符。(此时MultiLine属性值应为False)(4)ScrollBars:用于确定文本框是否带滚动条以及滚动条的方向。(仅当MultiLine属性值为True时才可以带滚动条),.,18,(5)SelLength:在运行期返回或设置选择的字符数。例:Text1.SelLength=Len(Text1.Text)表示选中文本框Text1中所有字符。(6)SelStart:在运行期返回或设置当前选择文本的起始位置。例:Text1.SelStart=0表示选择文本的起始位置从第一个字符开始。(7)Locked:指定运行时文本框内容是否可以编辑。False可以编辑True不可编辑(只读),.,19,2.事件和方法事件:Change、Click、DblClick、GotFocus、LostFocus、KeyPress等方法:SetFocus【例题】在窗体上建立一个文本框，将输入到文本框中的小写字母转换为大写。PrivateSubText1_KeyPress(KeyAsciiAsInteger)Char=Chr(KeyAscii)KeyAscii=Asc(UCase(Char)EndSub,.,20,4.5标签(Label)1.属性(1)Caption:标签的标题(2)Alignment:确定标签标题的对齐方式(3)AutoSize:确定标签是否随标题自动调整大小(4)BorderStyle:确定标签的边框0无边框；1有边框(5)BackStyle:指定背景是透明或不透明1不透明；0透明,.,21,2.标签的事件:Click、DblClick.例:PrivateSubLabel1_DblClick()Label1.FontSize=Label1.FontSize+10EndSub3.标签的方法:Move格式:.Move,:指示对象左边的水平坐标(x-轴)。:指示对象顶边的垂直坐标(y-轴)。:指示对象新的宽度。:指示对象新的高度。例:PrivateSubLabel1_Click()Label1.MoveLabel1.Left+50EndSub,.,22,2005年4月二级VB试题,在窗体(Form1)上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则命令按钮的标题设置为“计算机等级考试”。以下能够实现上述操作的事件过程是：,A）PrivateSubText1_Change()Command1.Caption=计算机等级考试EndSubB）PrivateSubCommand1_Click()Caption=计算机等级考试EndSubC）PrivateSubForm1_Click()Text1.Caption=计算机等级考试EndSubD）PrivateSubCommand1_Click()Text1.Text=计算机等级考试EndSub,.,23,2004年4月二级VB试题,以下关于焦点的叙说中，错误的是（）A)如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据B)当文本框失去焦点时，触发LostFocus事件C)当文本框的Enabled属性为False时，其Tab顺序不起作用D)可以用Ta