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