《Visual Basic语言程序设计教程（第二版）》课件第4章 控件.ppt

1、v工具箱控件图解工具箱控件图解4.1 概述概述指示器指示器标签标签框架框架复选框复选框组合框组合框水平滚动条水平滚动条时钟时钟目录列表框目录列表框形状形状图象框图象框OLE图片框图片框文本框文本框命令按钮命令按钮单选按钮单选按钮列表框列表框垂直滚动条垂直滚动条驱动器列表驱动器列表文件列表文件列表LINEDatav控件是控件是VBVB中预先定义好了的、程序中能够直接使用的中预先定义好了的、程序中能够直接使用的对象，每个控件都有自己的属性、事件和方法。对象，每个控件都有自己的属性、事件和方法。vVBVB有三种控件：有三种控件：标准控件：标准控件：存在于工具栏中，不可删除。被封装在存在于工具栏中，不

2、可删除。被封装在VBVB的的 .exe.exe文件中，不可以删除。文件中，不可以删除。ActiveXActiveX控件：控件：由第三方制造的，以独立文件存在，由第三方制造的，以独立文件存在，扩展名为扩展名为.ocx,.ocx,使用前必须添加到工具栏中。使用前必须添加到工具栏中。可插入的对象：可插入的对象：如如Execl,WordExecl,Word等能添加到工具栏中，等能添加到工具栏中，所以也是控件。所以也是控件。v向工具箱中添加控件的方法向工具箱中添加控件的方法 如果想使用标准工具箱中没有的控件，则必须将该如果想使用标准工具箱中没有的控件，则必须将该控件添加到工具箱中。控件添加到工具箱中。添

3、加过程如下：添加过程如下：4.1 概述概述v 向窗体上添加控件，有三种方法：向窗体上添加控件，有三种方法：方法一：方法一：单击工具箱中的某控件图标，该图标反相显示；单击工具箱中的某控件图标，该图标反相显示；移动鼠标至窗体上，光标变为移动鼠标至窗体上，光标变为“+”+”，按下鼠标左键不放，向右，按下鼠标左键不放，向右下方拖动鼠标；下方拖动鼠标；当控件为合适大小时松开鼠标，一个控件就添加好了。当控件为合适大小时松开鼠标，一个控件就添加好了。方法二：方法二：双击工具箱中的某控件图标，在窗体中就添加了该控件，与第一双击工具箱中的某控件图标，在窗体中就添加了该控件，与第一种方法不同的是，所添加控件大小、

4、位置是固定的。种方法不同的是，所添加控件大小、位置是固定的。方法三：方法三：按如下步骤操可以添加多个某种类型的控件：按如下步骤操可以添加多个某种类型的控件：按住按住CtrlCtrl键，不要松开；键，不要松开；单击工具箱中要画的控件的图标，然后松开单击工具箱中要画的控件的图标，然后松开CtrlCtrl键；键；按第一种方法在窗体上画出控件按第一种方法在窗体上画出控件(可以画一个或多个可以画一个或多个)；画完控件后，单击工具箱中的指针图标画完控件后，单击工具箱中的指针图标(或其他图标或其他图标)。4.1 概述概述4.2.1 4.2.1 标签（标签（LabelLabel）v标签控件主要用于标注没有标签

5、控件主要用于标注没有CaptionCaption属性的控件的用途属性的控件的用途或向用户显示运行结果的。标签在运行时不具有交互或向用户显示运行结果的。标签在运行时不具有交互性性 ，不能响应用户事件。，不能响应用户事件。v标签控件的属性标签控件的属性 AlignmentAlignment：设置标签中文本的对齐方式。语法格式：设置标签中文本的对齐方式。语法格式：4.2 基本控件基本控件对象名对象名.Alignment=0|1|2.Alignment=0|1|2属性值属性值说说 明明0 0(默认值默认值)从左边开始显示标题，即左对齐从左边开始显示标题，即左对齐1 1从右边开始显示标题，即右对齐从右边

6、开始显示标题，即右对齐2 2从中间开始显示标题，即居中对齐从中间开始显示标题，即居中对齐v 标签控件的属性标签控件的属性AutoSizeAutoSize：设置标签是否能够自动调整大小以显示所有的：设置标签是否能够自动调整大小以显示所有的内容。内容。语法格式：语法格式：其中：其中：属性值为属性值为False(False(默认值默认值)表示显示控件的原始大小，表示显示控件的原始大小，属性值为属性值为TrueTrue表示根据控件中的内容自动调整控件大表示根据控件中的内容自动调整控件大小。小。BackStyleBackStyle：设置标签的背景样式。语法格式：设置标签的背景样式。语法格式：其中：其中：

7、属性值为属性值为1(1(默认值默认值)表示背景是不透明的；属性值为表示背景是不透明的；属性值为0 0表示背景是透明的。表示背景是透明的。4.2 标签标签（Label）对象名对象名.AutoSize=True|False.AutoSize=True|False对象名对象名.BackStyle=0|1.BackStyle=0|1v标签控件的属性标签控件的属性BorderStyleBorderStyle：设置标签的边框样式。语法格式：设置标签的边框样式。语法格式：其中：其中：属性值为属性值为0(0(默认值默认值)表示无边框；属性值为表示无边框；属性值为1 1表示表示单线边框。单线边框。Caption

8、Caption：设置标签的文本内容。：设置标签的文本内容。语法格式：语法格式：4.2.1 标签标签(Label)对象名对象名.Caption=.Caption=字符串字符串 对象名对象名.BorderStyle=0|1.BorderStyle=0|1v标签控件的事件和方法标签控件的事件和方法 标签具有标签具有Click(Click(单击单击)，DbClick(DbClick(双击双击)等事件，但等事件，但一般不需要编写代码。一般不需要编写代码。标签的方法中常用的只有标签的方法中常用的只有MoveMove，其基本语法如下：，其基本语法如下：其中：其中：leftleft，toptop，widthw

9、idth，heightheight分别表示移动目分别表示移动目的位置的坐标和大小。的位置的坐标和大小。leftleft为必要参数，其他为必要参数，其他三个为可选参数。三个为可选参数。4.2.1 标签标签(Label)对象名对象名.Move.Move left,top,width,heightleft,top,width,height例例4.1v设计一个界面说明标签的基本属性的使用设计一个界面说明标签的基本属性的使用 v界面设计界面设计属性设置属性设置对象名对象名属性名属性名属性值属性值Label1Label1CaptionCaption默认值默认值Label2Label2CaptionCapt

10、ion学习学习VBVBAutoSizeAutoSizeTrueTrueBackStyleBackStyle0(0(透明透明)BorderStyleBorderStyle1(1(单线边框单线边框)运行结果运行结果4.2.2 4.2.2 文本框（文本框（TextText）v文本框是一个文本编辑区域，主要用于接收用户的输文本框是一个文本编辑区域，主要用于接收用户的输入、输出、修改等信息，可以输入单行文本，也可以入、输出、修改等信息，可以输入单行文本，也可以输入多行文本，在程序运行过程中具有良好的交互性。输入多行文本，在程序运行过程中具有良好的交互性。v文本框控件的属性文本框控件的属性 NameNam

11、e：设置文本框的名称。：设置文本框的名称。TextText：设置文本框中显示的文本内容。语法格式：设置文本框中显示的文本内容。语法格式：4.2 基本控件基本控件对象名对象名.Text=.Text=字符串字符串v 文本框控件的属性文本框控件的属性 LockedLocked：设置文本框是否可以被编辑。语法格式：设置文本框是否可以被编辑。语法格式：其中：其中：属性值为属性值为FalseFalse（默认值）表示文本内容可以编辑；（默认值）表示文本内容可以编辑；属性值为属性值为TrueTrue表示文本内容只能读但不能修改。表示文本内容只能读但不能修改。MaxLengthMaxLength：设置文本框中输

12、入的字符串最大长度。：设置文本框中输入的字符串最大长度。其中：其中：属性值属性值为为0 0（默认值）表示文本框中字符串的长度为（默认值）表示文本框中字符串的长度为任意值，只受操作系统内存的限制；属性值为任意值，只受操作系统内存的限制；属性值为大于大于0 0的整数的整数，该整数表示能够输入的最大字符数目。，该整数表示能够输入的最大字符数目。4.2.2 文本框文本框(TextBox)对象名对象名.Locked=True|False.Locked=True|Falsev 文本框控件的属性文本框控件的属性 MultiLineMultiLine：设置文本框是否可以输入多行文本。：设置文本框是否可以输入多

13、行文本。语法格式：语法格式：其中：其中：属性值为属性值为FalseFalse（默认值）表示只能单行显示，不能显示（默认值）表示只能单行显示，不能显示多行；属性值设置为多行；属性值设置为TrueTrue，表示可以多行显示文本，若文，表示可以多行显示文本，若文本行数超过文本框宽度，系统会自动为文本框添加滚动条。本行数超过文本框宽度，系统会自动为文本框添加滚动条。PasswordCharPasswordChar：设置是否在文本框中显示用户所输入的字符：设置是否在文本框中显示用户所输入的字符串。语法格式为：串。语法格式为：其中：其中：该属性如被设置为某一字符，如该属性如被设置为某一字符，如“*”，则无

14、论在，则无论在TextText属属性值中输入什么，在文本框中都只显示性值中输入什么，在文本框中都只显示“*”。4.2.2 文本框文本框(TextBox)对象名对象名.MultiLine=True|False.MultiLine=True|False 对象名对象名.PasswordChar=.PasswordChar=*注意：该属性有效的前提是注意：该属性有效的前提是MultiLineMultiLine属性必须属性必须设置为设置为FalseFalse。v文本框控件的属性文本框控件的属性 ScrollBarsScrollBars：设置文本框滚动条的模式。语法格式：设置文本框滚动条的模式。语法格式：

15、4.2.2 文本框文本框(TextBox)对象名对象名.ScrollBars=0|1|2|3.ScrollBars=0|1|2|3属性值属性值说说 明明0 0（默认值）表示没有滚动条（默认值）表示没有滚动条1 1表示只有水平滚动条表示只有水平滚动条2 2表示只有垂直滚动条表示只有垂直滚动条3 3表示既有水平滚动条又有垂直滚动条表示既有水平滚动条又有垂直滚动条v 文本框控件的属性文本框控件的属性 SelLengthSelLength、SelStartSelStart和和SelTextSelText：控制文本框中的插入点和：控制文本框中的插入点和文本选定操作，这些属性仅能在运行时使用。语法格式：文

16、本选定操作，这些属性仅能在运行时使用。语法格式：其中：其中：SelLengthSelLength设置选定文本的长度，只能在代码中使用，若设置选定文本的长度，只能在代码中使用，若值为值为0 0，表示未选中任何内容。，表示未选中任何内容。SelStartSelStart设置选定文本的起始点，只能在代码中使用，第设置选定文本的起始点，只能在代码中使用，第一个字符位置是一个字符位置是0 0。SelTextSelText设置当前选定文本的内容，只能在代码中使用设置当前选定文本的内容，只能在代码中使用4.2.2 文本框文本框(TextBox)对象名对象名.SelLength=.SelLength=数值数值

17、 对象名对象名.SelStart=.SelStart=数值数值 对象名对象名.SelText=.SelText=字符串字符串Text1.SelStart=1Text1.SelStart=1Text1.SelLength=3Text1.SelLength=3Text2.Text=Text1.SelTextText2.Text=Text1.SelTextv文本框控件的事件文本框控件的事件 ChangeChange：当用户改变文本框的内容时，该文本框的：当用户改变文本框的内容时，该文本框的ChangeChange事件被触发，该事件对应的代码结构如下：事件被触发，该事件对应的代码结构如下：4.2.2

18、文本框文本框(TextBox)Private SubPrivate Sub Text1_ChangeText1_Change()()End Sub End Sub4.2.2 文本框文本框(TextBox)&例：程序运行时，通过用户输入，同步设置窗体的标题，例：程序运行时，通过用户输入，同步设置窗体的标题，即用户输入什么，窗体标题就同步显示什么。即用户输入什么，窗体标题就同步显示什么。分析：分析：接收用户输入接收用户输入 用户输入的内容保存在文本框的什么属性中用户输入的内容保存在文本框的什么属性中 窗体的标题与文本框内容一致窗体的标题与文本框内容一致赋值将文本框内容赋值将文本框内容TextTex

19、t赋予窗体的标题属性赋予窗体的标题属性CaptionCaption 同步显示同步显示 代码：代码：文本框文本框textForm1.caption=text1.text文本框文本框Change事件事件Private Sub Text1_Change()Private Sub Text1_Change()Form1.Caption=Text1.TextForm1.Caption=Text1.TextEnd SubEnd Sub4.2.2 文本框文本框(TextBox)&例：程序运行时，用户输入密码时，在另一个文本框中例：程序运行时，用户输入密码时，在另一个文本框中显示用户输入的密码。显示用户输入的

20、密码。分析：分析：接收用户输入接收用户输入 用户输入的内容保存在文本框的什么属性中用户输入的内容保存在文本框的什么属性中 文本框文本框2 2与文本框与文本框1 1内容一致内容一致 同步显示同步显示 代码：代码：文本框文本框TextText2.text=text1.text文本框文本框Change事件事件Private Sub Text1_Change()Private Sub Text1_Change()End SubEnd SubText2.Text=Text1.Textv 文本框控件的事件文本框控件的事件 KeyPressKeyPress：当文本框被选中时，按任意键该文本框的：当文本框被选

21、中时，按任意键该文本框的KeyPressKeyPress事件被触发，该事件对应的代码结构如下：事件被触发，该事件对应的代码结构如下：其中：其中：KeyAsciiKeyAscii是按键事件的参数，反映了按键对应键名的是按键事件的参数，反映了按键对应键名的ASCIIASCII码值，输入数据时，通过码值，输入数据时，通过KeyPressKeyPress事件过程来事件过程来识别输入字符是否正确，达到判断检查的功能。识别输入字符是否正确，达到判断检查的功能。一般经常用以上两个事件过程中设置代码，来实现对一般经常用以上两个事件过程中设置代码，来实现对输入文本框中的内容进行检查、验证和确认。输入文本框中的内

22、容进行检查、验证和确认。4.2.2 文本框文本框(TextBox)Private SubPrivate Sub Text_KeyPressText_KeyPress(KeyAscii(KeyAscii AsAs Integer)Integer)End Sub End Sub4.2.2 文本框文本框(TextBox)&例：判断文本框中输入的内容是否为数字例：判断文本框中输入的内容是否为数字 按键盘上某键，如果输入的值不是按键盘上某键，如果输入的值不是0 09 9之间的数字，则之间的数字，则在窗体上显示相关的提示信息，否则没有任何提示。在窗体上显示相关的提示信息，否则没有任何提示。Private

23、Sub Text1_KeyPress(KeyAscii As Integer)Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii Asc(9)If KeyAscii Asc(9)ThenThen Print Print 你输入的不是数字你输入的不是数字 End If End IfEnd SubEnd Subv文本框控件的方法文本框控件的方法 SetFocusSetFocus：可以设置焦点，其获得焦点的显示效果：可以设置焦点，其获得焦点的显示效果是焦点（光标）在文本框中闪动。语法格式：是焦点（光标）在文本框中闪动。语法格式：让指定

24、的对象获得焦点。设置焦点，本方法可使指让指定的对象获得焦点。设置焦点，本方法可使指定的文本框定的文本框(或其他有聚焦能力的对象或其他有聚焦能力的对象)成为焦点，成为焦点，也就是当前文本框，成为焦点的文本框中具有闪动也就是当前文本框，成为焦点的文本框中具有闪动的光标的光标.4.2.2 文本框文本框(TextBox)对象名对象名.SetFocus.SetFocus口令口令口令口令口令口令v例例 设计一个程序可检查密码是否正确，密码为设计一个程序可检查密码是否正确，密码为“12345”12345”口令口令口令口令4.2.2 文本框控件文本框控件(TextBox)4.2.3 4.2.3 命令按钮（命令

25、按钮（CommandButton CommandButton）v 命令按钮通常在命令按钮通常在ClickClick事件中编写一段程序，当用户用鼠标单击这事件中编写一段程序，当用户用鼠标单击这个按钮时，就会启动这段程序，执行某一特定的功能。个按钮时，就会启动这段程序，执行某一特定的功能。v 命令按钮控件的属性命令按钮控件的属性 CaptionCaption：设置命令按钮的标题。：设置命令按钮的标题。DefaultDefault：设置命令按钮是否为默认按钮，即当运行程序时，用：设置命令按钮是否为默认按钮，即当运行程序时，用户按回车键时，就激活它。户按回车键时，就激活它。语法格式语法格式：其中，属性

26、值为其中，属性值为FalseFalse（默认值）表示该按钮不响应（默认值）表示该按钮不响应DefaultDefault事件；属性值为事件；属性值为TrueTrue表示该命令响应表示该命令响应DefaultDefault事件，即当用户按事件，即当用户按EnterEnter键时，与单击该按钮效果相同。键时，与单击该按钮效果相同。CancelCancel：设置命令按钮是否为：设置命令按钮是否为CancelCancel按钮，即当用户按按钮，即当用户按EscEsc键时，键时，是否触发它的是否触发它的ClickClick事件。语法格式：事件。语法格式：4.2 基本控件基本控件对象名对象名.Cancel=T

27、rue|False.Cancel=True|False对象名对象名.Default=True|False.Default=True|False注意：注意：在一个窗体内，只能有一个在一个窗体内，只能有一个DefaultDefault命令按钮命令按钮,也只能也只能有一个有一个CancelCancel命令按钮。命令按钮。v命令按钮控件的属性命令按钮控件的属性 EnabledEnabled：设置命令按钮是否能被按下。语法格式：设置命令按钮是否能被按下。语法格式：其中其中:属性值为属性值为TrueTrue（默认值）表示该按钮能被响应；（默认值）表示该按钮能被响应；属性值为属性值为FalseFalse表示

28、该按钮不能被响应，以灰色表示该按钮不能被响应，以灰色显示。显示。PicturePicture：设置命令按钮上显示的图形。语法格式：设置命令按钮上显示的图形。语法格式：4.2.3 命令按钮命令按钮(CommandButton)对象名对象名.Enabled=True|False.Enabled=True|False对象名对象名.Picture=LoadPicture(.Picture=LoadPicture(图形文件名图形文件名)v命令按钮控件的属性命令按钮控件的属性 StyleStyle：设置命令按钮的类型。语法格式：设置命令按钮的类型。语法格式：ToolTipTextToolTipText：设

29、置当鼠标在命令按钮上暂停时显示：设置当鼠标在命令按钮上暂停时显示的文本。的文本。4.2.3 命令按钮命令按钮(CommandButton)对象名对象名.Style=0|1.Style=0|1属性值属性值说说 明明0 0(默认值默认值)表示为标准按钮，只显示表示为标准按钮，只显示CaptionCaption属性设置属性设置的文本的文本1 1表示为图形风格，只显示由表示为图形风格，只显示由PicturePicture属性指定的图片属性指定的图片对象名对象名.ToolTipText=.ToolTipText=字符串字符串v命令按钮控件的事件命令按钮控件的事件 ClickClick、MouseDown

30、MouseDown、MouseUpMouseUp：当单击鼠标时就会触：当单击鼠标时就会触发该三个事件。他们触发的顺序为发该三个事件。他们触发的顺序为MouseDownMouseDown、ClickClick、MouseUp MouseUp 事件。事件。4.2.3 命令按钮命令按钮(CommandButton)对象名对象名.Default=True|False.Default=True|False注意：注意：MouseDownMouseDown和和MouseUpMouseUp只能通过单击鼠标触发；而只能通过单击鼠标触发；而ClickClick既可通过单击鼠标触发，还可以在按钮获得既可通过单击鼠标

31、触发，还可以在按钮获得焦点时按空格或回车键触发。焦点时按空格或回车键触发。4.2.3 命令按钮命令按钮(CommandButton)v命令按钮的主要方法命令按钮的主要方法 SetFocusSetFocus：设置焦点。设置为焦点的按钮在其表面有一：设置焦点。设置为焦点的按钮在其表面有一个虚边框个虚边框 注意：注意：命令按钮不支持双击事件。命令按钮不支持双击事件。BackColorBackColor属性和属性和PicturePicture属性在属性在StyleStyle属性值为属性值为1 1（图形方式）下，才能显示出来。（图形方式）下，才能显示出来。4.2.3 命令按钮命令按钮(CommandBu

32、tton)&例：设计一个窗体，说明命令按钮的基本属性、事件、例：设计一个窗体，说明命令按钮的基本属性、事件、方法的使用。方法的使用。4.2.3 命令按钮命令按钮(CommandButton)界面设计界面设计属性设置见课本属性设置见课本运行结果运行结果代码如下：代码如下：Private Sub Command1_Click()Private Sub Command1_Click()Label4.Caption=+Label4.Caption=+Text3.Text=Val(Text1.Text)+Val(Text2.Text)Text3.Text=Val(Text1.Text)+Val(Text

33、2.Text)End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Label4.Caption=-Label4.Caption=-Text3.Text=Val(Text1.Text)-Val(Text2.Text)Text3.Text=Val(Text1.Text)-Val(Text2.Text)End SubEnd SubPrivate Sub Command3_Click()Private Sub Command3_Click()Label4.Caption=Label4.Caption=*Text3.

34、Text=Val(Text1.Text)Text3.Text=Val(Text1.Text)*Val(Text2.Text)Val(Text2.Text)End SubEnd SubPrivate Sub Command4_Click()Private Sub Command4_Click()Label4.Caption=/Label4.Caption=/Text3.Text=Val(Text1.Text)/Val(Text2.Text)Text3.Text=Val(Text1.Text)/Val(Text2.Text)End SubEnd Sub4.3 常用控件常用控件4.3.1 4.3.1

35、 图形控件图形控件vVBVB中的图形控件分为中的图形控件分为、直线控件和形状控件。图形控件的使用能、直线控件和形状控件。图形控件的使用能美化美化界面和增加界面的趣味性界面和增加界面的趣味性。4.3.1.14.3.1.1图片框图片框 图片框控件可以用来显示图片框控件可以用来显示.bmp.bmp、.ico.ico、.jpeg.jpeg、.jpg.jpg、.gif.gif等图片类型的文件，且可以等图片类型的文件，且可以绘制绘制图形、显示图形、显示文本或计算结果，还可以作为容器放置其它控件。文本或计算结果，还可以作为容器放置其它控件。4.3.1 图形控件图形控件v图片框图片框 常用属性常用属性Alig

36、nAlign：设置图片框在窗体中的显示方式，语法设置图片框在窗体中的显示方式，语法格式：格式：对象名对象名.Align=0|1|2|3|4.Align=0|1|2|3|4 属性值属性值说说 明明0-None0-None默认值，表示无特殊显示默认值，表示无特殊显示1-Align Top1-Align Top表示图片框停靠在窗体上端并与窗体一样宽表示图片框停靠在窗体上端并与窗体一样宽2-Align Bottom2-Align Bottom表示图片框停靠在窗体底部并与窗体一样宽表示图片框停靠在窗体底部并与窗体一样宽3-Align Left3-Align Left表示图片框停靠在窗体左端并与窗体一样高

37、表示图片框停靠在窗体左端并与窗体一样高4-Align Right4-Align Right表示图片框停靠在窗体右端并与窗体一样高表示图片框停靠在窗体右端并与窗体一样高4.3.1 图形控件图形控件v图片框图片框 常用属性常用属性AutoSizeAutoSize：设置控件是否能自动调整大小以适应：设置控件是否能自动调整大小以适应图片内容。图片内容。语法格式：语法格式：其中其中:属性值为属性值为FalseFalse（默认值）表示图片框（默认值）表示图片框不能自不能自动改变大小以适应其中的图形动改变大小以适应其中的图形，保持原始尺寸，保持原始尺寸，如果图形比图片框大，则超出的部分将被剪切如果图形比图片

38、框大，则超出的部分将被剪切掉；掉；属性值为属性值为TrueTrue表示图片框表示图片框可以自动调整图片可以自动调整图片框大小以显示图片的全部内容框大小以显示图片的全部内容。对象名对象名.AutoSize=True|False.AutoSize=True|False4.3.1 图形控件图形控件v图片框图片框 常用属性常用属性PicturePicture：设置图片框控件中显示的图片。：设置图片框控件中显示的图片。在界面设计时，可直接利用属性窗口中的在界面设计时，可直接利用属性窗口中的PicturePicture属性设置相应图片的目录装入图片；在程属性设置相应图片的目录装入图片；在程序运行时，可使用

39、序运行时，可使用LoadPictureLoadPicture函数装载图片，语函数装载图片，语法格式为：法格式为：对象名对象名.Picture=LoadPicture(.Picture=LoadPicture(图形文件名图形文件名)4.3.1 图形控件图形控件v 图片框图片框 图片框控件的事件图片框控件的事件 图片框常用的事件是图片框常用的事件是ClickClick和和DblClickDblClick，分别是单击和双击，分别是单击和双击图片框时发生的事件。图片框时发生的事件。图片框控件的方法图片框控件的方法 图片框常用的方法有图片框常用的方法有PrintPrint、ClsCls、MoveMove

40、和和SetFocusSetFocus。同时，。同时，图片框支持图片框支持PsetPset、PointPoint、CircleCircle和和LineLine等绘图方法等绘图方法 。装载图片装载图片 装载图片有三种方法：装载图片有三种方法：方法方法1 1：在界面设计时，通过：在界面设计时，通过PicturePicture属性装载图片，在属性装载图片，在PicturePicture属性中选择需要装入的图形文件名。属性中选择需要装入的图形文件名。方法方法2 2：在程序运行期间，用：在程序运行期间，用LoadPictureLoadPicture函数装载。函数装载。方法方法3 3：在界面设计时，利用菜单

41、中的：在界面设计时，利用菜单中的“编辑编辑”“”“粘贴粘贴”功能，将剪贴板中的图片粘贴到图形控件中。功能，将剪贴板中的图片粘贴到图形控件中。4.3.1 图形控件图形控件v图片框图片框 卸载图片卸载图片语法格式：语法格式：保存图片保存图片SavePictureSavePicture函数的功能是用来保存在图片框中函数的功能是用来保存在图片框中处理过的图像。语法格式：处理过的图像。语法格式：例如：例如：SavePicture Picture1.Image,aa.bmpSavePicture Picture1.Image,aa.bmp 对象对象.Picture=LoadPicture(.Picture

42、=LoadPicture(“”“”)SavePicture SavePicture 对象名对象名.Image,.Image,保存文件名保存文件名&例：设计一个窗体，通过命令按钮单击实现两个图片框例：设计一个窗体，通过命令按钮单击实现两个图片框控件中图片之间的切换。控件中图片之间的切换。4.3.1 图形控件图形控件界面设计和运行结果界面设计和运行结果4.3.1 图形控件图形控件对象对象属性属性属性值属性值CommandButtonCommandButtonNameNameCommand1Command1CaptionCaption交换交换PictureBoxPictureBoxNameNameP

43、icture1Picture1PicturePictured:6.jpgd:6.jpgPictureBoxPictureBoxNameNamePicture2Picture2PicturePictured:7.jpgd:7.jpg属性设置如下表：属性设置如下表：4.3.1 图形控件图形控件代码编写如下代码编写如下Private Sub Command1_Click()Private Sub Command1_Click()Picture1.Picture=Picture2.PicturePicture1.Picture=Picture2.Picture Picture2.Picture=Loa

44、dPicture(d:6.jpg)Picture2.Picture=LoadPicture(d:6.jpg)End SubEnd Sub4.3.1 图形控件4.3.1.2 4.3.1.2 图像框图像框 图像框也是用来显形图片，如图像框也是用来显形图片，如.bmp.bmp、.ico.ico、.jpeg.jpeg 、.jpg.jpg 图片格式。其装载显示图片的速度较图片图片格式。其装载显示图片的速度较图片框快框快。常用属性常用属性AppearanceAppearance:设置图像框在运行时是否以设置图像框在运行时是否以3D3D效果显效果显示示.PicturePicture：设置图像框控件中显示的图

45、形。图像框：设置图像框控件中显示的图形。图像框的的PicturePicture属性与图片框使用方法相同，既可以通属性与图片框使用方法相同，既可以通过属性窗口设置图像框的过属性窗口设置图像框的PicturePicture属性来添加图片，属性来添加图片，也可以通过也可以通过LoadPictureLoadPicture函数来装载图片。函数来装载图片。4.3.1 图形控件图形控件v图像框图像框 常用属性常用属性 StretchStretch：设置是否调整图形的大小以适应图像框控件。：设置是否调整图形的大小以适应图像框控件。图像框没有图像框没有AutosizeAutosize属性，但可以使用属性，但可以

46、使用StretchStretch属性来属性来拉伸图像大小，使其适应图像框的大小。拉伸图像大小，使其适应图像框的大小。其中其中:属性值为属性值为FalseFalse（默认值）表示当图形载入时，图像（默认值）表示当图形载入时，图像框本身调整大小，使得图形可以填满图像框；框本身调整大小，使得图形可以填满图像框；属性值为属性值为TrueTrue表示当图形载入时，图形自动按照图表示当图形载入时，图形自动按照图像框的大小来调整大小，使图形填满整个图像框。像框的大小来调整大小，使图形填满整个图像框。4.3.1 图片控件图片控件 v图像框图像框 图像框控件的事件和方法图像框控件的事件和方法图像框常用的事件和方

47、法都不多。常用的事件图像框常用的事件和方法都不多。常用的事件有：有：DbClickDbClick、ClickClick、MouseDownMouseDown、MouseMoveMouseMove、MouseUpMouseUp。常用的方法有：。常用的方法有：MoveMove方法方法。图片框和图像框的区别：图片框和图像框的区别：图片框图片框可以作为可以作为“容器容器”，可以存放其他控件，可以存放其他控件，图像框图像框不可以；不可以；图片框图片框可以通过可以通过PrintPrint方法输出文本也可以用绘图方法输出文本也可以用绘图方法绘制图形，方法绘制图形，图像框图像框不可以；不可以；图像框图像框比比

48、图片框图片框占用内存少，显示速度快，如只占用内存少，显示速度快，如只显示图片则优先使用图像框；显示图片则优先使用图像框；图片框图片框有有AutosizeAutosize属性，而属性，而图像框图像框有有StretchStretch属性属性&例：设计一个窗体，说明图像框中例：设计一个窗体，说明图像框中StretchStretch属性的应用。属性的应用。4.3.1 图片控件图片控件界面设计界面设计4.3.1 图片控件图片控件属性设置如下属性设置如下:对象对象属性属性属性值属性值CommandButtonCommandButtonNameNameCommand1Command1CaptionCapti

49、on交换交换PictureBoxPictureBoxNameNamePicture1Picture1PictureBoxPictureBoxNameNamePicture2Picture2VisibleVisibleFalseFalseImageImageNameNameImage1Image1StretchStretchTrueTrue4.3.1 图片控件图片控件代码编写如下代码编写如下Private Sub Form_Load()Private Sub Form_Load()Picture1.Picture=Picture1.Picture=LoadPicture(C:JadeVista.

50、jpg)LoadPicture(C:JadeVista.jpg)Image1.Picture=LoadPicture(C:Image1.Picture=LoadPicture(C:风景风景06.jpg)06.jpg)End SubEnd SubPrivate Sub Command1_Click()Private Sub Command1_Click()Picture2.Picture=Picture1.PicturePicture2.Picture=Picture1.PicturePicture1.Picture=Image1.PicturePicture1.Picture=Image1.P