计算机技术基础（第七章 常用内部控件 ）

计算机技术基础（VB）

第七章　常用内部控件 

第一节　控件的公共属性

    1．Name属性

    （1）运行时是只读的

    （2）缺省名称

    （3）以字母开始，最长40个字符，可包括字母、数字和下划线，不能包括标点符号或空格（允许汉字）

    （4）控件数组的名称：Name（Index）

    2．Caption属性

    （1）加访问键：&字母

    （2）Label控件标题大小没有限制。其他有标题的控件，标题大小限制为255个字符。

    （3）注意与Name属性、Text属性的区别

    3．Enabled属性

   　　 决定控件是否能够对用户产生的事件作出响应

    4．Visible属性

    　　注意：如果在属性窗口中将控件的Visible属性设置为False，则控件在设计窗体上仍是可见的，仅在运行时才不可见。

    【例7-1】Visible属性和Enabled属性的比较

    

    “显示图像”按钮Command1的Click事件过程如下： 
　　 Private　Sub　Command1_Click（） 
　　　　 Image1.Visible=True 
　　　　 Command1.Enabled=False 
　　　　 Command2.Enabled=True 
　　 End　Sub 
　　 “隐藏图像”按钮Command2的Click事件过程如下： 
　　 Private　Sub　Command2_Click（） 
　　　　 Image1.Visible=False 
　　　　 Command1.Enabled=True 
　　　　 Command2.Enabled=False 
　　 End　Sub

    5．Left、Top、Height、Width属性

  　　  对于窗体，这些属性总是以缇为单位表示；对于控件，它们的度量单位取决于其容器的坐标系统

    6．BackColor、ForeColor属性

    （1）在Label和Shape控件中，如果BackStyle属性的设置值为0（透明），则忽略BackColor属性。

    （2）如果在Form对象或PictureBox控件中设置BackColor属性，则所有已经打印的文本或用绘图方法绘制的图形都将被擦除掉。

    （3）设置ForeColor属性值不会影响已经打印的文本或绘制的图形。

    7．FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性

    8．Font对象属性

   格式：<控件名>.Font.<属性名>
　　 <属性名>：Name、Size、Bold、Italic、 
　　　　　　　 Underline、Strikethrough 
　　 例：Form1.Font.Size=14 
　　　　 Command1.Font.Italic=True

第二节　框架（Frame）

    1．作用：作为容器，对控件进行分组

    2．如何将控件放在容器中

    　　选中容器，在容器中直接画

   　　 选中容器，粘贴控件

    3．如何检查控件是否在容器中

    　　拖动容器，控件随容器移动

    4．选中框架中的多个控件：Ctrl+拖动

    5．删除容器时，其中的控件随之被删除

    6．框架的常用属性

   　　 Caption：

   　　 Font：

    　　ForeColor：

   　　 Backcolor：

    　　Enabled：……为False时框架中的控件不可用

第三节　图片框（PictureBox）

    1．作用

    　　作为容器，对控件进行分组

    　　显示图像

    2．如何显示图像：设置Picture属性

    　　在属性窗口中设置

    　　对象名.Picture=LoadPicture（"图形文件名"）

    3．如何清除图像

    　　在属性窗口中删除Picture属性内容

    　　对象名.Picture=LoadPicture（）（也清除文字）

    4．打印与清除文字

    　　打印：对象名.Print……

    　　清除：对象名.Cls

    5．特点

    　　自动调整控件大小以适应图像：AutoSize=True

    　　不能延伸图形以适应控件的大小。

第四节　图像框（Image）

    1．作用：显示图像

    2．如何显示图像：设置Picture属性

   　　 在属性窗口中设置

    　　对象名.Picture=LoadPicture（"图形文件名"）

    3．如何清除图片

    　　在属性窗口中删除Picture属性内容

   　　 对象名.Picture=LoadPicture（）

    4．特点：

    　　可以自动调整控件大小以适应图像：

    　　　　设　Stretch=False

    　　可以延伸图形以适应控件的大小：

   　　　　设　Stretch=True

第五节　选项按钮（OptionButton）

    1．作用：多选一（放在窗体上、或放在其他容器中）

    2．属性

    （1）Value：True—选中

    　　　　　　False—未选中

    （2）Alignment属性：决定文本的对齐方式

    （3）Style—控制外观

    3．事件

    Click事件—使选项按钮从未选择变成选择状态时

   　　　　　　 （单击鼠标改变、代码改变）

    【例7-2】设计如下图所示的界面，用选项按钮设置文本框的文字颜色和背景颜色。

    

    Private　Sub　Option1_Click（） 
　　　　 Text1.ForeColor=vbBlack
　　 End　Sub 
　　 Private　Sub　Option2_Click（） 
　　　　 Text1.ForeColor=vbYellow 
　　 End　Sub 
　　 Private　Sub　Option3_Click（） 
　　　　 Text1.ForeColor=vbRed 
　　 End　Sub 
　　 Private　Sub　Option4_Click（） 
　　　　 Text1.BackColor=vbWhite 
　　 End　Sub 
　　 Private　Sub　Option5_Click（） 
　　　　 Text1.BackColor=vbGreen 
　　 End　Sub 
　　 Private　Sub　Option6_Click（） 
　　　　 Text1.BackColor=vbBlue 
　　 End　Sub

第六节　复选框（CheckBox）

    1．作用

    　　多选一或多选多（放在窗体上或其他容器中）

    2．属性

    　　（1）Value

  　　　  0—未选中

   　　　 1—选中

    　　　2—灰度状态（常用于表示不确定或部分选中）

    （2）Alignment属性：决定文本的对齐方式

    （3）Style：控制外观

    3．事件

   　　 Click事件

    【例7-3】设计界面如下图所示，用复选框设置文本框的文字样式与效果。

    

    Private　Sub　Check1_Click（） 
　　　　 Text1.FontBold=Check1.Value
　　 End　Sub 
　　 Private　Sub　Check2_Click（） 
　　　　 Text1.FontItalic=Check2.Value 
　　 End　Sub 
　　 Private　Sub　Check3_Click（） 
　　　　 Text1.FontStrikethru=Check3.Value 
　　 End　Sub 
　　 Private　Sub　Check4_Click（） 
　　　　 Text1.FontUnderline=Check4.Value 
　　 End　Sub

第七节　列表框（ListBox）

    1．作用：提供选项列表、内容多时自动出现滚动条

    2.．属性

    　　Style—外形（常规形式、复选框形式）

    　　List—列表内容。

    

    Columns—列表形式

   　　　　　 0：垂直单列、1：水平单列、>1：水平多列

    Text—只读、运行期用，获取当前选择项目的值

    ListIndex—运行期用，当前选定项目的索引（0…）

   　　　　　　 如果未选定项目，则ListIndex值为-1

    ListCount—列表部分项目的个数

    Sorted—元素是否自动按字母顺序排序

    Selected—运行期用，用于选择某项

   　　　　　　 如List1.Selected（3）=True　选择第4项

    MultiSelect：

   　　 0—缺省值，不允许复选。

  　　  1—鼠标单击、按空格键在列表中选择或取消选择

   　　 2—按下Shift并单击鼠标或按下Shift以及一个箭头键将在以前选中项的基础上扩展选择到当前选中项。按下Ctrl并单击鼠标在列表中选择或取消选择项。

    3．方法

    AddItem—向列表框中添加新的项目 
　　　　　　 <对象名>.AddItem<项目>[,<索引>]
　　 RemoveItem—从列表框中移除项目 
　　　　　　 <对象名>.RemoveItem<索引>
　　 Clear—清除所有列表的　　　 <对象名>.Clear

    【例7-4】设计如下图所示的界面，左列表框列出了某数据表格的各列（字段）名称。

    

    （1）将左列表框中选择的字段移动到右列表框中

    Private　Sub　Command1_Click（） 
　　　　　 If　List1.ListCount=0　Then
　　　　　　　 MsgBox "列表中已没有可选的字段",,"注意"
　　　　　　　 Exit　Sub 
　　　　　 End　If 
　　　　　 If　List1.ListIndex >=0　Then
　　　　　　　 List2.AddItem　List1.Text 
　　　　　　　 List1.RemoveItem　List1.ListIndex 
　　　　 Else 
　　　　　　　 MsgBox "请先在列表中选择某字段",,"注意"
　　　　 End　If 
　　 End　Sub

    （2）将右列表框中选择的字段移动到左列表框中。

   Private　Sub　Command2_Click（） 
　　　　 If　List2.ListCount=0　Then
　　　　　　 MsgBox "列表中已没有可选的字段",,"注意"
　　　　　　 Exit　Sub 
　　　　 End　If 
　　　　 If　List2.ListIndex >=0　Then
　　　　　　 List1.AddItem　List2.Text 
　　　　　　 List2.RemoveItem　List2.ListIndex 
　　　　 Else 
　　　　　　 MsgBox "请先在列表中选择某字段",,"注意"
　　　　 End　If 
　　 End　Sub

    （3）将左列表框中的所有字段移动到右列表框中

    Private　Sub　Command3_Click（） 
　　　　 For　i=0　To　List1.ListCount-1
　　　　　 List1.Selected（0）=True 
　　　　　 List2.AddItem　List1.Text 
　　　　　 List1.RemoveItem　0 
　　　　　 Next　i 
　　 End　Sub

    （4）将右列表框中的所有字段移动到左列表框中

   Private　Sub　Command4_Click（） 
　　　 For　i=0　To　List2.ListCount-1
　　　　 List2.Selected（0）=True 
　　　　 List1.AddItem　List2.Text 
　　　　 List2.RemoveItem　0 
　　　　 Next　i 
　　 End　Sub

第八节　组合框（ComboBox）

    1．作用：提供列表（可折叠）、文本输入

    2．属性

   　　 List—列表内容（Ctrl+Enter换行）

   　　 Style—外形

   　　　　 0—下拉组合框（折叠）

    　　　　1—简单组合框（不折叠）

   　　　　 2—下拉列表框（不能修改Text属性）

   　　 Text—文本框内容

   　　 ListIndex—运行期用，当前选定项目的索引

   　　　　　　　　 索引从0开始

    　　ListCount—列表部分项目的个数

   　　 Sorted—元素是否自动按顺序排序

    3．事件

    　　组合框的事件与Style属性有关。

   　　 Style为0时：响应Click、Change、DropDown事件

  　　 Style为1时：响应Click、DblClick、Change事件

   　　 Style为2时：响应Click、DropDown事件

    4．方法

   　　 AddItem：向组合框中添加新的项目

    <对象名> 　　　　　　<对象名>.AddItem<项目>[,<索引>]

    　　RemoveItem：从组合框中移除项目

    　　　　　　 <对象名> <对象名>.RemoveItem<索引>

    　　Clear：清除组合框中的所有项目

    <对象名>　　　　　　 <对象名>.Clear

    【例7-5】在窗体上放4个组合框，用于选择微机配置，包括选择机型、CPU主频、硬盘、内存。运行时，在选择了各项内容之后，单击“确定”按钮显示所选择的机器配置。

    

    Private　Sub　Form_Load（） 
　　　　 Combo1.Text=Combo1.List（0） 
　　　　 Combo2.Text=Combo2.List（0） 
　　　　 Combo3.Text=Combo3.List（0） 
　　　　 Combo4.Text=Combo4.List（0） 
　　 End　Sub 
　　 Private　Sub　Command1_Click（） 
　　　　 Picture1.Cls 
　　　　 Picture1.Print "您选择的配置是："
　　　　 Picture1.Print "机型："；Combo1.Text
　　　　 Picture1.Print "CPU："；Combo2.Text
　　　　 Picture1.Print "硬盘："；Combo3.Text
　　　　 Picture1.Print "内存："；Combo4.Text
　　 End　Sub

第九节　定时器（Timer）

    1．作用：周期性地执行某功能、运行时不可见

    2．属性

    　　Enabled：将Enabled设置为False时将停止定时器的计时操作

   　　Interval：计时事件执行的时间间隔（毫秒）

    3．事件

  　　  Timer事件：每当计时时间到时产生Timer事件

    注：一个计时器的最大计时时间为65535毫秒,等于1分钟多一些。如果最大计时时间大于该值，可以使用多个计时器。

    【例7-6】在窗体上放置一个红色圆。

   　　 单击“增大”按钮每隔1秒直径自动增大200Twips；

    　　单击“缩小”按钮每隔1秒直径自动缩小200Twips；

    　　单击“停止”按钮停止增大或缩小。

    

   Timer1属性：Enabled—False　　Interval—1000
　　 Dim　Flag　As　Integer
　　 Private　Sub　Cmd1_Click（） 
　　　　 Timer1.Enabled=True 
　　　　 Flag=1 
　　 End　Sub 
　　 Private　Sub　Cmd2_Click（） 
　　　　 Timer1.Enabled=True 
　　　　 Flag=0 
　　 End　Sub 
　　 Private　Sub　Cmd3_Click（） 
　　　　 Timer1.Enabled=False 
　　 End　Sub 
　　 Private　Sub　Timer1_Timer（） 
　　　 If　Flag=0　Then 
　　　　 If　Shape1.Width <200　Or　Shape1.Height<200　Then
　　　　　　 MsgBox "不能再缩小",,"注意"
　　　　　　 Timer1.Enabled=False 
　　　　　　 Exit　Sub　　　　'结束本事件过程 
　　　　 End　If 
　　　　 Shape1.Width=Shape1.Width-200 
　　　　 Shape1.Height=Shape1.Height-200 
　　 Else 
　　　　 Shape1.Width=Shape1.Width+200 
　　　　 Shape1.Height=Shape1.Height+200 
　　 End　If 
　 End　Sub

第十节　滚动条（HScrollBar、VScrollBar）

    1．作用

    2．滚动条结构

    

    3．属性

   　　 LargeChange—单击滚动块和滚动箭头之间的区域时，滚动条Value值的改变量。

   　　 SmallChange—单击滚动箭头时，滚动条的Value值的改变量。

   　　 Max－滚动条的Value属性最大值。

   　　 Min－滚动条的Value属性最小值。

   　　 Value—滚动条当前位置值，介于[Min,Max]之间。

    4．事件

    　　Change（单击时、Value改变时）、Scroll（拖动时）

    【例7-7】设计一水平滚动条，表示范围为1到100，要求：

    （1）单击某按钮生成[1，100]之间的随机整数，在滚动条上反映此随机数，同时在标签上显示该值。

    （2）滚动条滚动时，标签内容能够及时反映滚动条的当前值。

    

    Private　Sub　Command1_Click（） 
　　　　 Randomize：X=Int（Rnd*100+1） 
　　　　 HScroll1.Value=X 
　　　　 Label3.Caption=X 
　　 End　Sub 
　　 Private　Sub　HScroll1_Change（） 
　　　 Label3.Caption=HScroll1.Value 
　　 End　Sub 
　　 Private　Sub　HScroll1_Scroll（） 
　　　 Label3.Caption=HScroll1.Value 
　　 End　Sub

    【例7-8】在图片框Picture1上放置一个圆，在窗体上放一个水平滚动条HScroll1和一个垂直滚动条VScroll1，如下图。运行时，拖动滚动条可以使圆在图片框上随滚动条左右或上下移动。移动范围限制在图片框内部。

    

    Private　Sub　Form_Load（） 
　　　 HScroll1.Min=0
　　　 HScroll1.Max=Picture1.ScaleWidth–_ 
　　　　　　　　　　 Shape1.Width 
　　　 HScroll1.LargeChange=（Picture1.ScaleWidth–_ 
　　　　　　　　　　　　　 Shape1.Width）/20 
　　　 HScroll1.SmallChange=（Picture1.ScaleWidth–_ 
　　　　　　　　　　　　　　 Shape1.Width）/40 
　　　 VScroll1.Min=0 
　　　 VScroll1.Max=Picture1.ScaleHeight– 
　　　　　　　　　 Shape1.Height 
　　　 VScroll1.LargeChange=（Picture1.ScaleHeight–_ 
　　　　　　　　　　　　　 Shape1.Height）/20 
　　　 VScroll1.SmallChange=（Picture1.ScaleHeight–_ 
　　　　　　　　　　　　　 Shape1.Height）/40 
　　　 Shape1.Left=0 
　　　 Shape1.Top=0 
　　 End　Sub 
　　 Private　Sub　HScroll1_Change（） 
　　　 Shape1.Left=HScroll1.Value 
　　 End　Sub 
　　 Private　Sub　HScroll1_Scroll（） 
　　　 Shape1.Left=HScroll1.Value 
　　 End　Sub 
　　 Private　Sub　VScroll1_Change（） 
　　　 Shape1.Top=VScroll1.Value 
　　 End　Sub 
　　 Private　Sub　VScroll1_Scroll（） 
　　　 Shape1.Top=VScroll1.Value 
　　 End　Sub

本章小结

    1.控件的公共属性

    Name　　　　　Caption　　　　Enabled　　　　Visible

    Left　　　　　　Top　　　　　　Height　　　　Width

    BackColor　　　ForeColor

    FontName　　　FontSize　　　　FontBold　　　FontItalic

    FontStrikethru、FontUnderline

    Font对象属性：Name　　Bold　　Size　　Bold　　Italic

    　　　　　　  Underline　　Strikethrough

    2．框架（Frame）：作为容器

    3．图片框（PictureBox）

    　　作为容器；显示图像

   　　 Picture属性；LoadPicture函数；Cls、Print方法

    4．图像框（Image）

   　　 显示图像

   　　 Picture属性；LoadPicture函数；Cls方法

    5．选项按钮（OptionButton）

   　　 Value属性、Click事件

    6．复选框（CheckBox）

   　　 Value属性、Click事件

    7．列表框（ListBox）

    　　属性：Style、List、Columns、Text、ListIndex、ListCount、Sorted、Selected、MultiSelect

   　　 事件：Click

    　　方法：AddItem、RemoveItem、Clear

    8．组合框（ComboBox）

   　　 属性：List、Style、Text、ListIndex、ListCount、Sorted

   　　 事件：Click、Change、DropDown

   　　 方法：AddItem、RemoveItem、Clear

    9．定时器（Timer）

   　　 属性：Enabled、Interval

   　　 事件：Timer

    10．滚动条（HScrollBar、VScrollBar）

    　　属性：LargeChange、SmallChange、Max、Min、Value

    　　事件：Change、Scroll