vb中窗体和常用内部控件介绍.ppt
《vb中窗体和常用内部控件介绍.ppt》由会员分享,可在线阅读,更多相关《vb中窗体和常用内部控件介绍.ppt(75页珍藏版)》请在三一文库上搜索。
1、1,第6章 窗体和常用内部控件,6.1 窗体 6.2 标准控件(通用属性、方法和事件) 6.3标准控件的使用 命令按钮、显示和输入文本的控件、提供选择的控件、图像框和图片框控件 6.4 其他控件 计时和OLE控件,2,窗体(Form)是设计VB应用程序的基本平台 窗体本身是一个对象,又是其他对象的载体或容器 多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗体 窗体分为单文档窗体(SDI)和多文档窗体(MDI) 6.1.1 窗体的结构 6.1.2 添加和移出窗体,6.1 窗体,3,6.1.3 窗体的基本属性 设置窗体的属性,可在程序设计时在属性窗口中手工设置,也可以在程序运行时由代码实现
2、 一些常用的窗体属性: Name属性:用于设置窗体的名称,通过该名称引用窗体对象及其属性、事件和方法。 Caption属性:用于设置窗体标题栏上的标题内容。 Appearance属性:用于设置窗体的外观是平面还是三维的 BackColor和ForeColor属性:设置窗体的背景色和前景色 BorderStyle属性:返回或设置对象的边框样式,4,ControlBox、Maxbutton、Minbutton属性: 用于控制是否有控制菜单、最大化、最小化按钮。 Enabled属性:用于确定窗体是否能够对用户产生的事件做出反应。 Height和Width属性:确定窗体的初始高度和宽度,单位是缇。 L
3、eft和Top属性:确定窗体的左上角在屏幕上的横、纵坐标。单位是缇。 Picture属性:用于在窗体上设置要显示的图形。 对象.Picture=LoadPicture(“文件名“) Visible(可见性):设置对象的可见性,默认值为True WindowState属性:用于返回或设置窗体运行时的状态,5,6.1.4窗体的事件 与窗体有关的常用事件有以下几种。 1.鼠标事件 (1)Click(单击)事件 包含3个事件 (2)DblClick(双击)事件包含6个事件 (3)MouseMove(鼠标移动)事件 (4)MouseDown(鼠标按下)事件 (5)MouseUp(鼠标释放) )事件,6,
4、【例6.2】编写程序在窗口标题栏中显示当前的坐标位置,Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.Caption = “鼠标事件演示 水平坐标=“ & X & “ 垂直坐标=“ & Y End Sub,7,2.键盘事件 (1)KeyDown(键按下)事件 (2)KeyUp(键弹起)事件 (3)KeyPress(按键)事件:当按下键盘上的某个健时,将触发KeyPress事件。其事件过程的格式为: Private Sub 对象_KeyPress(Key
5、Ascii As Integer) End Sub 参数KeyAscii返回所按键的ASCII码,8,【例6.3】 编写程序利用键盘 “”和“”实现窗口的变小和变大,Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(“) Me.Width = Me.Width * 0.9 Me.Height = Me.Height * 0.9 Case Asc(“) Me.Width = Me.Width * 1.1 Me.Height = Me.Height * 1.1 End Select End Su
6、b,9,3.其他事件 (1)Load(装载)事件 【例6.4】设计程序,使窗体一打开就在屏幕的右上角 Private Sub Form_Load() Form1.Top = 0 Form1.Left = Screen.Width - Form1.Width End Sub (2)Unload(卸载)事件 (3)Activate(活动)、Deactivate(非活动)事件 (4)Paint事件 当移动窗体、改变窗体大小,最大化,最小化,窗体被其他窗体遮住后再次显示,等等时都会发生,10,(1)Show方法:用于快速显示一个窗体,使该窗体变成活动窗体 (2)Hide方法:用于隐藏form对象,将其
7、Visible属性设置为False. (3)Print方法:用于在窗体上输出表达式的值 (4)Cls方法:用于清除运行时在窗体中显示的文本或图形.Picture属性和控件不受影响.激活前把AutoDraw属性设置为true. (5)Move(移动)方法:用于移动并改变窗体或控件的位置和大小 Form1.move ,top,width,height Form1.Move Form1.Left + 500, Form1.Top + 500, Form1.Width * 2,6.1.5 窗体的方法,11,6.2 标准控件,12,ActiveX控件: 一般以很多*.ocx文件独立存在,是对标准控件的扩
8、充,不会自动显示在工具箱中需用利用菜单对应的文件加载到工程中,“工程” “部件”,13,6.2.1 控件的通用属性,1. Name属性 (1) 运行时是只读的 (2) 缺省名称 (3) 以字母开始,最长40个字符,可包括字母、数字和下划线,不能包括标点符号或空格(允许汉字) (4) 所有控件都有此属性 2. Caption属性 (1) 标题文本属性 (2) Label控件标题大小没有限制。其他有标题的控件,标题大小限制为255个字符。 (3) 注意与Name属性、Text属性的区别,14,3. Height、Width、Left、 Top属性 用于设置对象的高度、宽度和控件距离容器的左边距和顶
9、边距。 4. BackColor、ForeColor属性 设置控件的背景色和前景色 如设置窗体form1的背景色为红色: (1)form1.backcolor=vbred (2)form1.backcolor=RGB(255,0,0) (3)form1.backcolor=&HFF,15,5. Font属性 格式: .Font. : Name、Size、Bold、Italic、 Underline、Strikethrough 例: Form1.Font.Size = 14 Command1.FontItalic = True 6. Enabled属性 决定控件是否能够对用户产生的事件作出响应
10、7. Visible属性 注意: 如果在属性窗口中将控件的Visible属性设置为False,则控件在设计窗体上仍是可见的,仅在运行时才不可见。,16,6.2.2 控件的通用事件,1.Click事件和DblClick事件 2.Change事件 3.GotFocus和LostFocus事件,【例6.9】焦点事件实例。当文本获得焦点时,文本背景为白色,处于激活状态,当失去焦点时,背景为浅灰色。 Private Sub Text1_GotFocus() Text1.BackColor = &HFFFFFF End Sub Private Sub Text1_LostFocus() Text1.Bac
11、kColor = &HC0C0C0 End Sub,17,4. KeyPress事件 5. KeyDown和KeyUp事件 6. MouseMove事件 7. MouseDown事件和MouseUp事件,18,6.2.3 控件的通用方法,1. Move方法 功能:用于移动控件,或改变控件大小 语法:Move Left,top,Width,Height,【例6.10】当按钮Cmd1获得焦点时,按键盘上任意字符键后使文本框保持原位置不变且扩大1.5倍. Private Sub cmd1_KeyPress(KeyAscii As Integer) Text1.Move 4440, 720, Text
12、1.Width * 1.5, Text1.Height * 1.5 End Sub,19,2. Refresh方法 用于窗体和控件的刷新 下列情况使用Refresh方法 (1)在另一个窗体被加载时显示一个窗体的全部 (2) 更新诸如FilelistBox控件之类的文件列表框的内容. (3) 更新Data控件的数据结构. 3. Setfocus方法,20,6.3 标准控件的使用,6.3.1 命令按钮控件 属性: Default:属性为true时,则该按钮为默认按钮,回车相当于单击该按钮.在一个窗体中,只允许一个命令按钮的Default属性设置为true. Cancel:属性为true时,则该按钮
13、为默认的取消按钮,按ESC相当于单击该按钮.在一个窗体中,只允许一个命令按钮的Cancel属性设置为true.,21,Style:用来设置命令按钮的显示类型Standard:Graphical Picture:设置命令按钮中要显示的图形,但只有在Style属性设置为时图形才能显示 DownPicture:返回/设置按钮按下时显示的图形,通过文件加载此图形,22,【例6.12】两个命令按钮,按钮一初始状态为可用, 按钮二初始状态为不可用,点击按钮一,按钮二变为可用,按钮一变为不可用;点击按钮二,按钮一变为可用,按钮二变为不可用,Private Sub Command1_Click() Comma
14、nd1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Command2.Enabled = False Command1.Enabled = True End Sub,23,【例6.13】在窗体上添加一个按钮,通过点击按钮实现窗口的最大化和还原,Private Sub Command1_Click() If Command1.Caption = “最大化(&L)“ Then Me.WindowState = 2 Command1.Caption = “还原(&B)“ Else Me.Wi
15、ndowState = 0 Command1.Caption = “最大化(&L)“ End If End Sub,24,6.3.2 显示和输入文本的控件 (Label和TextBox) 1. 标签的属性 (1) Caption: 标签的标题。 (2) Alignment: 确定标签标题的对齐方式。 (3) AutoSize: 确定标签是否随标题自动调整大小。 (4) BorderStyle: 确定标签的边框。 0 无边框;1 有边框。 (5) BackStyle: 指定背景是透明或不透明。 1不透明;0透明。 (6) WordWrap: 指示是否随标题沿垂直方向自动扩展。 True标签将随标
16、题在垂直方向变化。 (此时AutoSize属性值应设置为True) False标签不能在垂直方向上扩展。,25,【例3】测试标签的边框样式和透明样式。 在窗体上放置一标签,显示“Visual Basic程序设计教程”,放置四个命令按钮,Command1放在Command2上,Command3放在Command4上。运行时,单击相应按钮,界面发生相应变化。,26,Private Sub Command2_Click() Label1.BorderStyle = 0 Command1.Visible = True Command2.Visible = False End Sub,Private S
17、ub Command1_Click() Label1.BorderStyle = 1 Command1.Visible = False Command2.Visible = True End Sub,27,Private Sub Command3_Click() Label1.BackStyle = 1 Command3.Visible = False Command4.Visible = True End Sub,Private Sub Command4_Click() Label1.BackStyle = 0 Command3.Visible = True Command4.Visible
18、 = False End Sub,28,2. 文本框的属性 (1) Text: 返回或设置文本框显示的内容。 例: Text1.Text = “欢迎使用Visual Basic“ (2) MultiLine: 决定是否可以显示多行文本。 (3) PasswordChar: 常用于输入口令。 在文本框中键入字符显示为该指定的字符。 (此时MultiLine属性值应为False) (4) ScrollBars: 用于确定文本框是否带滚动条以及滚动条的方向。 (仅当MultiLine属性值为True时才可以带滚动条),29,(5) SelLength: 在运行期返回或设置选择的字符数。 例: Tex
19、t1.SelLength=Len(Text1.Text) 表示选中文本框Text1中所有字符。 (6) SelStart: 在运行期返回或设置当前选择文本的起始位置。 例: Text1.SelStart=0 表示选择文本的起始位置从第一个字符开始。 (7) Locked: 指定运行时文本框内容是否可以编辑。 False可以编辑 True不可编辑(只读) 2. 文本框的事件和方法 事件: Change 、Click、DblClick、 GotFocus、LostFocus、KeyPress等 方法: SetFocus,30,【例6.14】模拟会员信息登记.在窗口FormTxtBox中输入相关信息
20、,并做简单的输入信息合法检查,在窗口FormBack中输出合法信息,31,32,Private Sub CmdClear_Click() TextID.Text = “ TextPassWord.Text = “ TextName.Text = “ TextMail.Text = “ TextResume.Text = “ End Sub,33,Private Sub CmdOK_Click() Dim TextPassWordLength As Integer Dim flag As Integer TextPassWordLength = Len(TextPassWord.Text) If
21、 (TextID.Text = “ Or TextPassWord.Text = “ _ Or TextName.Text = “ Or TextMail.Text = “ _ Or TextResume.Text = “) Then MsgBox (“信息输入不完整!“) TextID.SetFocus flag = 0 Else,34,If (TextPassWordLength 5 Or _ TextPassWordLength = 5) Then MsgBox (“密码不足6位!“) TextPassWord.Text = “ TextPassWord.SetFocus flag =
22、0 Else: flag = 1 End If End If,35,If flag = 1 Then FormBack.TextAll.Text = LblID.Caption & “ “ & _ TextID.Text &vbNewLine & LblPassWord.Caption _ & “ “ & TextPassWord.Text &vbNewLine & _ LblName.Caption & “ “ & TextName.Text & _ vbNewLine & LblMail.Caption & “ “ & _ TextMail.Text &vbNewLine & LblRes
23、ume.Caption _ & “ “ & TextResume.Text Load FormBack FormBack.Show FormTxtBox.Visible = False End If End Sub,36,6.3.3 提供选择的控件 一.框架(Frame)控件,(1). 作用: 作为容器,对控件进行分组 (2). 如何将控件放在容器中 选中容器,在容器中直接画 选中容器,粘贴控件 (3). 如何检查控件是否在容器中 拖动容器,控件随容器移动 (4). 删除容器时,其中的控件随之被删除 (5). 框架的常用属性 Caption: Font: ForeColor: Backcolo
24、r: Enabled: Visible (6) 常用事件 可以响应Click 和DoubleClick事件,但一般不用,37,二 单选按钮(OptionButton),1. 作用: 单选按钮(OptionButton)控件由一个圆圈“”及紧挨它的文字组成,能提供“选中”和“未选中”两种可选项成组形式出现 实现多选一 其缺省名称为OptionX 2. 属性 (1) Caption:设置文本标题 (2) Value:表示单选按钮是否被选中True选中 False未选中 如果设置一个选项的Value属性为True,则组内的所有其人也选项自动设置为False (3) Alignment属性: 决定文本
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 窗体 常用 内部 控件 介绍
链接地址:https://www.31doc.com/p-2895066.html