《vb第4章窗体与常用内部控件.ppt》由会员分享，可在线阅读，更多相关《vb第4章窗体与常用内部控件.ppt（24页珍藏版）》请在三一办公上搜索。
1、1,第4章,窗体与常用内部控件,本章要点:窗体 命令按钮、文本框、标签 框架、图片框、图像框 选项按钮、复选框 列表框、组合框 计时器、滚动条,2,4.1 窗体,窗体:窗口(一般，设计期称窗体、运行期称窗口)窗体模块:每个窗体对应于一个窗体模块1.窗体的结构,3,移除方法一:工程移除Form1移除方法二:在工程资源管理器中右击窗体名称移除Form1,工程添加窗体(打开“添加窗体”对话框),新建,现存,添加方法二:使用工具栏中的“添加窗体”按钮,设置启动对象:工程工程1属性设置启动对象,添加方法一:,2.添加窗体、移除窗体,4,3.属性(1)Name(名称):窗体的名称，且是磁盘上的窗体文件名，
2、扩展名为.frm。(2)BackColor:窗体的背景颜色。(3)BorderStyle:窗体的边框样式。(4)Caption(标题):窗体标题栏显示的内容。(5)ControlBox:决定窗体是否具有控制菜单(6)Font:窗体中输出字符的字体、大小等特性。(7)ForeColor:窗体的前景颜色。(8)Icon:运行时窗体处于最小化时所显示的图标。(9)MaxButton:决定窗体的标题栏中是否具有最大化按钮。(10)Moveable:决定窗体是否能移动(11)Picture:设置要在窗体上显示的图片。(12)WindowState:决定运行时窗体是正常、最小化还是最大化。,5,运行时只读
3、属性(只能在属性窗口中设置):Name;BorderStyle;ControlBox;MaxButton;Moveable4.事件 常用事件有:Load、Activate、Click、DblClick 例:单击窗体时产生Click事件,将窗体背景设成黄色 Private Sub Form_Click()Form1.BackColor=vbYellow End Sub5.方法 窗体上常用的方法有Print、Cls、Move和Show等,6,控件的分类,内部控件默认状态下工具箱中显示的控件 CommandButton Label PictureBox ActiveX控件存于.OCX文件中，包括各种
4、版本的VB控件，必要时可添加到工具箱中。ToolBar CommonDialog ImageList 可插入对象将其他应用程序产品作为一个对象加入到工具箱中。如Excel工作表、公式等。,4.2 控件简介,7,4.2.2 控件的公共属性,1.Name属性(1)运行时是只读的(2)缺省名称 控件类型标志符整数(3)以字母开始，最长40个字符，可包括字母、数字和下划线，不能包括标点符号或空格(允许汉字)(4)控件数组的名称:Name(Index)2.Caption属性(1)窗体 显示在标题栏中的文本 控件 显示在控件中或控件后的文本(2)加访问键:&字母(3)Label控件标题大小没有限制。其他有
5、标题的控件，标题大小限制为255个字符。,8,3.Enabled属性 决定控件是否能够对用户产生的事件作出响应 4.Visible属性 注意:如果在属性窗口中将控件的Visible属性设置为False，则控件在设计窗体上仍是可见的，仅在运行时才不可见。【例题】Visible属性和Enabled属性的比较,9,“显示图像”按钮Command1的Click事件过程如下:Private Sub Command1_Click()Image1.Visible=True Command1.Enabled=False Command2.Enabled=True End Sub“隐藏图像”按钮Command2
6、的Click事件过程如下:Private Sub Command2_Click()Image1.Visible=False Command1.Enabled=True Command2.Enabled=FalseEnd Sub,10,5.Left、Top、Height、Width属性 返回或设置控件的位置和尺寸 对于窗体，这些属性总是以缇为单位表示；对于控件，它们的度量单位取决于其容器的坐标系统6.BackColor、ForeColor属性(1)在Label和Shape控件中，如果BackStyle属性的设置值为0(透明)，则忽略BackColor属性。(2)如果在Form对象或Picture
7、Box控件中设置BackColor属性，则所有已经打印的文本或用绘图方法绘制的图形都将被擦除掉。(3)设置ForeColor属性值不会影响已经打印的文本或绘制的图形。,11,7.FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性8.Font对象属性格式:.Font.:Name、Size、Bold、Italic、Underline、Strikethrough例:Form1.Font.Size=14 Command1.Font.Italic=True,12,4.3 命令按钮(CommandButton)1.属性(
8、1)Name(名称):按钮对象名。必须以一个英文字母开始，且最多40个字符。不能包含标点符号或空格。(2)Caption:命令按钮的标题。在字符前加一个“&”符号，该字符就会带有一个下划线，成为访问键。运行时，同时按下Alt键和带下划线的字符。(3)Font:设置文字的字体、字形、大小和效果等。(4)Default:指定该命令按钮是否为窗体的缺省按钮。(5)Cancel:指定该命令按钮是否为窗体的取消按钮。(6)Style:0-Standard(缺省值)不能显示图形或设置颜色 1-Graphical 可以显示图形或设置颜色,13,(7)Picture:指定要在命令按钮上显示的图形。(8)Dow
9、nPicture:指定命令按钮按下时显示的图形。(9)DisabledPicture:指定命令按钮无效时显示的图形。(10)Enabled:该属性值为False时，表示命令 按钮无效，不能对用户产生的事件作出反应，呈暗淡显示。缺省值为True。(11)Visible:决定命令按钮在运行时是否可见。(12)Value:该属性只能在程序运行期间使用。设置为True表示该命令按钮被按下。,14,2.事件Click;KeyDown;KeyUp;MouseDown;MouseUp例:Private Sub Command1_MouseDown()Form1.BackColor=vbRed End Sub
10、例:Private Sub Command1_MouseUp()Form1.BackColor=vbGreen End Sub例:Private Sub Command1_KeyDown()Form1.Caption=你好 End Sub3.方法 SetFocus方法:将焦点定位在指定的命令按钮上例:cmdOk.SetFocus,15,焦点和Tab键序问题焦点 当前可以接收用户输入的对象称为具有焦点。注意:并非所有控件都可以接收焦点。而且,只有Enabled和Visible属性为True时，才可以接收焦点。事件 GotFocus 发生在对象得到焦点时 LostFocus 发生在对象失去焦点时对
11、象何时得到焦点 运行时选择对象(鼠标、Tab键、访问键)在代码中使用SetFocus方法,16,Tab键序 指按Tab键时光标在各个控件之间移动的顺序。每个窗体都有自己的Tab键序。默认键序与控件的建立次序一致。TabIndex属性:决定键序 改变TabIndex属性可以改变键序 TabStop属性:决定是否能够使用 Tab 键将焦点移动到当前对象。,17,4.4 文本框(TextBox)1.属性(1)Text:返回或设置文本框显示的内容。例:Text1.Text=欢迎使用Visual Basic(2)MultiLine:决定是否可以显示多行文本。(3)PasswordChar:常用于输入口令
12、。在文本框中键入字符显示为该指定的字符。(此时MultiLine属性值应为False)(4)ScrollBars:用于确定文本框是否带滚动条以及滚动条的方向。(仅当MultiLine属性值为True时才可以带滚动条),18,(5)SelLength:在运行期返回或设置选择的字符数。例:Text1.SelLength=Len(Text1.Text)表示选中文本框Text1中所有字符。(6)SelStart:在运行期返回或设置当前选择文本的起始位置。例:Text1.SelStart=0 表示选择文本的起始位置从第一个字符开始。(7)Locked:指定运行时文本框内容是否可以编辑。False可以编辑
13、 True不可编辑(只读),19,2.事件和方法 事件:Change、Click、DblClick、GotFocus、LostFocus、KeyPress等 方法:SetFocus【例题】在窗体上建立一个文本框，将输入到文本框中的小写字母转换为大写。Private Sub Text1_KeyPress(KeyAscii As Integer)Char=Chr(KeyAscii)KeyAscii=Asc(UCase(Char)End Sub,20,4.5 标签(Label)1.属性(1)Caption:标签的标题(2)Alignment:确定标签标题的对齐方式(3)AutoSize:确定标签是否
14、随标题自动调整大小(4)BorderStyle:确定标签的边框 0 无边框；1 有边框(5)BackStyle:指定背景是透明或不透明 1不透明；0透明,21,2.标签的事件:Click、DblClick.例:Private Sub Label1_DblClick()Label1.FontSize=Label1.FontSize+10 End Sub3.标签的方法:Move 格式:.Move,:指示对象左边的水平坐标(x-轴)。:指示对象顶边的垂直坐标(y-轴)。:指示对象新的宽度。:指示对象新的高度。例:Private Sub Label1_Click()Label1.Move Label1
15、.Left+50 End Sub,22,2005年4月二级VB试题,在窗体(Form1)上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则命令按钮的标题设置为“计算机等级考试”。以下能够实现上述操作的事件过程是：,A）Private Sub Text1_Change()Command1.Caption=计算机等级考试 End Sub B）Private Sub Command1_Click()Caption=计算机等级考试 End Sub C）Private Sub Form1_Click()Text1.Ca
16、ption=计算机等级考试 End Sub D）Private Sub Command1_Click()Text1.Text=计算机等级考试 End Sub,23,2004年4月二级VB试题,以下关于焦点的叙说中，错误的是（）A)如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据B)当文本框失去焦点时，触发LostFocus事件C)当文本框的Enabled属性为False时，其Tab顺序不起作用D)可以用TabIndex属性改变Tab顺序,24,2005年4月二级VB试题,为了使命令按钮Command1右移200，应使用的语句是（）A）Command1.Move-200B）Command1.Move 200C）Command1.Left=Command1.Left+200D）Command1.Left=Command1.Left-200,
