VB程序设计第4章-使用常用控件课件.ppt

1、VB 程序设计主编：沈祥玖高等教育出版社 第4章 使用常用控件2023-2-11第4章 常用控件与窗体学习目标：（1）掌握表4-1中控件的常用属性、方法、事件。（2）能在程序中灵活、正确的运用所掌握的控件。（3）了解多窗体的操作、语句、方法，能够制作多窗体程序。2023-2-11图4-1 常用控件图片框（PictureBox）：用于显示图形。可作为其他控件的容器，能显示Print方法的输出。图像框（ImageBox）：用于显示图形。其显示速度快，占用内存少，可实现图形的缩放。定时器（Timer）：每隔一定时间触发Timer事件执行相应代码，可制作动画或计时。单选钮（OptionButton）：

2、通常成组使用，主要用于处理“多选一”的问题。复选框（CheckBox）：能表示选中或未选中二种状态。成组使用时，实现复选多项功能。列表框（ListBox）：显示项目列表，用户可以选择其中的一项或多项。组合框（ComboBox）：由文本框和列表框组合而成的控件，其有三种形式可供选择。框架控件（Frame）：可以对其他控件分组，以便用户识别。常用于建立多个单选钮组。表4-1 本章要掌握的常用控件第 4章 常用控件与窗体2023-2-114.1 4.1 图片框（图片框（PictureBoxPictureBox）图片框（PictureBox）主要用于在窗体的指定位置显示图形，其还可以作为其他控件的容器

3、、显示Print方法输出的文本或显示图形方法输出的图形。4.1.1 属性 （1）Picture属性用来指定显示的图形。图片框可显示JPG、BMP、WMF、GIF、ICO等格式的图形文件。Picture属性可以在属性窗口中设置，也可以在代码中设置。（a）属性窗口中设置在设计阶段，可以单击属性窗口中Picture 属性行右则的按钮，在弹出的“加载图片”对话框中选择加载图形文件。（b）在代码中设置在代码中，可以用LoadPicture函数把图形文件装入图片框或图像框中。语句格式如下：对象名.Picture=LoadPicture(filename)说明：“对象名”：可以是要加载图形的图片框、图像框或

4、窗体的名称“filename”：字符串表达式，指定一个被显示的图形的文件名，第 4章 常用控件与窗体2023-2-11可以包括文件的盘符和路径。如果未指定文件名，执行语句后将清除对象中的图象。举例：实现装载图形的语句：Picture1.picture=LoadPicture(c:windowsbubbles.bmp)实现清除图形的语句：Picture1.Picture=LoadPicture()上机练习时，可以先查找电脑中的图片，得到其路径和名称，再输入到代码中。查找图片的方法：在“资源管理器”或“我的电脑”中的C盘上单击右键，选择右键菜单中的“查找”命令，在弹出的“查找”对话框中名称项里输入

5、“*.JPG”（或“*.BMP”、“*.WMF”等），按“开始查找”按钮即可。（2）AutoSize属性指定控件是否自动改变大小以显示图形全部内容。属性值为True或False。False：保持控件大小不变，超出控件区域的图形内容不被显示。此值为缺省值。True：自动改变控件大小以显示图形全部内容。4.1 4.1 图片框（图片框（PictureBoxPictureBox）第 4章 常用控件与窗体2023-2-114.1.2 应用举例【例4.1】设计程序，演示图片框在AutoSize属性不同选值时的状态和用Picture属性加载、清除图形的功能。分析：为做演示，图片框必不可少，还要建立四个按钮，

6、二个用来设置图片框AutoSize属性值为True或False，另外二个实现加载、清除图形。（如图4-2所示）4.1 4.1 图片框（图片框（PictureBoxPictureBox）（a）犹抱琵琶半遮面状态（b）露出庐山真面目状态（c）清除状态图4-2 例4.1程序运行界面第 4章 常用控件与窗体2023-2-114.1 4.1 图片框（图片框（PictureBoxPictureBox）（1）界面设计 在窗体上添加二个图片框、四个命令按钮。控件的大小、位置和命令按钮的Caption属性可参考图4-2。（2）编写代码依次双击窗体和各命令按钮，输入代码如下。Private Sub Form_Lo

7、ad()在启动程序时，设置图片框属性并加载图形。Command2_Click调用过程Command2_Click,如同输入了Command2_Click事件过程中的四条语句。Command4_Click功能同上。关于过程的调用，会在第8章中讲解。End SubPrivate Sub Command1_Click()“露出庐山真面目”按钮事件过程 Picture1.AutoSize=True自动改变图片框大小以显示图形全部内容 Picture2.AutoSize=TrueEnd SubPrivate Sub Command2_Click()“犹抱琵琶半遮面”按钮事件过程 Picture1.Aut

8、oSize=False当图片框比图形小时,图形超出部分不被显示 Picture2.AutoSize=False Picture1.Height=280减少图片框高度为280,使图片框小于图形 Picture2.Height=280End SubPrivate Sub Command3_Click()“清除”按钮事件过程 Picture1.Picture=LoadPicture()Picture2.Picture=LoadPicture()第 4章 常用控件与窗体2023-2-114.1 4.1 图片框（图片框（PictureBoxPictureBox）End SubPrivate Sub Co

9、mmand4_Click()“加载”按钮事件过程 Picture1.Picture=LoadPicture(C:VBFace02.ico)确保C盘的VB文件夹下有图形文件Face02.ico，也可使用其他图形文件 Picture2.Picture=LoadPicture(C:VBFace04.ico)End Sub 编程所用的Face02.ico等图标文件，可在C盘中查找“*.ICO”获得，一般能在VB资源文件夹“CommonGraphicsIconsMisc”下找到。按F5键运行程序，界面如图4-2所示。单击“露出庐山真面目”按钮，图形会完全显示；点击“犹抱琵琶半遮面”按钮，图片框缩小，图形

10、中的超出部分不被显示；按“清除”按钮，图形被删除；使用“加载”按钮，图形重新显示。运行无误后，请保存工程，以备后用。第 4章 常用控件与窗体2023-2-114.2 4.2 图像框（图像框（ImageBoxImageBox）图像框（ImageBox）只能用于显示图形，没有图片框所拥有的其他功能；因此，图像框比图片框显示速度快、占用内存少。4.2.1 属性（1）Picture属性和图片框的Picture属性相同。（2）stretch 属性指定是否缩放图形来适应控件大小。属性值为True或False。False：缩放控件来适应图形的大小。此值为缺省值。True：缩放图形来适应控件的大小。此值可能会

11、使显示的图形变形失真。第 4章 常用控件与窗体2023-2-114.2 4.2 图像框（图像框（ImageBoxImageBox）4.2.1 属性（1）Picture属性和图片框的Picture属性相同。（2）stretch 属性指定是否缩放图形来适应控件大小。属性值为True或False。False：缩放控件来适应图形的大小。此值为缺省值。True：缩放图形来适应控件的大小。此值可能会使显示的图形变形失真。（a）stretch值为False时（b）值为True并放大时（c）值为True并缩小时图4-3 例4.2 stretch 属性演示第 4章 常用控件与窗体2023-2-114.2 4.2

12、 图像框（图像框（ImageBoxImageBox）（1）界面设计在窗体上添加一个图像框、四个命令按钮。控件的大小、位置和命令按钮的Caption属性可参考图4-3。（2）编写代码依次双击窗体和各命令按钮，输入代码如下。Private Sub Form_Load()Image1.Picture=LoadPicture(C:VBFace03.ico)End Sub在程序启动时,为图像框装载图标“Face03.ico”Private Sub Command1_Click()“True”按钮事件过程 Image1.Stretch=TrueEnd SubPrivate Sub Command2_Cli

13、ck()“False”按钮事件过程 Image1.Stretch=FalseEnd SubPrivate Sub Command3_Click()“放大”按钮事件过程 Image1.Width=Image1.Width*2 Image1.Height=Image1.Height*2End Sub把Image1的宽度和高度值乘2再赋给其Width、Height属性Private Sub Command4_Click()“缩小”按钮事件过程 Image1.Width=Image1.Width/2 Image1.Height=Image1.Height/2End Sub把Image1的宽度和高度值的

14、一半赋给其Width、Height属性第 4章 常用控件与窗体2023-2-114.2 4.2 图像框（图像框（ImageBoxImageBox）按F5键运行程序，程序界面如图4-3（a）所示，此时单击“放大”按 钮，虽然图像框已经扩大一倍（其不可见），但是因其Stretch值默认为False，所以图形并不随图像框的扩大而扩大。随后点击“True”按钮，将Stretch值更改为True，这时图形会为适应图像框的大小而放大，如图4-3（b）所示。正如图4-3（c）所示，按“缩小”按钮，图形会随图像框的缩小而变小。不论图形及图像框是在扩大还是已缩小，只要单击“False”按钮，都会使图像框缩放到图

15、形原始大小的尺寸，来适应图形的正常显示，如图4-3（a）。运行无误后，请保存工程，以备后用。4.2.3 图像框与图片框的区别 虽然图像框与图片框的用法基本相同，但也有不少区别：（1）图像框比图片框占用的内存少，显示图形的速度快。（2）图像框可以实现图形的缩放。（3）图像框不能同图片框一样通过Print方法显示文本或使用显示图形方法输出图形。（4）图像框不能像图片框一样来作为其他控件的容器。此差别说明如下：第 4章 常用控件与窗体2023-2-114.2 4.2 图像框（图像框（ImageBoxImageBox）例如在图像框中画一个命令按钮，图像框并不能作为此命令按钮的容器，他们是彼此独立的，二

16、者之间没有固定的联系。图像框中的命令按钮不从属于图像框，不是图像框的组成部分，当移动图像框时命令按钮仍在原位置，不随之移动。如果单独移动命令按钮，可以把他移动到图像框之外。如果在图片框内画一个命令按钮，图片框会成为这个按钮的容器。此时移动图片框，则命令按钮随之一起移动（命令按钮成为图片框的一个组成部分）。如果单独移动命令按钮，只能在图片框范围内移动，不能把他移动到图片框之外。第 4章 常用控件与窗体2023-2-114.3 4.3 定时器（定时器（TimerTimer）定时器（Timer）可以实现每隔一定的时间间隔就触发一次Timer事件，从而执行相应的代码。利用定时器，可以制作动画、定期执行

17、某个特定操作或实现计时。Timer控件有时被译为计时器或时钟。正如某些自鸣钟可以每隔一小时就触发“整点报时”事件一样，定时器也能每隔一定时间就触发一个事件；而且他还可以用Interval属性来设置间隔时间的长短，在Timer事件里编写不同代码用来实现不同功能。第 4章 常用控件与窗体2023-2-114.3 4.3 定时器（定时器（TimerTimer）4.3.1 属性与事件（1）Interval属性作用：设置触发定时器Timer事件的间隔时间。范围：065,535毫秒（1毫秒=0.001秒）说明：缺省值为0，即定时器控件不起作用；最大值为65,535，即65秒多。如果希望每秒触发n个Time

18、r事件，则应设置属性Interval的值为1000/n。但不要奢望设置为1时，会每秒产生1000个事件。由于大多数个人计算机系统硬件的限制，定时器每秒钟最多可产生的Timer事件在18个左右；也就是说，实际最小间隔时间大约在56毫秒上下。所以，若将Interval属性值设为比56小的数，可能不会产生预期效果。（2）Timer事件在由Interval属性设定的时间间隔过去之后触发，执行相应代码。运行时，定时器不可见，所以他没有Click等事件，Timer事件是定时器唯一的事件。Timer事件的触发，有二个前提：一是Timer控件的Enabled属性被设置为True，二是Interval属性大于0

19、。第 4章 常用控件与窗体2023-2-114.3 4.3 定时器（定时器（TimerTimer）4.3.2 应用举例【例4.3】设计程序，演示定时器的动画、计时功能。分析：动画功能，可以设置定时器控件Interval属性为较小值，以及在Timer事件中使图像框在不同时段加载不同图形来实现。而要在同一事件过程中判断加载不同图形，需要第五章中if语句的相关知识，但我们可以殊途同归的用二个定时器来实现。在第三个计时器的事件中用Time函数获取系统时间，再显示在标签控件中，可实现计时。（如图4-4所示）（a）设计状态（b）动画图一（c）动画图二图4-4 例4.3程序界面第 4章 常用控件与窗体202

20、3-2-114.3 4.3 定时器（定时器（TimerTimer）（1）界面设计在窗体上添加三个图像框（Image2、Image1、Image3）、三个定时器、一个标签，大小及位置可参考图4-4。（2）编写代码依次双击窗体和三个定时器控件，输入代码如下。Private Sub Form_Load()程序启动时,装载图形,设置Interval属性值 Image2.Picture=LoadPicture(C:VBFace02.ico)Image3.Picture=LoadPicture(C:VBFace03.ico)Image1.Picture=Image2.Picture 使Image1拥有同I

21、mage2一样的图形 Timer1.Interval=500设置Timer1每隔0.5秒触发一个Timer事件 Timer3.Interval=100设置Timer3每隔0.1秒触发一个Timer事件End SubPrivate Sub Timer1_Timer()Image1.Picture=Image3.Picture 使Image1显示Image3中的图形 Timer1.Interval=0使Timer1不起作用 Timer2.Interval=500设置Timer2每隔0.5秒触发一个Timer事件End SubPrivate Sub Timer2_Timer()Image1.Pict

22、ure=Image2.Picture 使Image1显示Image2中的图形 Timer2.Interval=0使Timer2不起作用 Timer1.Interval=500设置Timer1每隔0.5秒触发一个Timer事件End SubPrivate Sub Timer3_Timer()Timer3的Timer事件，每隔0.1秒执行一次 Label1.Caption=Time将Time函数返回的系统时间显示在标签中End Sub第 4章 常用控件与窗体2023-2-114.3 4.3 定时器（定时器（TimerTimer）按F5运行程序，程序界面如图4-4（a）、（b）所示。在电脑中可以看到

23、，大约每隔半秒，中间的（Image1）图形就在“闭嘴微笑”和“开口大笑”之间进行转换，并由于视觉的残留现象而形成动画。电影就是以24格/秒（以前是16格/秒）的速度播放相近的图形而给我们“动”的感觉。在实现动画的同时，程序会按“时：分：秒”的格式显示当前系统时间。想一想：（a）系统时间按秒变化，Timer3的Interval属性为什么设置为100而不是1000呢？假设将Interval属性设为1000（1秒）。此时，虽然显示精确到秒的系统时间，但程序的显示并不精确。比如Timer3的一个Timer事件刚刚过去，而系统时间中新的一秒紧跟着到来，程序却要间隔1秒后才会获得并显示这一秒的时间，那么会

24、有n秒（n1）的误差产生。因此，Interval属性值越小，误差也会越小，显示的系统时间越准确。第 4章 常用控件与窗体2023-2-114.3 4.3 定时器（定时器（TimerTimer）按F5运行程序，程序界面如图4-4（a）、（b）所示。在电脑中可以看到，大约每隔半秒，中间的（Image1）图形就在“闭嘴微笑”和“开口大笑”之间进行转换，并由于视觉的残留现象而形成动画。电影就是以24格/秒（以前是16格/秒）的速度播放相近的图形而给我们“动”的感觉。在实现动画的同时，程序会按“时：分：秒”的格式显示当前系统时间。想一想：（a）系统时间按秒变化，Timer3的Interval属性为什么设

25、置为100而不是1000呢？假设将Interval属性设为1000（1秒）。此时，虽然显示精确到秒的系统时间，但程序的显示并不精确。比如Timer3的一个Timer事件刚刚过去，而系统时间中新的一秒紧跟着到来，程序却要间隔1秒后才会获得并显示这一秒的时间，那么会有n秒（n1）的误差产生。因此，Interval属性值越小，误差也会越小，显示的系统时间越准确。第 4章 常用控件与窗体2023-2-114.3 4.3 定时器（定时器（TimerTimer）（b）程序运行后，Timer1和Timer2各自的Timer事件实际每隔多长时间触发一次？我们一起来设想程序的执行。程序启动时，执行窗体的Load

26、事件过程，其中一条语句使Timer1的Interval属性值由0变成500。在0.5秒后，Timer1的Timer事件第一次被触发，事件过程中第二条语句把Timer1本身的Interval属性值再由500设回0，第三句让Timer2的Timer事件于0.5秒后产生。在程序运行了1秒钟时，Timer2的Timer事件过程首次执行，他会关闭Timer2自身并点燃Timer1在0.5秒后执行事件的引线。程序启动后的第1.5秒，即时隔1秒钟以后，Timer1的Timer事件被再次激发从上面的设想中不难看出，除第一次外，Timer1和Timer2各自的Timer事件大约每隔1秒触发一次。（由于是二个定时

27、器互动以及电脑系统硬件的关系，间隔时间会有微小误差。）第 4章 常用控件与窗体2023-2-114.4 4.4 单选钮（单选钮（OptionButtonOptionButton）单选钮（OptionButton）通常成组使用，主要用于处理“多选一”的问题。用户在一组单选钮中最多只能选择一项。选定组中某项单选钮时，其左边圆圈中会出现黑点，表明处于选定状态；而本组内的其他单选钮则被强制处于非选定状态（左边圆圈中无黑点）。4.4.1 属性与事件（1）Value属性表示、设置单选按钮是否处于选定的状态。属性值为True或False。False：处于非选定状态，左边圆圈中没有黑点。此值为缺省值。True

28、：处于已选定状态，左边圆圈中显示黑点。（2）Caption属性显示出现在单选钮旁边的文本。（3）Style属性设置单选钮的显示方式。属性值为0或1。0为缺省值。0 Standard：标准方式。用文本旁边圆圈中是否有黑点来表示选定状态。1 Graphical：图形方式。外观类似命令按钮，用按钮是否按下表示选定的状态。第 4章 常用控件与窗体2023-2-114.4 4.4 单选钮（单选钮（OptionButtonOptionButton）图4-5中有二个框架，每个框架中，都有一个单选钮；每个单选钮组都由二单选钮组成。左侧框架的单选钮组中，二个单选钮的Style属性为0，Value值如控件的标签文

29、本所示。右侧框架的单选钮组中，二个单选钮的Style属性为1；处于按下（凹陷）状态的单选钮，其Value值为True，处于弹出（凸起）状态的单选钮，其Value值为False。图4-5 单选钮属性演示第 4章 常用控件与窗体2023-2-114.4 4.4 单选钮（单选钮（OptionButtonOptionButton）（4）Click事件 单选钮常用事件是Click事件。4.4.2 应用举例 【例4.4】编写“简单记事本”程序，实现功能：可以输入文本并能更改字体大小。分析：输入文本，可用文本框实现；更改字体大小，用单选钮可以做到。（如图4-6所示）（a）启动界面（b）10号字体（c）12号

30、字体图4-6 “简单记事本”运行界面第 4章 常用控件与窗体2023-2-114.4 4.4 单选钮（单选钮（OptionButtonOptionButton）（1）界面设计在窗体上添加一个标签、一个文本框、二个单选钮，大小位置及Caption属性见图4-6。设置文本框的MultiLine属性为True，使其可以输入多行文本。（2）编写代码 双击窗体，在窗体的Load事件中输入代码如下：Private Sub Form_Load()窗体启动时的初始设置。Option1.Value=True使标签为“10号”的单选钮1处于选定状态。Text1.FontSize=10文本大小为10号。End Su

31、b 单击代码窗口上方右侧的事件列表框，在下拉列表中选择“Resize”项，并输入代码：Private Sub Form_Resize()当窗体大小改变时触发的事件。Text1.Height=Form1.Height-Text1.Top文本框的高度=窗体的高度-文本框上边界到窗体顶端的距离。Text1.Width=Form1.Width文本框的宽度总是等于窗体的宽度。End Sub本过程实现文本框随窗体的缩放而缩小扩大。分别双击二个单选钮，输入代码如下所示：Private Sub Option1_Click()Text1.FontSize=10文本大小为10号。End SubPrivate Su

32、b Option2_Click()Text1.FontSize=12文本大小为12号。End Sub第 4章 常用控件与窗体2023-2-114.4 4.4 单选钮（单选钮（OptionButtonOptionButton）程序编写好后，请保存工程，以备后用。（我们将在以后的章节中对其逐步完善。）按F5运行程序，启动界面如图4-6（a）所示，此时标题为“10号”的单选钮处于选中状态。在文本框中可以输入多行文本，文本字体大小为默认的10号字，如图4-6（b）所示。单击标题为“12号”的单选钮，文本字号变为12号，见图4-6（c）。在程序运行时，可以用以下方法选中一个单选钮：间用鼠标单击单选钮。用

33、Tab键定位到单选钮组，然后用方向键定位单选钮。但是不论我们如何选择，在一个单选钮组中，只能有一个单选钮处于选中状态，并且他会保持其选中状态一直到本组中其他单选钮被选中。第 4章 常用控件与窗体2023-2-114.5 4.5 复选框（复选框（CheckBoxCheckBox）复选框（CheckBox）也称为检查框。在单个使用时，可以表示选中或未选中二种状态；在成组出现时，能够实现复选多项的功能。4.5.1 属性与事件 （1）Value属性决定复选框的状态，此属性有三个可选值：0、1、2。0-未选中：处于未选中状态，左边方框中不显示“”号。此值为缺省值。1-已选中：处于已选中状态，左边方框中会

34、显示“”号。2-变灰暗：复选框变成灰色，表示禁止用户选择。前二种状态，可以在程序运行时，通过鼠标单击或用Tab键定位后按空格键来转变。例如，程序运行后，首次单击复选框，其方框内出现号，Value属性值变为1（True）；再次单击此复选框，则会清除方框中的，并使Value属性值变为0（False）。第三种状态，可以在属性窗口里或代码中设置。第 4章 常用控件与窗体2023-2-114.5 4.5 复选框（复选框（CheckBoxCheckBox）（2）Style属性设置复选框的显示方式。属性值为0或1。0为缺省值。0 Standard：标准方式。用文本旁边方框中是否有“”号来表示选定状态。1 G

35、raphical：图形方式。外观类似命令按钮，用按钮是否按下表示选定的状态。当Style属性值为1时，可以在Picture、DownPicture、DisabledPicture三个属性中分别设置图形，用不同的图形来表示Value属性三种状态（未选中、已选中、禁止选择）。（3）事件复选框常用事件为Click事件。第 4章 常用控件与窗体2023-2-114.5 4.5 复选框（复选框（CheckBoxCheckBox）【例4.5】完善“简单记事本”程序，增加功能：可以选择字体样式。分析：常用的字体样式有加粗和倾斜。对于文本，可以只设置一种样式，也可以同时应用二种或多种样式。所以，用复选框来实现

36、对字体样式的选择是比较恰当的。（如图4-7所示）（a）无字体样式（b）加粗（c）加粗并倾斜图4-7 用复选框选择字体样式第 4章 常用控件与窗体2023-2-114.5 4.5 复选框（复选框（CheckBoxCheckBox）（1）界面设计打开上节保存的“简单记事本”工程文件，在窗体上增加二个复选框。文本框的新位置和复选框的大小、位置及Caption属性见图4-7。（2）编写代码分别双击二个复选框，输入代码如下：Private Sub Check1_Click()单击复选框时，会在选中和非选中间进行切换。Text1.FontBold=Check1.ValueEnd Sub文本框的FontBo

37、ld为True时，样式为粗体；为False时，取消粗体。Private Sub Check2_Click()Text1.FontItalic=Check2.ValueEnd Sub文本框的FontItalic为True时，样式为倾斜；为False时，取消倾斜。按F5运行程序，在程序中输入任意文本。单击“加粗”复选框，文本应用加粗样式，如图4-7（b）所示。单击“倾斜”按钮，文本样式为即加粗又倾斜，如图4-7（c）。运行无误后，请保存工程，以备后用。第 4章 常用控件与窗体2023-2-114.5 4.5 复选框（复选框（CheckBoxCheckBox）4.5.3 复选框与单选钮的区别 最主要

38、的区别：在一组复选框中，可以实现多选；而单选钮组中，只能多选一。在一组复选框中，每个复选框都是独立的、互不影响的，可以任意选择它们的状态组合，能够全选、全不选或同时使若干个复选框处于选中状态。在单选钮组中，单选钮间是相互排斥的，选中其中一个就会清除该组中其他按钮的选定状态；所以在选择时，最多且必须选一项，不会出现全选、全不选或多选的状态。第 4章 常用控件与窗体2023-2-114.6 4.6 列表框（列表框（ListBoxListBox）列表框（ListBox）显示项目列表，用户可以选择其中的一项或多项。如果项目总数超过了可显示的项目数，列表框会自动增加滚动条。4.6.1 属性 （1）Lis

39、t属性用来存放列表框的项目。该属性是一个字符串数组，数组的下标从0开始，即List（0）保存表中的第一项内容，List（1）保存第二项内容；依次类推，List（ListCount-1）保存表中的最后一项内容。对于List属性，可以在属性窗口中或代码中设置：（a）在属性窗口中设置：选择属性窗口中的List属性，单击右方的下拉按钮，在弹出的下拉框中输入首项内容；按下Ctrl+Enter键换行，输入第二项内容；输入最后一项后，按下Enter键表示输入结束。第 4章 常用控件与窗体2023-2-114.6 4.6 列表框（列表框（ListBoxListBox）如图4-8（a）所示，在输入“第一项:Li

40、st(0)”后，按Ctrl+Enter键输入“第二项:List(1)”，在输入“第五项:List(4)”后按Enter键结束输入。程序运行后的列表框如图4-8（b）所示。（a）在属性窗口中设置（b）运行后的显示图4-8 列表框属性演示第 4章 常用控件与窗体2023-2-114.6 4.6 列表框（列表框（ListBoxListBox）（b）在代码中设置：在代码中设置List属性的语句格式为：列表框.List（下标）=字符串 例如，图4-8（b）中列表框的显示，也可以用以下语句实现：Private Sub Form_Load()List1.List(0)=第一项:List(0)List1.Li

41、st(1)=第二项:List(1)List1.List(2)=第三项:List(2)List1.List(3)=第四项:List(3)List1.List(4)=第五项:List(4)End Sub （2）ListCount属性 记录列表框中的项目总数。例如图4-8中列表框的ListCount属性为5。该属性只能在程序中引用它。常用ListCount-1表示最后一项的序号。（3）Text属性 用于存放被选中列表项的文本内容。在图4-8（b）中，如选中第二项，则此项会反白显示，同时Text属性值变为“第二项:List(1)”。该属性是只读属性，不能在属性窗口中及代码中设置，只能在代码中引用Tex

42、t属性值，来获取当前选定列表项的内容。第 4章 常用控件与窗体2023-2-114.6 4.6 列表框（列表框（ListBoxListBox）（4）ListIndex属性表示运行时被选中项目的序号（下标值）。如果列表框中没有任何一项被选中，则ListIndex为-1。假设选择了多个列表项，则ListIndex只存储最后一个所选项目的序号。程序运行时，可以使用ListIndex属性判断列表框中哪一项被选中。例如，在图4-8（b）状态中，ListIndex属性值为-1；单击第二项，ListIndex属性值变为1；再点击第三项，ListIndex属性值变为2。ListIndex属性不能在设计时设置，

43、只有程序运行时才起作用。（5）Selected属性该属性是一个逻辑数组，其元素对应列表框中相应的项，表示对应的项在程序运行期间是否被选中。例如，图4-8 （b）状态中，第一项未被选中，Selected(0)的值为False；如若选中第一项，Selected(0)的值会变为True。此属性不能在属性窗口中设置，只能在代码中引用或赋值。第 4章 常用控件与窗体2023-2-114.6 4.6 列表框（列表框（ListBoxListBox）（6）MultiSelect属性设置是否能在列表框中进行复选以及如何进行复选。此属性有三个可选值：0、1、2。0 None：禁止多项选择，只能选择一项。如同一组单

44、选钮一样。此值为缺省值。1 Simple：简单复选，可以同时选择多个项目。单击鼠标或按空格键使项目在选中和非选中状态间切换，类似对一组复选框的操作。2 Extended：扩展复选，能够用更多的方式方便的选择项目。以下为详细说明：只用鼠标点选时，只能选择一项，如同“0 None”。按住CTRL键，可以实现简单复选不连续项，类似“1 Simple”。按住SHIFT键，配合鼠标或方向键，能够进行连续项目的快速选择。按住左键并拖动鼠标，可以对项目进行圈选。选择“2 Extended”后，列表框的选择方式，同在资源管理器中选择文件如出一辙。（7）SelCount属性记录列表框中所选项目的总数。如果没有项

45、被选中，那么SelCount属性将返回0值；否则，他将返回当前被选中的列表项的数量。此属性只有在MultiSelect属性值设置为“1 Simple”或“2 Extended”时起作用，通常与Selected数组一起使用，以处理控件中的所选项目。第 4章 常用控件与窗体2023-2-114.6 4.6 列表框（列表框（ListBoxListBox）4.6.2 方法 列表框常用的方法有：AddItem、RemoveItem和Clear。（1）AddItem方法功能：把一个项目加入列表框。格式：Listname.AddItem item,index说明：Listname：列表框的名称 item：字

46、符串表达式，内容为要加到列表框的项目。index：索引号，即新增加的项目在列表框中的位置。index为0时，添加到第一个位置；index为1时，加到第二个位置；依次类推。如果省略index，新增加的项目将添加到列表框的末尾。举例：List1.AddItem(“第六项:List(5)”)在列表框末尾增加项目“第六项:List(5)”。（2）RemoveItem方法功能：删除列表框中的项目。格式：Listname.RemoveItem index说明：这里的index参数是必选项，他表示要删除项目的序号。举例：List1.RemoveItem 0删除列表框中的第一项。第 4章 常用控件与窗体202

47、3-2-114.6 4.6 列表框（列表框（ListBoxListBox）（3）Clear方法功能：删除列表框控件中的所有项目。格式：Listname.Clear4.6.3 应用举例【例4.6】修改“简单记事本”程序，要求通过列表来选择字号，并能添加、删除字号。分析：可以使用列表框来显示字号列表。单击列表中的字号时，通过把列表框的Text属性值赋值给文本框的FontSize属性，从而实现选择字号功能。建立三个按钮，分别使用列表框的AddItem、RemoveItem和Clear方法来实现字号的添加、删除和清空。（如图4-9所示）（a）运行后输入内容（b）选择字号（c）添加、删除字号图4-9 用

48、列表框选择、添加、删除字号第 4章 常用控件与窗体2023-2-114.6 4.6 列表框（列表框（ListBoxListBox）（1）界面设计打开上节保存的“简单记事本”工程，为突出重点，删除单选钮、复选框以及相应代码。建立一个列表框、一个标签控件、三个命令按钮，设置标签控件、命令按钮的Caption属性以及列表框的List属性如图4-9（a）所示。调整原有文本框的大小及位置，并保持其Text属性为空值。（图中诗句是运行后输入的）（2）编写代码依次双击列表框和三个命令按钮，输入代码如下：Private Sub List1_Click()单击列表框 Text1.FontSize=List1.T

49、ext使文本框中字体大小为列表框中所选字号End SubPrivate Sub Command1_Click()单击“添加”按钮 Dim s As String s=InputBox(请输入要添加的字号,添加字号)List1.AddItem s把用户在输入框中输入的字号添加到列表框中End SubPrivate Sub Command2_Click()单击“删除”按钮 List1.RemoveItem List1.ListIndex删除列表框中所选项目End SubPrivate Sub Command3_Click()单击“清空”按钮 List1.Clear清空列表框中的所有项目End Su

50、b第 4章 常用控件与窗体2023-2-114.6 4.6 列表框（列表框（ListBoxListBox）输入完成后，按F5键运行程序。在文本框中输入任意文本，单击列表框中的项目，可以设置相应的字号；例如单击“12”，则文本字体大小更改为12号。单击“添加”按钮，在弹出的输入框中输入字号，按“确定”按钮后，列表框将增加所输入的字号。选择某一字号，单击“删除”按钮，会删除所选字号。单击“清空”按钮，则清除所有字号。请保存此工程。第 4章 常用控件与窗体2023-2-114.7 4.7 组合框（组合框（ComboBoxComboBox）图4-10 组合框的三种形式 组合框（ComboBox）是由文