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). 如何将控件放在容器中 选中容器，在容器中直接画 选中容器

26、，粘贴控件(3). 如何检查控件是否在容器中 拖动容器，控件随容器移动(4). 删除容器时，其中的控件随之被删除(5). 框架的常用属性 Caption: Font: ForeColor: Backcolor: Enabled: Visible (6) 常用事件可以响应Click 和DoubleClick事件，但一般不用,36,6.3.3 提供选择的控件一.框架(Frame)控件(1,二 单选按钮(OptionButton),1. 作用:单选按钮(OptionButton)控件由一个圆圈“”及紧挨它的文字组成，能提供“选中”和“未选中”两种可选项成组形式出现实现多选一 其缺省名称为Option

27、X2. 属性 (1) Caption：设置文本标题 (2) Value:表示单选按钮是否被选中True选中 False未选中如果设置一个选项的Value属性为True，则组内的所有其人也选项自动设置为False (3) Alignment属性: 决定文本的对齐方式 (4) Style控制外观0为标准样式，1为图形样式,37,二 单选按钮(OptionButton)1. 作用:单选,例：设计如下图所示的界面，用选项按钮设置文本框的文字颜色和背景颜色。,3. 事件 Click事件使选项按钮从未选择变成选择状态时(单击鼠标改变、代码改变 ),38,例：设计如下图所示的界面，用选项按钮设置文本框的文字

28、颜色和,Private Sub Option1_Click() Text1.ForeColor = vbBlackEnd SubPrivate Sub Option2_Click() Text1.ForeColor = vbYellowEnd SubPrivate Sub Option3_Click() Text1.ForeColor = vbRedEnd SubPrivate Sub Option4_Click() Text1.BackColor = vbWhiteEnd SubPrivate Sub Option5_Click() Text1.BackColor = vbGreenEnd

29、SubPrivate Sub Option6_Click() Text1.BackColor = vbBlueEnd Sub,39,Private Sub Option1_Click()39,三 复选框(CheckBox),1. 作用 复选框控件由一个四方形小框和紧挨它的文字组成。提供“选中”和“未选中”两种可选项.实现多选一或多选多其缺省名称为CheckX2. 属性 (1) Caption：设置文本标题(2) Value 表示复选框的状态 0未选中 1选中 2不可用(灰度显示) (3) Alignment属性: 决定文本的对齐方式 (4) Style: 控制外观3. 事件 Click事件,4

30、0,三 复选框(CheckBox)1. 作用40,【例6.16】用单选按钮和复选按钮设置在文本框中字体的样式.,41,【例6.16】用单选按钮和复选按钮设置在文本框中字体的样式.,Private Sub ChkChu_Click() If ChkChu.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub ChkXie_Click() If ChkXie.Value = 1 Then Text1.FontItalic = True Else Text1.FontItal

31、ic = False End IfEnd Sub,Text1.FontItalic =ChkXie.Value,Text1.FontBold =ChkChu.Value,42,Private Sub ChkChu_Click()Text,Private Sub OptLi_Click() Text1.FontName = 隶书End SubPrivate Sub OptSong_Click() Text1.FontName = 宋体End Sub,43,Private Sub OptLi_Click()43,四 列表框(ListBox),1. 作用:提供选项列表. 用户可从中选择一个或多个项目

32、.内容多时自动出现滚动条.其缺省名称为ListX2. 属性 Style外形(常规形式、复选框形式) List列表内容。 设计时: 用Ctrl+换行; 代码中: List(i)表示第i项，可以访问列表中的所有项目List(0)表示第项 ListIndex返回列表框中当前选中项目的位置 如果未选定项目，则 ListIndex 值为 -1,44,四 列表框(ListBox)1. 作用:提供选项列表. 用户,ListCount返回列表框的项目总数，只在运行时可用Text返回列表框中选定项目的值与list(Listindex)的值相同.运行时有效Columns 列表形式 0:垂直单列、1:水平单列、1:

33、水平多列 MultiSelect 指示是否能多选. 0:(缺省)不允许重选 1:简单复选,鼠标单击或按下空格键在列表框中选中或取消选中项 2:扩展复选,按下Ctrl键或Shift键进行复选.,45,ListCount返回列表框的项目总数，只在运行时可用45,Selected运行期用，用于选择某项 如List1.Selected(3)=True 选择第4项Sortedtrue:元素自动按字母顺序排序 False:元素按加入的先后顺序排序3.事件: Click,DblClick,Change3. 方法 AddItem向列表框中添加新的项目 .AddItem , 项目为字符串表达式,表示要加入的项目

34、. 索引为数值表达式,指新增项目的位置.若为0,则将新项目插入到第一个位置,若省略且Sorted属性为False,则插入到最后一个位置; 若Sorted属性为True,则插入到合适的排序位置.,46,Selected运行期用，用于选择某项46,RemoveItem从列表框中移除项目 .RemoveItem 要删除列表框中所选的项目,程序段如下:,i=0Do While i=list1.listCount-1 if list1.Selected(i)=true then list1.RemoveItem i end if i=i+1Loop,Clear方法 .Clear如List1.Clear.

35、删除列表框中所有的项目,47,RemoveItem从列表框中移除项目i=0Clear方法,【例6.17】从一个列表框中选择城市名加入到另一个列表框中.,48,【例6.17】从一个列表框中选择城市名加入到另一个列表框中.,Private Sub Form_Load() List1.AddItem 昆明 List1.AddItem 北京 List1.AddItem 上海 List1.AddItem 济南 List1.AddItem 成都 List1.AddItem 长春 List1.AddItem 广州 List1.AddItem 珠海 List1.AddItem 郑州 List1.AddItem

36、 香港 List1.AddItem 大连 List1.AddItem 贵阳End Sub,49,Private Sub Form_Load()49,Private Sub List1_DblClick() List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command1_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click() List1.AddIt

37、em List2.Text List2.RemoveItem List2.ListIndexEnd Sub,50,Private Sub List1_DblClick()50,五 组合框(ComboBox),1. 作用:允许从已有的选项中进行选择，还允许输入列表中不包括的内容 列表框和文本框的组合 具有列表框和文本框的大部分属性和方法。不同的属性如下：2. 属性 Style外形 0下拉组合框(折叠) 1简单组合框(不折叠) 2下拉列表框(不能修改Text属性) Text 返回组合框中选定项目的值,设计时可修改,51,五 组合框(ComboBox)1. 作用:允许从已有的选项中,3. 事件 组合

38、框的事件与Style属性有关。 Style为0时: 响应Click、Change、DropDown事件 Style为1时: 响应Click、DblClick、Change事件 Style为2时: 响应Click、DropDown事件4. 方法 AddItem: 向组合框中添加新的项目 .AddItem , RemoveItem: 从组合框中移除项目 .RemoveItem Clear: 清除组合框中的所有项目 .Clear,52,3. 事件52,【例6.19】组合框的应用,Private Sub Combo1_Click() Text1.Text = Combo1.TextEnd SubPri

39、vate Sub Form_Load() Combo1.AddItem 北京 Combo1.AddItem 上海 Combo1.AddItem 天津 Combo1.AddItem 广州 Combo1.AddItem 昆明 Combo1.AddItem 长沙End Sub,53,【例6.19】组合框的应用Private Sub Combo,【例6.20】在窗体中输入个人信息,单击确定按钮后,将个人信息显示在信息框中,54,【例6.20】在窗体中输入个人信息,单击确定按钮后,将个人信,Private Sub Form_Load() Combo1.AddItem 正高 Combo1.AddItem

40、副高 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 Form_Load()55,Private Sub Command1_Click() p1 = Text1.Text & p2 = IIf(O

41、ption1.Value, 男, 女) & p3 = Text2.Text & 岁 & p4 = IIf(Option3.Value, 已婚, 未婚) & _ & Chr(13) p5 = 职称： & Combo1.Text & , p6 = 学历： & Combo2.Text p = p1 & p2 & p3 & p4 & p5 & p6 MsgBox p, vbOKOnly + vbInformation, _ Text1.Text & 基本情况End Sub,56,Private Sub Command1_Click()56,Private Sub Command2_Click() Un

42、load MeEnd SubPrivate Sub Form_Activate() Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End IfEnd Sub,57,Private Sub Command2_Click()57,六 滚动条(HScroIIBar、VScrollBar),1. 作用 常用于附在某个窗口上帮助观察数据或确定位置,也可以用来作为数据输入的工具.2. 滚动条结构 使用方法: (1) 拖动.用鼠标拖动滚动块 (

43、2) 单击滚动框空白区域,可以“快速”滚动 (3) 单击滚动箭头,可以一步步地“慢速”滚动,58,六 滚动条(HScroIIBar、VScrollBar)1.,3. 属性 Value设置或返回滑块当前位置的值，介于Min ,Max之间。 Max滚动条的 Value 属性最大值。 Min滚动条的 Value 属性最小值。 SmallChange单击滚动箭头时，滚动条的Value 值的改变量。 LargeChange单击滚动块和滚动箭头之间的空白区域时，滚动条 Value 值的改变量。4. 事件 Change(单击时、Value改变时)Scroll (拖动时),59,3. 属性 59,【例6.21

44、】利用滚动条来设置文本框中字体的颜色,Private Sub hsColor_Change(Index As Integer) txtColor(Index).Text = hsColor(Index).Value Text1.ForeColor = RGB(hsColor(0).Value, _ hsColor(1).Value, hsColor(2).Value)End Sub,60,【例6.21】利用滚动条来设置文本框中字体的颜色Privat,6.3.4图片框和图像框控件一图片框(PictureBox),1. 作用 作为容器，对控件进行分组 显示图像2.属性Picture:在Pictur

45、eBox框中显示的图像文件名可以在属性窗口中设置,也可以在代码中用LoadPicture函数设置.显示图像:对象名.Picture=LoadPicture(图形文件名)删除图像:对象名.Picture=LoadPicture() (也清除文字)Appearance:设置图片框的绘图风格.0-平面绘图;1-三维风格AutoSize:设置图片框是否按装入图形的大小做自动调整.其值为true和False,61,6.3.4图片框和图像框控件一图片框(PictureBo,Align:设置图片框的显示位置,其值为1、2、3、4时，图片分别放置在窗体的顶部、底部、左侧和右侧。BorderStyle:图片框的

46、边框图风格.无边框，单线边框AutoRedraw:该属性设置为true时，可以将图形方法的输出显示在图片框上，并在调整图片框大小或移去遮挡图片框的对象时，自动重绘输出的图片Image:记录了图片框中的所有图形信息，包括用绘图方法所产生的图形图像和文字信息。CurrentX:在代码中设置或返回Print方法或绘图方法的水平起始位置CurrentY:在代码中设置或返回Print方法或绘图方法的垂直起始位置,62,Align:设置图片框的显示位置,其值为1、2、3、4时，图,图片框的常用方法(P255)Line:用来在窗体或图片框中画直线和矩形格式:Object.Linestep(x1,y1)-(x

47、2,y2),Color,BFPset:用来在窗体或图片框中画点格式:Object.Psetstep(x,y),ColorCircle:用于画圆、画弧、扇形、椭圆格式: Object.Circlestep(x,y),Radius,Color,Start,End,AspectPrint:用于在图片框中输入文字,63,图片框的常用方法(P255)63,例：Private Sub Form_Load() Show Picture1.Print 在图片框内写字和画圆 Picture1.Circle(1200, 1000), 600, RGB(0, 0, 255) Picture1.PSet(1200,

48、1000), RGB(255, 0, 0)End Sub,64,例：64,二 图像框(Image),1.作用:显示图像2.属性、事件、方法:拥有图片框的一部分属性、事件和方法3. 特点: 可以自动调整控件大小以适应图像: 设 Stretch=False 延伸图形以适应控件的大小:设 Stretch=True4.与图片框的区别(1) 图片框控件可以作为其他控件的容器(2) 图片框可以通过print方法接收文本,而图像框不行(3) 图像框比图片框占用的内存少,显示速度快(4) 图像框可以通过Stretch属性延伸图形的大小以适应控件大小,65,二 图像框(Image)1.作用:显示图像65,【例6

49、.23】设计一个窗体，说明图像框Strech属性的作用,66,【例6.23】设计一个窗体，说明图像框Strech属性的作用,Private Sub Command1_Click() Image1.Width = 1000 Image1.Height = 1000 Image1.Stretch = FalseEnd SubPrivate Sub Command2_Click() Image1.Width = 1000 Image1.Height = 1000 Image1.Stretch = TrueEnd SubPrivate Sub Command3_Click() Image1.Width

50、 = 4000 Image1.Height = 4000 Image1.Stretch = TrueEnd Sub,67,Private Sub Command1_Click()67,三Line直线控件,1.作用:Line直线控件可用来在窗体、框架和图片框中绘制简单的线段。2.属性： X1、X2、Y1、Y2返回或设置line控件的起始点(X1,Y1)和终止点(X2,Y2)的坐标。 DrawMode-返回或设置一个值，以决定图形方法的输出外观或者Line及Shape控件的外观 BorderColor: BorderStyle：设置BorderWidth为1时，才能显示 BorderWidth,6