vb中窗体和常用内部控件介绍.ppt

V i s u a l B A S I C 程序设计 第6章 窗体和常用内部控件 6.1 窗体 6.2 标标准控件（通用属性、方法和事件 ） 6.3标标准控件的使用 命令按钮钮、显显示和输输入文本的控件 、提供选择选择 的控件、图图像框和图图片框 控件 6.4 其他控件 计时计时 和OLE控件 1 第六章 窗体和常用内部控件 窗体(Form)是设计VB应用程序的基本平 台 窗体本身是一个对象，又是其他对象的 载体或容器 多数应用程序是从窗体开始执行的 ; 一 个程序可以有多个窗体 窗体分为单文档窗体(SDI)和多文档窗体 (MDI) 6.1.1 窗体的结构 6.1.2 添加和移出窗体 6.1 窗体 2 第六章 窗体和常用内部控件 6.1.3 窗体的基本属性 设置窗体的属性，可在程序设计时在属性窗口 中手工设置，也可以在程序运行时由代码实现 一些常用的窗体属性： n Name属性：用于设置窗体的名称，通过该名称 引用窗体对象及其属性、事件和方法。 n Caption属性：用于设置窗体标题栏上的标题 内容。 n Appearance属性：用于设置窗体的外观是平面 还是三维的 nBackColor和ForeColor属性：设置窗体的背景 色和前景色 nBorderStyle属性:返回或设置对象的边框样式 3 第六章 窗体和常用内部控件 nControlBox、Maxbutton、Minbutton属性: 用于控制是否有控制菜单、最大化、最小化按钮 。 nEnabled属性：用于确定窗体是否能够对用户产生 的事件做出反应。 nHeight和Width属性：确定窗体的初始高度和宽度 ，单位是缇。 nLeft和Top属性：确定窗体的左上角在屏幕上的横 、纵坐标。单位是缇。 nPicture属性：用于在窗体上设置要显示的图形。 对象.Picture=LoadPicture(“文件名“) nVisible(可见性)：设置对象的可见性，默认值为 True nWindowState属性：用于返回或设置窗体运行时的 状态 4 第六章 窗体和常用内部控件 6.1.4窗体的事件 与窗体有关的常用事件有以下几种。 1.鼠标事件 (1)Click(单击)事件 包含3个事件 (2)DblClick(双击)事件包含6个事件 (3)MouseMove(鼠标移动)事件 (4)MouseDown(鼠标按下)事件 (5)MouseUp(鼠标释放) )事件 5 第六章 窗体和常用内部控件 【例6.2】编写程序在窗口标题栏中显示当前的坐 标位置 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.Caption = “鼠标事件演示 水平坐标=“ 点击按钮二,按钮一变为 可用,按钮二变为不可用 Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Command2.Enabled = False Command1.Enabled = True End Sub 22 第六章 窗体和常用内部控件 【例6.13】在窗体上添加一个按钮,通过点击按钮 实现窗口的最大化和还原 Private Sub Command1_Click() If Command1.Caption = “最大化（ 若Sorted属 性为True,则插入到合适的排序位置. 46 第六章 窗体和常用内部控件 RemoveItem从列表框中移除项目 .RemoveItem 要删除列表框中所选的项目,程序段如下: i=0 Do While i.Clear 如List1.Clear.删除列表框中所有的项目 47 第六章 窗体和常用内部控件 【例6.17】从一个列表框中选择城市名加 入到另一个列表框中. 48 第六章 窗体和常用内部控件 Private Sub Form_Load() List1.AddItem “昆明“ List1.AddItem “北京“ List1.AddItem “上海“ List1.AddItem “济南“ List1.AddItem “成都“ List1.AddItem “长春“ List1.AddItem “广州“ List1.AddItem “珠海“ List1.AddItem “郑州“ List1.AddItem “香港“ List1.AddItem “大连“ List1.AddItem “贵阳“ End Sub 49 第六章 窗体和常用内部控件 Private Sub List1_DblClick() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub Command1_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub Command2_Click() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End Sub 50 第六章 窗体和常用内部控件 五 组合框(ComboBox) 1. 作用:允许从已有的选项中进行选择，还允许 输入列表中不包括的内容 列表框和文本框的组合 具有列表框和文本框的大部分属性和方法 。 不同的属性如下： 2. 属性 Style外形 0下拉组合框(折叠) 1简单组合框(不折叠) 2下拉列表框(不能修改Text属性) Text 返回组合框中选定项目的值,设计时可 修改 51 第六章 窗体和常用内部控件 3. 事件 组合框的事件与Style属性有关。 Style为0时: 响应Click、Change、DropDown 事件 Style为1时: 响应Click、DblClick、Change事 件 Style为2时: 响应Click、DropDown事件 4. 方法 AddItem: 向组合框中添加新的项目 .AddItem , RemoveItem: 从组合框中移除项目 .RemoveItem Clear: 清除组合框中的所有项目 .Clear 52 第六章 窗体和常用内部控件 【例6.19】组合框的应用 Private Sub Combo1_Click() Text1.Text = Combo1.Text End Sub Private Sub Form_Load() Combo1.AddItem “北京“ Combo1.AddItem “上海“ Combo1.AddItem “天津“ Combo1.AddItem “广州“ Combo1.AddItem “昆明“ Combo1.AddItem “长沙“ End Sub 53 第六章 窗体和常用内部控件 【例6.20】在窗体中输入个人信息,单击确 定按钮后,将个人信息显示在信息框中 54 第六章 窗体和常用内部控件 Private Sub Form_Load() Combo1.AddItem “正高“ Combo1.AddItem “副高“ Combo1.AddItem “中级“ Combo1.AddItem “初级“ Combo1.AddItem “无职称“ Combo1.Text = Combo1.List(0) Combo2.AddItem “研究生“ Combo2.AddItem “大学“ Combo2.AddItem “大专“ Combo2.AddItem “高中“ Combo2.AddItem “初中“ Combo2.Text = Combo2.List(0) End Sub 55 第六章 窗体和常用内部控件 Private Sub Command1_Click() p1 = Text1.Text 1-三维风格 AutoSize:设置图片框是否按装入图形的大小做 自动调整.其值为true和False61 第六章 窗体和常用内部控件 Align:设置图片框的显示位置,其值为1、2、3 、4时，图片分别放置在窗体的顶部、底部、 左侧和右侧。 BorderStyle:图片框的边框图风格.无边 框，单线边框 AutoRedraw:该属性设置为true时，可以将图 形方法的输出显示在图片框上，并在调整图片 框大小或移去遮挡图片框的对象时，自动重绘 输出的图片 Image:记录了图片框中的所有图形信息，包括 用绘图方法所产生的图形图像和文字信息。 CurrentX:在代码中设置或返回Print方法或绘 图方法的水平起始位置 CurrentY:在代码中设置或返回Print方法或绘 图方法的垂直起始位置 62 第六章 窗体和常用内部控件 图片框的常用方法(P255) Line:用来在窗体或图片框中画直线和矩形 格式:Object.Linestep(x1,y1)- (x2,y2),Color,BF Pset:用来在窗体或图片框中画点 格式:Object.Psetstep(x,y),Color Circle:用于画圆、画弧、扇形、椭圆 格式: Object.Circlestep(x,y),Radius,Color ,Start,End,Aspect Print:用于在图片框中输入文字 63 第六章 窗体和常用内部控件 例： Private Sub Form_Load() Show Picture1.Print “在图片框内写字和画圆“ Picture1.Circle(1200, 1000), 600, RGB(0, 0, 255) Picture1.PSet(1200, 1000), RGB(255, 0, 0) End Sub 64 第六章 窗体和常用内部控件 二 图像框(Image) 1.作用:显示图像 2.属性、事件、方法:拥有图片框的一部分属性、 事件和方法 3. 特点: 可以自动调整控件大小以适应图像: 设 Stretch=False 延伸图形以适应控件的大小:设 Stretch=True 4.与图片框的区别 (1) 图片框控件可以作为其他控件的容器 (2) 图片框可以通过print方法接收文本,而图像框 不行 (3) 图像框比图片框占用的内存少,显示速度快 (4) 图像框可以通过Stretch属性延伸图形的大小 以适应控件大小 65 第六章 窗体和常用内部控件 【例6.23】设计一个窗体，说明图像框Strech属 性的作用 66 第六章 窗体和常用内部控件 Private Sub Command1_Click() Image1.Width = 1000 Image1.Height = 1000 Image1.Stretch = False End Sub Private Sub Command2_Click() Image1.Width = 1000 Image1.Height = 1000 Image1.Stretch = True End Sub Private Sub Command3_Click() Image1.Width = 4000 Image1.Height = 4000 Image1.Stretch = True End Sub 67 第六章 窗体和常用内部控件 三Line直线控件 1.作用:Line直线控件可用来在窗体、框架 和图片框中绘制简单的线段。 2.属性： X1、X2、Y1、Y2返回或设置line控件的 起始点(X1,Y1)和终止点(X2,Y2)的坐标。 DrawMode-返回或设置一个值，以决定图形 方法的输出外观或者Line及Shape控件的外 观 BorderColor: BorderStyle：设置BorderWidth为1时，才 能显示 BorderWidth 68 第六章 窗体和常用内部控件 四 Shape控件 1.作用：用于绘制矩形、正方形、椭圆、圆形、 圆角矩形或者圆角正方形。 2.属性: Shape返回或设置Shape控件的外观(如表 6.20) FillColor 返回或设置填充形状的颜色,也可以 用来填充由Circle和Line图形方法生成的圆和方 框. FillStyle 返回或设置用来填充Shape控件,以 及Circle和Line图形方法生成的圆和方框的模式 (如表6.24) 69 第六章 窗体和常用内部控件 6.4 其他控件 一.Timer控件 1. 作用:周期性地执行某功能、运行时不可见 2. 属性 Enabled: 将Enabled设置为False时将停止 定时器的计时操作 Interval: 决定了时钟事件之间的间隔,单位 为毫秒. 3. 事件 Timer事件: 每当计时时间到时产生Timer 事件 注: 一个计时器的最大计时时间为65535毫秒 , 70 第六章 窗体和常用内部控件 【例6.24】设计一个简单的电子时钟 Private Sub Timer1_Timer() Text1.Text = Time End Sub 属性设置: Timer1 的Interval属性设为1000 代码如下: 71 第六章 窗体和常用内部控件 【例6.25】设计一个简单的滚动字幕程序 属性设置: Timer1 的Interval属性设为1000 Enabled属性设为False 72 第六章 窗体和常用内部控件 Private Sub Command1_Click() Timer1.Enabled = Tru