常用控件与窗体

第9章 常用控件与窗体,9.1 标签控件 9.2 命令按钮控件 9.3 文本框控件 9.4 单选钮和检查框 9.5 框架 9.6 滚动条 9.7 列表框 9.8 组合框 9.9 时钟 9.10 窗体,9.1 标 签 控 件,9.1.1 标签的属性 标签最常用的属性有Name、Caption、Height、Width、Top、Left、Enabled、Visible、FontName、 FontSize、 FontBold、 FontItalic、 FontUnderline、 Alignment、Autosize和BorderStyle等。 9.1.2 标签接收的事件 标签经常接收的事件有单击(Click)、双击(DblClick)和改变(Change)。,9.2 命令按钮控件,在应用程序中，命令按钮的应用十分广泛。在程序执行期间，当用户选择某个命令按钮时就会执行相应的事件过程。在程序运行时，常用以下三种方法选中命令按钮：(1) 用鼠标单击。(2) 按Tab键将焦点移到相应按钮上，再按回车键。(3) 按快捷键(Alt有下划线的字母)。,9.2.1 命令按钮的属性 1基本属性 命令按钮最常用的基本属性有Name、Height、Width、Top、Left、Enabled、Visible、FontName、FontSize、BackColor和Index等。 2Caption(标题)属性 在设置Caption属性时，如果在某个字母前加入“&”，则程序运行时标题中的该字母带有下划线，该带有下划线的字母就成为快捷键。当用户按下Alt快捷键时，便可激活并操作该按钮。例如，在对某个按钮设置其Caption属性时键入&OK，程序运行时就会显示OK，当用户按下AltO时便可激活并操作OK按钮。,3Default(确认)属性 只有命令按钮支持Default属性。当Default属性值为True时，按Enter键相当于用鼠标器单击了该按钮。在一个窗体中只能有一个按钮的Default属性被设为True。当某按钮的Default属性值被设为True以后，该窗体中的所有其它按钮的Default属性全部被自动设为False。 4Cancel(取消功能)属性 当Cancel属性值为True时，按此按钮与按Esc键的效果相同。在一个窗体中只能有一个按钮的Cancel属性可为True，其它按钮的Cancel属性自动变为False。,9Value(检查按钮状态)属性 该属性在设计阶段无效，只能在程序运行期间设置或引用，用于检查该按钮是否被按下。True表示该按钮被按下，False(缺省)表示按钮未被按下。在程序运行过程中，只要Value值为True，便引发按钮的Click事件转去执行相应的程序。,6Picture(图片)属性 要说明的是，在以前的版本中，有两种命令按钮控件：标准命令按钮(CommandButton)和三维命令按钮(SSCommand)。前者按钮上只能显示文字；后者可以显示图形，可用于工具栏按钮的制作。在Visual Basic 9.0中，两者合一，并且可在Style属性中区分标准和图形。对图形的命令按钮增加了Picture属性，用以显示图片文件(.bmp和.ico)。Visual Basic中的图片文件存放在Visual Basic文件夹的Graphic子文件夹中。,7Style属性 该属性返回或设置一个值，该值用来指示控件的显示类型和行为。在运行时是只读的。 0standard(缺省)：标准的，按钮上不能显示图形。 1graphical：图形的，按钮上可以显示图形的样式，也能显示文字。 若在Picture(图片)属性中选择了图片文件，则Style属性值必须为1，否则无法显示图形。,8ToolTipText(工具提示)属性 ToolTipText属性与Picture(图片)属性同时使用。如果仅用图像作为对象的标签，那么能够使用此属性以较少的文字解释每个对象。在以前的版本中，用户要设计具有工具栏提示功能的界面，需要编写一段程序来实现，现在通过该属性就可以轻而易举地实现了。,9.2.2 命令按钮接收的事件命令按钮主要接收Click事件。,9.3 文 本 框 控 件,9.3.1 文本框的属性 1基本属性 Name、Height、Width、Top、Left、Enabled、Visible、FontName、FontSize、FontBold、FontItalic、FontUnderline和Alignment等都是文本框的基本属性。文本框没有Caption属性。 2Text文本属性 在文本框中显示的正文内容存放在Text属性中。当程序执行时，用户通过键盘输入正文内容，Visual Basic自动将其保存在Text属性中。,3MaxLength属性 MaxLength属性指明文本框中能够输入的正文内容的最大长度。 0值：任意长字符串。 非零值：文本框中字符个数的最大值。需注意的是，在Visual Basic中一个汉字的长度相当于一个西文字符。 4MultiLine(多行)属性 当MultiLine属性为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，即输入的正文超出显示框时，会自动换行。按CtrlEnter可插入一空行。,9ScrollBars(滚动条)属性 当MultiLine属性为True时，ScrollBars属性才有效。ScrollBars不同的值表示不同的含义。0None：无滚动条；1Horizontal：加水平滚动条；2Vertical：加垂直滚动条;3Both：同时加水平和垂直滚动条。 当加入了水平滚动条以后，文本框内的自动换行功能会自动消失，只有按Enter键才能回车换行。,6Locked属性 Locked属性指定文本控件是否可被编辑，默认值为False，表示可编辑。当设置为True时，文本控件相当于标签的作用。,7SelStart、SelLength和SelText属性 在程序运行中，对文本内容进行选择操作时，这三个属性用来标识用户选中的正文。SelStart：选定的正文的开始位置，第一个字符的位置是0;SelLength：选定的正文长度；SelText：选定的正文内容。 设置了SelStart和SelLength属性后，Visual Basic会自动将设定的正文送入SelText存放。这些属性一般用于在文本编辑中设置插入点及范围、选择字符串和清除文本等，并且经常与剪贴板一起使用，完成文本信息的剪切、复制及粘贴等功能。,【例9-1】 文本框的应用示例：将第一个文本框的内容拷贝到第二个文本框中。,Private Sub Form_Click( )Text1.SelStart0Text1.SelLength=29Text2.Text=Text1.SelTextEnd Sub程序运行结果如图9.1所示。,图9.1 文本框示例运行结果,9.3.2 文本框响应的事件 在文本框所能响应的事件中，Change、KeyPress和LostFocus是最重要的事件。 1Change事件 当用户输入新内容或当程序将Text属性设置为新值从而改变文本框的Text属性时会引发该事件。当用户键入一个字符时，就会引发一次Change事件。例如，用户键入Hello一词时，会引发9次Change事件。,2KeyPress事件 当用户按下并且释放键盘上的一个键(ANSI格式)时，就会引发焦点所在控件的KeyPress事件，此事件会返回一个KeyAscii参数到该事件过程中。例如，当用户键入字符“a”时，返回KeyAscii的值为96，通过Chr(KeyAscii)可以将ASCII码转换为字符“a”。同Chang事件一样，每输入一个字符就会引发一次该事件。事件中最常用的是对键入符是否为回车符(KeyAscii的值为13)的判断，若是则表示文本的输入结束。,3LostFocus事件 此事件是在一个对象失去焦点时发生的。焦点的丢失是由于Tab移动或单击另一个对象操作所造成的结果。LostFocus事件过程主要是用来对数据更新进行验证和确认，常用于检查Text属性的内容，比在Change事件过程中检查Text文本内容更为有效。,9.3.3 文本框使用的方法 文本框最有用的方法是SetFocus，该方法是把光标移到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框上。其形式如下：对象.SetFocus SetFocus还可以用于如CheckBox、CommandButton和ListBox等控件。,9.4 单选钮和检查框,9.4.1 单选钮和检查框的属性 1基本属性 单选钮和检查框最常用的基本属性有Name、Width、Height、Top、Left、ForeColor、BackColor、Enabled、Visible和Index等。 2Caption属性 该属性设置单选钮或检查框的文本注释内容，即单选钮或检查框边上的文本标题。,3Alignment属性 0：控件钮在左边，标题显示在右边，缺省设置。1：控件钮在右边，标题显示在左边。 4Value属性 该属性表示单选钮或检查框的状态。 单选钮为True表示单选钮被选定，为False表示单选钮未被选定，缺省设置。检查框有下面三种状态:0Unchecked：检查框未被选定，缺省设置;1Checked：检查框被选定;2Grayed：检查框变成灰色，禁止用户选择。,9Style属性 Style属性是指定单选钮或检查框的显示方式，用于改善单选钮或检查框的视觉效果。 0Standard：标准方式; 1Graphical：图形方式。 当该属性设置为1(Standard)时，就可以在Picture、DownPicture和Disabled Picture中分别设置不同的图标或位图，用三种不同的图形分别表示未选定、选定和禁止选择。,9.4.2 单选钮和检查框接收的事件 单选钮和检查框都可以接收Click事件，但一般不需要编写Click事件过程。因为当用户单击单选钮或检查框时，它们自动改变状态。,9.9 框 架,9.9.1 框架的属性 1基本属性 框架的基本属性有Name、Width、Height、Top、Left、BackColor、Font、ForeColor和Index等。,2Caption属性 由Caption属性值设定框架上的标题名称。如果Caption为空字符，则框架为封闭的矩形框，但是框架中的控件仍然与单纯用矩形框起来的控件不同。 框架内的所有控件将随框架一起移动、显示、消失和屏蔽。若将框架的Enabled属性设为False，程序运行时该框架在窗体中的标题正文为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。若将框架的Visible属性设为False，则在程序执行期间，框架及其所有控件全部被隐藏起来，也就是说，对框架的操作也是对其内部的控件的操作。,9.9.2 框架响应的事件 框架可以响应Click和DblClick事件。但是，在应用程序中一般不需要编写有关框架的事件过程。 【例9-2】 单选按钮、复选框和框架的应用示例。运行结果如图9.2所示。 (1) 用户界面的设计以及属性设置，如图9.3所示。,图9.2 选择控件示例显示结果,图9.3 选择控件示例界面,(2) 事件驱动的响应程序。 是否加下划线Private Sub Check1_Click( ) If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd Sub 是否斜体显示 Private Sub Check2_Click( ) If Check2.Value = 1 Then,Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub 单击Command按钮后Text文本框中的字体为黑体宋体，字号为1229 Private Sub Command1_Click( ) If Option1.Value Then Text1.FontName = 宋体 Else Text1.FontName = 黑体 End If,If Option3.Value Then Text1.FontSize = 12 Else Text1.FontSize = 29 End If End Sub 终止程序 Private Sub Command2_Click( ) Unload Me End Sub,9.6 滚 动 条,9.6.1 滚动条的属性 1基本属性 滚动条的基本属性有Name、Height、Width、Top、Left、Enabled和Visible等。 2Max(最大值)属性 该属性表示当滑块处于滚动条最大位置时所代表的值。 3Min(最小值)属性 该属性表示当滑块处于滚动条最小位置时所代表的值。,9SmallChange(最小变动值)属性 该属性表示用户单击滚动条两端箭头时，滑块移动的增量值。 9LargeChange(最大变动值)属性 该属性表示用户单击滚动条的空白处时，滑块移动的增量值。 6Value(值)属性 该属性表示滚动条内滑块所处位置所代表的值（-32 76832 767）。,9.6.2 滚动条响应的事件 与滚动条有关的重要事件是Scroll和Change。当拖动滑块时会触发Scroll事件，而当改变Value属性时(滚动条内滑块位置改变)会触发Chang事件。 【例9-3】 编写使用滚动条计算利息的应用程序。当通过滚动条改变本金、月份或年利率时，能立即计算出利息及利息+本金。窗体上有9个文本框：本金、月份、年利率、利息和利息+本金，其名称分别为：vsbPrincipal、hsbMonth、hsbRate、txtInterest和txtTotal。各滚动条的属性按表9.1所示进行设置。,表9.1 各滚动条的属性设置,过程Calc的功能是根据本金、月份和年利率计算利息及本金+利息，它将被各滚动条的Change事件过程调用：Sub Calc( ) Dim sTotal As Single sTotalsbPrincipal.Value*(1+(hsbRate.Value/100)*(hsbMonth.Value/12) txtTotal.Text=sTotal txtInterest.Text=sTotal-vsbPrincipal.ValueEnd Sub,下面是各滚动条的事件过程：Sub vsbPrincipal_change( ) TxtPrincipal.TextvsbPrincipal.Value CalcEnd Sub Sub hsbMonth_Change( ) txtMonth.Text = hsbMonth.Value Calc End Sub Sub hsbRate_Change( )txtRate.Text = hsbRate.ValueCalcEnd Sub,列表框和组合框,列表框和组合框都是通过列表的形式显示多个选项，供用户来选择。列表框是一个为用户提供选择的列表，用户可从中单击选取自己所需的一个或多个选项。如果选项太多，超出列表框设计的大小时，不能一次全部显示，VB会自动加上垂直滚动条。组合框的功能与列表框相近，其主要特点是它综合了列表框和文本框的特性。在程序运行时，用户既可以在组合框中选择已有的选项，选中的内容自动放入文本框中；又能够在文本框中直接输入所需的内容。,列表框和组合框,列表框控件列表框控件的属性List：设置列表框中列表项的内容。List属性值是一个一维数组，每个数组元素是列表框中的一个选项。 其中：该属性既可以在设计时通过属性窗口设置，又可在代码窗口中设置；属性窗口设置时，每添加一个列表项，按Ctrl+Enter键可以换行继续添加下一个列表项，直接按Enter键表示添加结束；代码窗口设置时，采用如下格式： 例如： List1.list(0)= 武汉 列表框的第一项 List1.list(2)= 北京 列表框的第三项,对象名.list(下标) = 字符串,注意：List数组的第一个元素的下标是0，即List(0)为第一个元素，往后依次为List(1)、List(2)、List(3)，如果List数组中有n个元素，则最后一个列表项对应的数组元素为List(n-1)。,列表框和组合框,列表框控件列表框控件的属性ListCount：表示当前列表框中选项的总数。,注意：任何列表框中的选项从0开始，到ListCount-1结束，通常和List属性一起使用，此属性只能在程序中引用。,列表框和组合框,列表框控件列表框控件的属性ListIndex：设置和返回选中的选项，即下标序号。如果没有任何选项选中，其值为-1。 Sorted：设置列表框中的选项是否按字母表顺序排序。语法格式： 其中：属性值为True表示列表框中的选项按字母表顺序排序；属性值为False则表示列表框中的选项不按字母表顺序排序。Sorted属性必须在属性窗口时设置，在运行时是只读的。 list1.sorted=true 按字母顺序排列 list1.sorted=false按加入时的顺序排列,如果选中列表框的第五个元素，则ListIndex值为多少？,对象名.Sorted=True | False,列表框和组合框,列表框控件列表框控件的属性Text：返回或设置最后选中的列表项的文本内容。只读属性，不能直接修改其值，用于获取选定列表项的内容。MultiSelect：设置该列表框是否能选择多项。语法格式：,对象名. MultiSelect =0 | 1 | 2,注意：若选择多项，则ListIndex和Text的属性只表示最后一次所选择的选项值。,列表框和组合框,列表框控件列表框控件的属性SelCount：表示列表框中所选择的选项的数目。通常与Selected一起使用，以处理控件中所选的选项。,注意：注意：SelCount属性使用的前提是MultiSelect属性设置为1或2。,列表框和组合框,列表框控件列表框控件的属性Selected：与List数组中的各个元素相对应的一个数组，记录List数组中每个选项是否被选取。例如，如果List(1)被选取，则Selected(1)的值为True，如果List(1)未被选取，则Selected(1)的值为False。 如：list1.selected(0)=true表示选中第一项,列表框和组合框,列表框控件列表框控件的属性Style：设置列表框控件的外观。语法格式：,对象名. Style =0 | 1,列表框和组合框,列表框控件列表框控件的事件Click事件：在列表框获得焦点时用户单击某个选项，或按下方向键，或按下选项的第一个英文字母，会触发该事件。DblClick事件：双击某个选项会触发该事件。列表框控件的方法AddItem：向列表框中添加列表项。语法格式：,对象名.AddItem 选项字符串 ,索引值,例如: list1.additem 中国 list1.additem 美国,2,其中：选项字符串是要添加到列表框中的字符表达式；索引值是可选参数，用来指定新选项在列表框中的插入位置。若索引值为0，则插入到第一个选项位置；若索引值省略，当Sorted属性设置为True时，新选项将添加到恰当的排序位置，当Sorted属性设置为False时，新选项将添加到现有列表项的末尾。,列表框和组合框,列表框控件列表框控件的方法RemoveItem：从列表框中删除指定选项。语法格式： 例如:list1. RemoveItem,0其中：索引值用来指定要删除的选项在列表框中的位置，每次只能删除一个选项。 Clear：清除列表框中的全部选项。语法格式：,对象名. RemoveItem 索引值,对象名.Clear,列表框和组合框,例子：设计一个窗体，要求：可以通过在列表框List1中选择，然后单击中间的命令按钮在列表框List2中执行相应的操作。,界面如图所示 ：,列表框和组合框,代码设计：,Private Sub Form_Load() List1.AddItem 苹果 List1.AddItem 香蕉 List1.AddItem 芒果 List1.AddItem 西瓜 List1.AddItem 哈密瓜 List1.AddItem 葡萄 List1.AddItem 椰子 List1.AddItem 榴莲 List1.AddItem 菠萝 List1.AddItem 蟠桃End Sub,Private Sub Command1_Click()End SubPrivate Sub Command2_Click() End SubPrivate Sub Command3_Click() End SubPrivate Sub Command4_Click() End Sub,List2.AddItem List1.Text,List2.RemoveItem List2.ListIndex,List2.Clear,End,列表框和组合框,组合框组合框(ComboBox)是由文本框(TextBox)与列表框(listBox) “组合”而成的控件。用户可以通过在文本框输入新文本内容或在列表框中单击列表选项选择已有内容。组合框的形式有三种：下拉组合框(默认方式)、简单组合框、下拉列表框。组合框控件的属性Style：功能是设置组合框的显示类型，在运行时为只读的。,对象名. Style=0 | 1 | 2,列表框和组合框,组合框组合框控件的事件Change：当组合框内容改变时发生。Click：当用户在一个组合框上单击鼠标按钮时发生。组合框控件的方法AddItem：用来向组合框中添加选项。RemoveItem：从组合框中删除一个选项。Clear：清除组合框的所有内容。,列表框和组合框,例子：单击中间的命令按钮在文本框中显示选择的内容，如果需要的城市组合框中没有列出，可以通过组合框来进行添加,界面如图所示 ：,列表框和组合框,代码设计：,Private Sub Form_Load() Combo1.AddItem 武汉 Combo1.AddItem 北京 Combo1.AddItem 西安 Combo1.AddItem 重庆 Combo1.AddItem 长沙 Combo1.AddItem 海南 Combo1.AddItem 天津 Combo1.AddItem 南京 Combo1.AddItem 杭州End Sub,Private Sub Combo1_Change() End SubPrivate Sub Combo1_Click() End Sub,Combo1.AddItem Combo1.Text,Text1.Text = Combo1.Text,【例】 通过列表框控件设计选项移动的窗体。列表框运行结果如图9.9所示。 (1) 界面设计如图9.9所示。,图9.9 列表框示例显示结果,图9.9 列表框示例界面设计,(2) 响应事件的程序如下：初始化列表框Private Sub Form_Load()List1.AddItem 语文List1.AddItem 数学List1.AddItem 英语List1.AddItem 物理List1.AddItem 化学List1.AddItem 计算机End Sub, 控件按钮实现转换Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 按钮的实现i = 0Do While i 的实现For i = 0 To List1.ListCount - 1List2.AddItem List1.List(i)NextList1.ClearCase 2 按钮的实现.Case 3 按钮的实现.End SelectEnd Sub,【例】 利用组合框设计一个“简易抽奖机”。(1) 进行界面设计以及对象属性设置。(2) 编写如下事件代码： 组合框的事件响应Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 表示按下的是回车键 Combo1.AddItem Combo1.Text, 0 向组合框输入号码 Combo1.SelStart = 0 Combo1.SelLength = Len(Combo1.Text) End If If KeyAscii = 27 Then 表示按下的是Esc键 If Combo1.ListIndex -1 Then,Combo1.RemoveItem Combo1.ListIndex 移去选项 End If End IfEnd Sub 按钮开始抽奖的代码实现Private Sub Command1_Click( ) Randomize n = Combo1.ListCount a = Int(Rnd * n) 利用随机函数求随机序号 Combo1.ListIndex = a MsgBox 中奖的号码是： & Chr(13) & Combo1.Text, 0, 恭喜End Sub,(3) ComboBox示例界面及运行结果分别如图9.6和图9.7所示。,图9.6 ComboBox示例界面,图9.7 ComboBox示例运行结果,计时器,计时器是一个非常有用的控件，主要有两个功能：用于在程序中监视和控制时间进程，即每隔一段固定的时间就有规律地执行一次相同的任务。如定时检测系统或控件的状态、控制控件的移动、设置时钟、倒计时、秒表等；进行某种后台处理。因为计时器控件在设计时可见，运行时隐藏，所以它在界面上的位置和大小无关紧要。但在后台每隔一定的时间，系统就会自动触发一次计时器事件。,计时器,计时器控件的属性 Enabled（响应）属性功能：设置计时器控件是否开始计时。语法格式： 其中，属性值为True（默认值）表示启动计时器开始计时；属性值为False则表示暂停计时器的使用，待将Enabled属性设置为True时继续运行计时器。Interval（间隔）属性功能：设置两个计时器事件之间的时间间隔。 设置时以毫秒（ms）为单位，范围是065 535ms，系统初始值设置为0。若希望每秒执行n个计时器事件，则将Interval属性的值设置为1000/n。 当Interval属性的值为0时，则计时器无效。,对象名.Enabled=True | False,对象名. Interval=数值,计时器,计时器的事件计时器只有Timer事件。Timer事件具有周期性，在每隔Interval指定的时间间隔，就执行一次Timer事件过程。在实际运用中，经常用Timer事件来实现有规律的重复操作和简单的动画。,注意： 计时器事件发生越频繁，响应事件所使用的处理器事件就越多，这将降低系统综合性能。因此，除非有必要否则不要设置过小的时间间隔。,计时器,设计一个窗体，运行窗体后，图片会不停地闪动。,界面设计 ：,属性设计 ：,Private Sub Timer1_Timer() End Sub,Picture1.Visible = Not (Picture1.Visible),计时器,运行窗体后，文本框“谁知盘中餐，粒粒皆辛苦。”从右向左移动，每当文本框全部移出左边界时要求从右边界再次循环运行。,界面设计 ：,属性设计 ：,计时器,Private Sub Timer1_Timer() If Text1.Left + Text1.Width = 0 Then Text1.Left = Form1.Width Text1.Left = Text1.Left - 100End Sub,9.9.2 时钟响应的事件 时钟控件只有一个Timer事件。 【例9-6】 用一个时钟控件控制蝴蝶在窗体内飞舞。程序运行结果如图9.8所示。在窗体上定义一个时钟、一个命令按钮和三个图像控件。窗体与其上的控件的属性如表9.2所示。程序界面如图9.9所示。,表9.2 窗体界面控件属性设置,图9.8 运行结果显示,图9.9 程序界面设计,各事件的代码如下：Private Sub Form_Load( ) CmdEnd.Move 10, 10 移动CmdEnd按钮到指定位置 imgMain.Move 1000, 1000End Sub TmrClockTimer( )事件使时钟控件每100 ms交替显示不同的图形Private Sub tmrClock_Timer( )Static PickBmp As Boolean 定义图像交替控制指针ImgMain.Move ImgMain.Left + 20, ImgMain.Top-9 If PickBmp ThenImgMain.Picture = OpenWings.Picture 显示蝴蝶图像1ElseImgMain.Picture = CloseWings.Picture 显示蝴蝶图像2End If,PickBmp = Not PickBmp 图像交替控制指针End Sub 命令按钮Cmd End结束程序Private Sub CmdEnd_Click( ) EndEnd Sub,图形控件,VB中的图形控件分为图片框(PictureBox)、图像框(Image)、直线控件和形状控件。图形控件的使用能美化界面和增加界面的趣味性。一、图片框 图片框控件可以用来显示.bmp、.ico、.jpeg 、.jpg 、.gif等图片类型的文件，且可以绘制图形、显示文本或计算结果，还可以作为容器放置其它控件。,图形控件,图片框常用属性:Align：设置图片框在窗体中的显示方式，语法格式：,对象名. Align =0 | 1 | 2 | 3 | 4 ,图形控件,图片框常用属性AutoSize：设置控件是否能自动调整大小以适应图片内容。 语法格式： 其中:属性值为False（默认值）表示图片框不能自动改变大小以适应其中的图形，保持原始尺寸，如果图形比图片框大，则超出的部分将被剪切掉；属性值为True表示图片框可以自动调整图片框大小以显示图片的全部内容。,对象名. AutoSize =True | False,图形控件,图片框常用属性Picture：设置图片框控件中显示的图片。 在界面设计时，可直接利用属性窗口中的Picture属性设置相应图片的目录装入图片；在程序运行时，可使用LoadPicture函数装载图片，语法格式为：,对象名.Picture = LoadPicture(图形文件名),图形控件,图片框图片框控件的事件 图片框常用的事件是Click和DblClick，分别是单击和双击图片框时发生的事件。图片框控件的方法 图片框常用的方法有Print、Cls、Move和SetFocus。同时，图片框支持Pset、Point、Circle和Line等绘图方法 。装载图片 装载图片有三种方法： 方法1：在界面设计时，通过Picture属性装载图片，在Picture属性中选择需要装入的图形文件名。方法2：在程序运行期间，用LoadPicture函数装载。方法3：在界面设计时，利用菜单中的“编辑”“粘贴”功能，将剪贴板中的图片粘贴到图形控件中。,图形控件,图片框卸载图片语法格式：保存图片SavePicture函数的功能是用来保存在图片框中处理过的图像。语法格式： 例如： SavePicture Picture1.Image,aa.bmp,对象.Picture=LoadPicture(“ ”),SavePicture 对象名.Image, 保存文件名,设计一个窗体，通过命令按钮单击实现两个图片框控件中图片之间的切换。,图形控件,界面设计和运行结果,图形控件,属性设置如下表：,图形控件,代码编写如下,Private Sub Command1_Click() Picture1.Picture = Picture2.Picture Picture2.Picture = LoadPicture(d:6.jpg)End Sub,图形控件,二、 图像框图像框也是用来显形图片，如.bmp、.ico、.jpeg 、.jpg 图片格式。其装载显示图片的速度较图片框快。常用属性Appearance:设置图像框在运行时是否以3D效果显示.Picture：设置图像框控件中显示的图形。图像框的Picture属性与图片框使用方法相同，既可以通过属性窗口设置图像框的Picture属性来添加图片，也可以通过LoadPicture函数来装载图片。,图形控件,图像框常用属性Stretch：设置是否调整图形的大小以适应图像框控件。图像框没有Autosize属性，但可以使用Stretch属性来拉伸图像大小，使其适应图像框的大小。 其中: 属性值为False（默认值）表示当图形载入时，图像框本身调整大小，使得图形可以填满图像框； 属性值为True表示当图形载入时，图形自动按照图像框的大小来调整大小，使图形填满整个图像框。,图片控件,图像框图像框控件的事件和方法图像框常用的事件和方法都不多。常用的事件有：DbClick、Click、MouseDown、MouseMove、MouseUp。常用的方法有：Move方法。,图片框和图像框的区别：图片框可以作为“容器”，可以存放其他控件，图像框不可以；图片框可以通过Print方法输出文本也可以用绘图方法绘制图形，图像框不可以；图像框比图片框占用内存少，显示速度快，如只显示图片则优先使用图像框；图片框有Autosize属性，而图像框有Stretch属性,任务8 设计一个窗体，说明图像框中Stretch属性的应用。,图片控件,界面设计,图片控件,属性设置如下:,图片控件,代码编写如下,Private Sub Form_Load()Picture1.Picture = LoadPicture(C:JadeVista.jpg)Image1.Picture = LoadPicture(C:风景06.jpg)End SubPrivate Sub Command1_Click()Picture2.Picture = Picture1.PicturePicture1.Picture = Image1.PictureImage1.Picture = Picture2.PictureEnd Sub,1图片框与图像框的区别图片框与图像框的用法基本相同，但有以下区别：（1）图片框是容器控件，可以作为父控件，而图像框不能作为父控件。 （2）图片框可以通过Print方法接收文本，并可接收由像素组成的图形，而图像框不能接收用Print方法输入的信息，也不能用绘图方法在图像框上绘制图形。 （3）图像框比图片框占用的内存少，显示速度快。,图片框与图像框的区别,综合应用,单击下方不同的单选按钮，窗体中央的图片框则显示上方相应的图片。,界面设计 ：,综合应用,属性设计 ：,综合应用,Private Sub Option1_Click() Picture5.Picture = Picture1.PictureEnd SubPrivate Sub Option2_Click() Picture5.Picture = Picture2.PictureEnd SubPrivate Sub Option3_Click() Picture5.Picture = Picture3.PictureEnd SubPrivate Sub Option4_Click() Picture5.Picture = Picture4.PictureEnd Sub,直线和形状控件,焦点与Tab顺序,在可视化程序设计中，焦点（focus）是一个十分重要的概念。 内容：一、设置焦点 二、Tab顺序,9.10 窗 体,9.10.1 窗体的属性 窗体属性决定了窗体的外观和操作。对大部分窗体属性，既可以通过属性窗口设置，也可以在程序中设置，只有少量属性只能在设计状态设置，或只能在窗体运行期间设置。 1窗体基本属性 窗体的基本属性有Name、Height、Width、Left、Top、Font、Enabled、Visible、ForeColor、BackColor、Picture和Image等。 2Caption属性 Caption属性决定窗体标题栏显示的内容。,3MaxButton和MinButton属性 MaxButton属性为True，窗体右上角有最大化按钮；MinButton属性为True，窗体右上角有最小化按钮；MaxButton属性为False，窗体上没有最大化按钮。MinButton属性为False，窗体上没有最小化按钮。 9ControlBox属性 ControlBox属性为True，窗体左上角有一个控制菜单框；ControlBox属性为False，窗体上没有控制菜单框。,9BorderStyle边框风格属性0None：窗口无边框；1Fixed Single：窗口为单线边框，不可以改变窗口大小；2Sizable：窗