模块4--Visual-Basic的窗体与常用控件.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,模块,4 Visual Basic,的窗体与常用控件,任务,1,常用标准控件,任务,2,焦点与,Tab,顺序,任务,3,其他常用控件,任务,4,窗体,返回,任务,1,常用标准控件,4.4.1,命令按粗与文本框控,控件是可以放置在窗体上的对象，它有自己的属性、方法和事件。可以用控件来接收用户的输入、显示输出和触发事件的过程，可以用方法来操作大部分控件。有一些控件为交互作用式的,(,响应用户动作,),，而有些则为静态的,(,仅能用代码访问,),单击窗体上的某一控件，激活它为当前活动控件，此时属性窗口上边的对象框中出现了该控件对象的名字，下边的属性列表中是对应的,该控件的属性。接下来看一看几种最基本控件的属性、事件和方法。命令按钮在工具箱上的图标为,在工具箱中双击命令按钮图标，或者按住鼠标左键将命令按钮拖入窗体中，一个命令按钮就添加到了窗体上，接下来就可以对命令按钮的属性进行设置了。,下一页,返回,任务,1,常用标准控件,1.,命令按钮的属性,程序运行时，对应用程序进行交互控制的最简单方法，就是使用命令按钮，所以命令按钮很重要。常用的属性有以下几种。,(1)Name,属性。该属性用于设置命令按钮的名称，运行时为只读。,(2)Style,属性。此属性设置命令按钮的外观。它的值有两种选择,0:Standard,按钮以标准的形式显示,;1:Graphical,按钮以图形的方式显示。,(3)Caption,属性。该属性主要是在按钮上显示文字，告诉用户该按钮的功能。它们的属性设置如,表,4,一,1,所示。,上一页,下一页,返回,任务,1,常用标准控件,(4)Enabled,属性。该属性用来控制命令按钮对象是否可用，值为,True,时表示该按钮对象可用，值为,False,时表示该按钮对象不可用。,(5)Default,属性。此属性将一个命令按钮设置为默认的“活动按钮”，它的值为,True,时表示该按钮被确定为默认的“活动按钮”，值为,False,时不是默认的“活动按钮”。,(6)Cancel,属性。此属性设置命令按钮是否为默认的“取消按钮”，它的值为,True,时表示该按钮被确定为默认的“取消按钮”，值为,False,时不是默认的“取消按钮”。,上一页,下一页,返回,任务,1,常用标准控件,2.,命令按钮的事件,命令按钮的事件有,Click,MouseDown,事件和,MouseUp,事件，当单击命令按钮，触发该按钮的,Click,事件时，也将触发其他两个事件。三个事件发生的顺序为,MouseDown,事件，,Click,事件和,MouseUp,事件，命令按钮最主要的事件是,Click,事件。,3.,文本框控件的属性,文本框控件在工具箱中的控件图标为 。它一般用来接收和显示输入输出信息，用于编辑文本。,(1)Name,属性。此属性的值就是文本框的名字，文本框没有,Caption,属性。,(2)Text,属性。,Text,属性既可以输入文本，又可以输出信息，使用起来很方便，是文本框控件最为重要的属性。,(3),MaxLength,属性。用于设置文本框中输入字符串的长度限制。默认值为,0,，表示该文本框中字符串的长度由系统限制，其他值则表示该文本框能够容纳的最大字符数。,上一页,下一页,返回,任务,1,常用标准控件,(4)Alignment,属性。设置文本框中文本内容的对齐方式。,0,为左对齐，,1,为右对齐，,2,为中间对齐。,(5),MultiLine,属性。该属性决定文本框中的内容是否可以显示多行。默认值为,False,。在属性窗口中找到该属性，单击其右侧的下三角按钮，在下拉列表中选择,True,，程序运行时就可以在界面上的文本框中输入多行信息。,(6),FontName,属性。,FontName,属性设置字体的类型,;,FontSize,属性设置字体的大小,;,FontItalic,属性设置字体输出的形式是否为斜体,;,FontUnderline,属性是指是否在输出的文本下加下画线，值为,0,时不加下画线，值为,1,时加下画线,;,FontBold,属性设置字体是否为粗体。所有这些属性都是用于设置有关文本框输出时文本的文字样式的。例如，要求程序运行时文本框内输出的文字为粗体，字号为,20,，字体类型是宋体，斜体。,(7),ScrollBars,属性。该属性设置文本框是否添加滚动条。它有以下,4,种选择。,0:,不加滚动条。,1:,只加水平滚动条，此时文本框自动换行功能被取消。,2:,只加垂直滚动条。,3:,既加水平滚动条又加垂直滚动条，此时文本框成为一个简单的编辑器。,上一页,下一页,返回,任务,1,常用标准控件,(8)Locked,属性。设置文本框内容是否可以编辑。取值为,True,时，可以滚动显示文本框中的内容，但不能更改,;,取值为,False,时，可以滚动显示并修改文本框中的内容。,(9),PasswordChar,属性。此属性的值决定程序运行时，用户从键盘上输入字符后，该文本框中显示出来的对应字符，它的默认字符为空字符串。例如，一个文本框,Text1,设置它的,PasswordChar,属性值为“*”，程序运行时，无沦通过键盘给界面上的文本框,Text1,中输入任何字符，它都会将输入的每一个字符在屏幕上显示为“*”。这一属性经常被用在设置密码的情况中，以保证输入密码的安全性。,上一页,下一页,返回,任务,1,常用标准控件,【,例,4,一,1】,设计一个程序可检查密码是否正确，密码为,12345,(1),界面设计如,图,4,一,1,所示。界面中的对象有窗体，两个标签控件，文本框控件和命令按钮等。,(2),属性设置如,表,4,一,2,所示。,(3),代码设计。,Private Sub Command1 Click,Pass$=Text1.Text,If pass$=12345Then,Label2.Caption=,密码正确,!,Label2.Caption=,密码错，请重新输入,!,End if,End Sub,上一页,下一页,返回,任务,1,常用标准控件,向文本框,Text1,中每输入一个字符，就激发,Keypress,事件，作出响应，执行上面的程序,;,当输入的字符不是大写字母时，提示“请输入大写字母”。,Keypress,可以获得键盘输入字符的,ASCII,码值。,(4),调试运行。,程序运行时的显示界面如,图,4-2,所示，通过键盘向文本框,Text1,中输入字符，对相应的在文本框中显示一串“*,”,，此时单击“确认”按钮，触发,Command1,按钮的,Click,事件，并做出响应执行上面的过程。程序中将输入的字符串与事先设置好的密码“,12345”,进行比较，根据不同结果设置标签控件,Lable2,不同的,Caption,属性值,(,初始值为空,),，在窗口中显示“密码正确,!”,，如,图,4,一,3,所示,;,否则显示“密码错，请重新输入,!”,，如,图,4,一,4,所示。,上一页,下一页,返回,任务,1,常用标准控件,4.,文本框的事件与方法,(1)Change,事件。当文本框的内容变化时激发该事件。,(2)Keypress,事件。当从一个键盘上输入一个字符时，就触发该事件。,在文本框中输入数据的时候难免会出现错误的数据，通过调用相应事件过程，就可以识别从键盘上输入的字符是否正确，达到判断检查输入数据是否正确有效的功能。,看下面的程序,:,Private Sub Text 1,KeyPress(KeyAscII,As integer),If,KeyAscII,90 Then,Print“,请输入大写字母 屏幕上输出错误信息,End Sub,上一页,下一页,返回,任务,1,常用标准控件,(3),文本框的,SetFocus,方法。,在,Microsoft Windows,环境下，任何时候都仅有一个窗口为激活状态，窗体或控件能接收鼠标单击或键盘输入。当对象的标题或标题栏被突出,(,蓝色,),显示时，说明该对象“具有焦点”。焦点能由用户或应用程序设置，利用文本档的,SetFocus,方法可以设置焦点。,上一页,下一页,返回,任务,1,常用标准控件,4.1.2,复选框和单选按钮,在应用程序中，有时候需要用户作出选择，这些选择有的简单，有的则比较复杂。为此，,VB 6.0,提供了几个用于选择的标准控件，包括复选框、单选按钮、列表框和组合框。这一节介绍复选框和单选按钮，其默认名称分别为,Check x,和,Option x(,其中,x,为,1,2,3,),，下一节介绍列表框和组合框。,在应用程序中，复选框和单选按钮用来表示状态，在程序运行期间可以改变其状态。复选框用“,”表示被选中，可以同时选择多个。与此相反，在一组单选按钮中，只能选择其中的一个，当选中某个单选按钮时，其他单选按钮都处于关闭状态，这与收,(,录,),音机上按钮的作用类似，因此也称收,(,录,),音机按钮。,上一页,下一页,返回,任务,1,常用标准控件,复选框和单选按钮的属性和事件,1),属性,以前介绍的大多数属性都可以用于复选框和单选按钮，包括,Caption,Enabled,FontBold,，,FontItalic,，,FontNamc,，,FontSize,，,FontUnderline,，,Height,，,Left,，,Name,，,Top,，,Visible,以及,Width,等。和命令按钮一样，对复选框和单选按钮可以使用,Picture,DownPicture,和,DisabledPicture,属性。此外，还可以使用下列属性。,(1)Value,属性。该属性用来表示复选框和单选按钮的状态。对于单选按钮来说，,Value,属性可以设置为,True,或,False,。当设置为,True,时，该单选按钮是“打开”的，按钮的中心有一个原点,;,如果设置为,False,，则单选按钮是“关闭”的，按钮是一个圆圈 。,对于复选框来说，,Value,属性可以设置为,0,1,或,2,。,0:,表示没有选中该复选框。,1:,表示选中该复选框。,2:,表示该复选框被禁止,(,灰色,),。,上一页,下一页,返回,任务,1,常用标准控件,(2)Alignmen1,属性。该属性用来设置复选框或单选按钮控件标题的对齐方式，它可以在设计时设置，也可以在运行期间设置。,格式,:,对象,.Alignmen1,=,值,这里的“对象”可以是复选框或单选按钮，也可以是标签和文本框,;“,值”可以是数字,0,或,1,，也可以是符号常量。当对象为复选框或单选按钮时，“值”的含义如,表,4,一,3,中所示。,(3)Style,属性。该属性用来指定复选框或单选按钮的显示方式，以改善视觉效果。其取值如,表,4,一,4,所示。,在使用,Style,属性时，应该注意,:Style,是只读属性，只能在设计时使用,;,当,Style,属性被设置为,1,时，可以配合,Picture,DownPicture,和,DisabledPicture,属性分别设置不同的图标或位图,(,参见命令按钮,),，用来表示未选定，选定和禁用,;Style,属性被设置为不同的值,(0,或,1),时，其外观类似于命令按钮，但其作用与命令按钮是不一样的。,上一页,下一页,返回,任务,1,常用标准控件,2),事件,复选框或单选按钮都可以接受,Click,事件，但通常不对复选框或单选按钮的,Click,事件进行处理。当单击复选框或单选按钮时，将自动变换其状态，一般不需要编写,Click,事件过程,),。,2.,应用举例,复选框也称检查框。在执行应用程序时单击复选框可以使“选”和“不选”交替起作用。也就是说，单击一次为“选”,(,复选框中出现“,”记号,),，再单击一次变成“不选”,(,复选框的“,”消失,),。每单击一次复选框都产生一个,Click,事件，分别以“选”和“不选”响应。,上一页,下一页,返回,任务,1,常用标准控件,例,4-2,用复选框控制文本输入是否加“下画线”和“斜体显示”。,(1),界面设计。新建工程，工程文件名为“第,6,章,.,vbp,，添加窗体,Form1,，在窗体上添加,3,个控件,:1,个文本框，,2,个复选框。在文本框中显示文本，有两个复选框决定显示的文本是否加下画线或斜体显示。,(2),编写如下代码。,Private Sub Form-Load(),Display.,FontSize,=16,End,Sub,Private Sub Display-Change(),If,UnderOn,.Value=1 Then,Display,.,FontUnderlinc,=True,Else If,Italiec,On.Value=1 Then,Display,.,FontItalic,=True,End,If,End Sub,上一页,下一页,返回,任务,1,常用标准控件,Private Snh TlalicOn Click(),If ItalicOn.Value=1 Then,Display.FonLILalic=True,Else,Display.FonLILalic=False,End If,End Sub,Private Sub UnderOn_Click(),If UnderOn.Value=1 Then,Display.FonLUnderline=True,Else,Display.FonLUnderline=False,End If,End Sub,上一页,下一页,返回,任务,1,常用标准控件,(,3),调试运行。程序的执行结果,如图,4-5,所示。,对几个事件过程作如下简单说明。,(1)Display Change(),过程是当用户在文本框中输入数据,(,发生,Chang,。事件,),时做出反应。它根据复选框的,Value,属性值决定文本文件的输出方式。如果复选框,Under On,的,Value,属性值为,1,，则把文本框的,FontItalic,属性设置为,True(,即用斜体显示,),。,(2),UnderOn,Click(),事件过程用来测试复选框,UnderOn,的,Value,属性值是否为,to,如果为,1,，则把文本框的,FontUnderlinc,属性设置为,True(,即加下画线,),。否则设置为,False(,不加下画线,),。,(3),ItalicOn,Click(),事件过程测试复选框,ItalicOn,的,Value,属性值是否为,1,。如果为,1,，则把文本框的,FontItalic,属性设置为,True(,显示斜体,),，否则为,False(,正常字体,),。单选按钮的作用与菜单类似。当菜单项不多时，用单选按钮更为直观、方便。,上一页,下一页,返回,任务,1,常用标准控件,【,例,4,一,3】,用单选按钮在文本框中显示不同的字体。,(1),界面设计。在工程中添加窗体,Form2,，为了简单起见，只显示,3,种字体。这需要在窗体上建立,1,个文本框和,3,个单选按钮。,(2),属性设置。对象属性设置如,表,4,一,5,所示。,(3),为窗体和,3,个单元按钮编写事件过程的代码如下。,Private Sub Command1,-,Click(),If Option1.Value=True And Oplion4.Value=True Then,Text1.Text=,您符合我公司的用入要求,Text1,.,FontSize,=10,Text1.,FontName=,宋体,上一页,下一页,返回,任务,1,常用标准控件,Else,Text1.Text=,您不符合我公司的用人要求,Text1,.,FontSize,=15,Texll,.,FontName=,幼圆,End If,End Sub,需要输出的内容在文本框中显示。,(4),程序运行。程序运行后，选中某个单选按钮，将重新设置文本框的两种属性,(,FontName,和,FontLime,),，从而使文本以不同的字体和大小显示出来。程序的执行结果如,图,4,一,6,所示,),上一页,下一页,返回,任务,1,常用标准控件,4.1.3,列表框和组合框,利用列表框可以选择所需的选项，而组合框则可以将一个文本框和一个列表框组合为单个控制窗口。列表框和组合框的默认名称分别为,List,x,和,Combox,(x,为,1,，,2,，,3,，,),。,1.,列表框,列表框用于在很多选项中作出选择。在列表框中可以有很多个选项供选择，用户可以单击某一项选择自己所需要的选项。如果选项太多，超出了列表框设计时的长度或宽度，则,VB 6.0,会自动给列表框加上垂直滚动条或水平滚动条。为了能正确操作，列表框的高度应不少于,3,行,),。,上一页,下一页,返回,任务,1,常用标准控件,1),列表框的属性,列表框所支持的标准属性包括,Caption,Enabled,FontBold,FontItalic,FontNatne,FontSize,FontUnderline,Height,Left,Name,Top,Visible,以及,Width,等。此外，它还具有以下特殊属性。,(1)Columns,属性。,该属性用来确定列表框的列数，当该属性设置为,0(,默认,),时，所有的选项呈单列显示。如果该属性设置为,1,，则列表框呈多行多列显示,;,如果大于,1,且小于列表框中的选项数，则列表框呈单行多列显示。默认设置为。时，如果列表项的总高度超过了列表框的高度，将在列表框的右边加上一个垂直滚动条，可以通过它上下移动列表。当,Columns,的设置值不为,0,时，如果选项的总高度超过了列表框的高度，将把部分列表项移到右边一列或几列显示。当各列的宽度之和超过列表框宽度时，将自动在底部增加一个水平滚动条。,上一页,下一页,返回,任务,1,常用标准控件,(2)List,属性。,该属性用来列出选项的内容。,List,属性保存了列表框中所有值的数组，可以通过下标访问数组中的值,(,下标值从。开始,),。,格式,:*$=,列表框,.List(,下标,),例如,:*$=Lisp.List(6),将列出列表框,Lisp,第,7,项的内容。也可以改变数组中已有的值。,格式,:,列表框,.List(,下标,)=*$,例如,:Lisp.Lisl(3)=“AAAAAAA”,将把列表框,List,第,4,项的内容设置为“,AAAAAA,。,(,3)LislCount,属性。,该属性列出列表框中选项的数量。列表框中选项的排列从,0,开始，最后一项的序号为,ListCount-1,。例如，执行,x=List1.,ListCount,后,x,的值为列表框,List,的选项总数。,上一页,下一页,返回,任务,1,常用标准控件,(4)LislIndex,属性。,该属性设置的是已选中的选项的位置。选项的位置由索引值指定，第一项索引值为,0,第二项索引值为,1,，依次类推。如果没有选中任何项，,ListIndex,的值将设置为,-1,。在程序中设置,ListIndex,后，被选中的条目将反向显示。,(,5)MultiSelect,属性。,该属性用来设置一次可以选择的表项数。对于一个标准列表框，该属性的设置决定了用户是否可以在列表框中选择多个表项。,MultiSelect,属性可以设置成为以下,3,种值。,上一页,下一页,返回,任务,1,常用标准控件,0-None:,每次只能选择一项，如果选择另一项则会取消前一项的选择。,1-Simple:,可以同时选择多项，后续的选择不会取消前面所选择的项，可以用鼠标或空格键选择。,2-Extended:,可以选择指定范围内的选项。其方法是,:,单击所要选择范围的第一项，然后按住,Shift,键不要松开，并单击所要选择范围的最后一项。如果按住,Ctrl,键并单击列表框中的选项，则可以不连续的选择多个选项。如果选择了多个选项，,ListIndex,和,Text,的属性只表示最后一次的选择值。为了确定所要选择的表项，必须检查,Selected,属性的每个元素。,上一页,下一页,返回,任务,1,常用标准控件,(6)Selected,属性。,该属性实际上是一个数组，各个元素的值为,True,或,False,，每个元素与列表框相对应。当元素的值为,True,时，表明选择了该项,;,如果为,False,，则表示未选择。用下面的语句可以检查指定的表项是否被选择。,格式,:,列表框名,.Selected(,索引值,),“,索引值”从,0,开始，它实际上是数组的下标。上面的语句返回一个逻辑值,(True,或,False),，用下面的语句可以选择指定的选项或取消已选择的选项。,格式,:,列表框名,.Selected(,索引值,)=True I False,(,7)SelCount,属性。,如果,MultiSelect,属性设置为,1(,Ssimple,),或,2(Extended,，则该属性用于读取列表框中所选项目的数目。通常它与,Selected,一起使用，以处理控件中的所选项目。,上一页,下一页,返回,任务,1,常用标准控件,(,8)Sorted,属性。,该属性用来确定列表框上的选项是否按字母、数字升序排列。如果,Sorted,属性设置为,True,，则表示按字母或数字升序排列,;,如果把它设置为,False,默认,),，则选项将按加入列表的先后次序排列。,(9)Style,属性。,这个属性用来确定控件的外观，只能在设计时确定。其取值可以设置为,0(,标准形式,),或,1(,复选框形式,),。,上一页,下一页,返回,任务,1,常用标准控件,(10)Text,属性。,该属性值为最后依次选中的选项的文本，不能直接修改,Text,属性。,2),列表框的事件,列表框接受,Click,和,DblClick,事件，但有时不用编写,Cilck,事件过程代码，而是当单击一个命令按钮或发生,DblClick,事件时，读取,Texl,属性。,3),列表框的方法,列表框可以使用,AddItem,Clear,和,RemoveItem,等方法，用来在运行期间修改列表框的内容。,上一页,下一页,返回,任务,1,常用标准控件,(1)AddItem,该方法用来在列表框中插入一个选项。,格式,:,列表框,.,AddItem,项目字符串,，索引值,AddItem,方法把项目字符串的文本内容放入列表框中。如果省略索引值，则文本被放在列表框的尾部。索引值可以指定插入项在列表框中的位置，表中的项目从。开始记数，索引值不能大于表中项数,-1,。该方法只能单个地向列表框中添加项目。,(2)Clear,该方法用来清除列表框中的全部选项。,格式,:,列表框,.Clear,执行,Clear,方法后，,ListCount,属性重新设置为,0,。,(3)RetnoveI fern,该方法用来删除列表框中指定的选项。,格式,:,列表框,.,RetnoveIletn,，索引值,上一页,下一页,返回,任务,1,常用标准控件,RemoveItem,方法从列表框中删除以索引值为地址的选项，该方法每次只能删除一个选项。假定在窗体上添加了一个列表框,List,和两个命令按钮,Command1,Command2,，则下面的过程,:,Private,Sub,Commandl,_ Click(),Lisp,.,AddItemTest,0,End,Sub,Private,Sub Cotntnand2_ Click(),Tist1,.,RemoveItem,0,End,Sub,可以分别向列表框中增加和删除选项。单击命令按钮,Command,1,，可以把字符串,“,Test”,添加到列表框,List,的开头,;,而单击命令按钮,Cotntnand2,，则可以删除列表框开头的一项。,以上介绍了列表框的属性、事件和方法。下面举一个例子。,上一页,下一页,返回,任务,1,常用标准控件,例,4,一,4,交换两个列表框的选项。,要求,:,其中一个列表框中的选项按字母升序排列，另一个列表框中的选项按加入的先后顺序排列。当双击某个选项时，该选项从本列表框中消失，并出现在另一个列表框中。,界面设计。在工程中添加窗体,Forma,，然后在窗体上添加两个列表框。,编写代码如下,:,Private Sub Form Load(),Rem,初始化列表框,List1,List1.,AddItem,(,语文,),List1.,AddItem,(,高数,),List1.,AddItem,(,英语,),List1.,AddItem,(“,计算机基础,),List1.,AddItem,(,计算机网络,),List1.,AddItem,(,图形图像,),List1.,AddItem,(,多媒体,),上一页,下一页,返回,任务,1,常用标准控件,List1,.,AddItem,(,电子基础,),List1.,AddItem(“C,程序设计,List1.,AddItem(“C,+,程序设计,List1.,AddItem(VB,程序,List1.,AddItem,(,数据库基础,),List1,.Selected(0)=True,设置被选择项,List1.,AddItem,(,数据结构,),List1.,AddItem,(,会计原理,),List1.,AddItem,(,马列,),List1.,AddItem,(,邓选,),End Sub,Private Sub List1_DblClick(),当列表框内某列表项被双击时,Dim,n As Integer,n,=List1.,ListIndex,记录当前列表项索引值,上一页,下一页,返回,任务,1,常用标准控件,If List1.,ListCount,0 And n=0 Then,List2.,AddItem,(List1.Text),将当前列表项添加到,List2,List1.,RemoveItem,(n),从列表框中删除当前列表项,If List1.,ListCount,n Then List1.,ListIndex,=n,重设被选择的列表项,End If,End Sub,Private Sub Command1 Click(),当,键被按时,Dim n As Integer,n=List1.,ListIndex,记录当前列表项索引值,If List1.,ListCount,0 And n=0 Then,List2,.,AddItem,(List1.Text),将当前列表项添加到,List2,List,1.,RemoveItem,(n),从列表框中删除当前列表项,If,List1.,ListCount,n Then List1.,ListIndex,=n,重设被选择的列表项,Fnd,If,End Sub,上一页,下一页,返回,任务,1,常用标准控件,Private Sub Cotntnand2_ Click(),Dim to As Integer,n As Integer,m=Lisp.,ListCount,For n=0 To to-1,Lisl2,.AddItem(List1.List(0),移动列表框顶端列表项,Lisp,.RetnoveIletn(0),Next n,Lisl2.Selected(0)=True,设置被选择列表项,End Sub,Private Sub Lisl2_DhlClick(),当列表框内某列表项被双击时,Dim n As Integer,n=Lisl2.,ListIndex,记录当前列表项索引值,上一页,下一页,返回,任务,1,常用标准控件,If List1.,ListCount,0 And n=0 Then,List1.,AddItem,(List2.,Text),将当前列表项添加到,List1,Lisl2.,RemoveItem,(n),从列表框中删除当前列表项,If List2.,LislCount,n Then Lisl2.,ListIndex,=n,重设被选择的列表项,End If,End Sub,Private Sub Command3_Click(),当,键被按时,Dim n As Integer,n=List2.,ListIndex,记录当前列表项索引,If List1.,ListCount,0 And n=0 Then,List1.,AddItem,(List2.Text),将当前列表项添加到,List2.,RetnoveIletn,(n),从列表框中删除当前,If List2.,ListCount,n Then Lisl2.,ListIndex=n,重设被选择的列表项,End If,End Sub,上一页,下一页,返回,任务,1,常用标准控件,Private Sub Cotntnand4_ Click(),Dim to As Integer,n As Integer,m=Lisl2.,ListCount,Rem,利用循环将列表框,List2,的列表项全部移动到,List1,For n=0 To to-1,List1.,AddItem,(List2.List(0),移动列表框顶端列表,T,List2.RemoveItem(0),Next n,List1.Selected(0)=True,设置被选择列表项,End Sub,上一页,下一页,返回,任务,1,常用标准控件,Form-,Load,过程用来初始化列表框，并把每个选项添加到列表框,Lisp,中，各个选项按加入的先后顺序排列。当双击列表框,Lisp,中的某一项时，该项即被删除并被放到列表框,List2,中，在,List2,中的选项按字母顺序排列。事件过程,Lisp-DblClick,和事件过程,List2-DblClick,的操作类似，但按相反的方向移动选项，程序执行情况如,图,4-7,所示。,在上面的程序中，用,AddItem,方法向列表框中添加选项。在设计阶段，也可以通过,List,属性向列表框中添加选项。其操作是,:,在窗体上添加一个列表框，保持它为活动状态，在属性窗口中单击,List,属性，然后单击右端的箭头，在打开的下拉列表框中输入列表框中的选项，每输入一项按,Ctrl+Enter,组合键键换行，全部输入完后按,Enter,键，所输入的选项即出现在列表框中，输入情况如,图,4-8,所示。,上一页,下一页,返回,任务,1,常用标准控件,2,.,组合框,组合框,(,ComboBox,),是综合列表框和文本框的特性组合成的控件。也就是说，组合框是一种独立的控件，它兼有列表框和文本框的功能。它可以像文本框一样，让用户通过鼠标选择需要的选项，也可以像文本框一样，用输入的方式选择。,1,),组合框属性,列表框的属性基本上都可以用于组合框，此外它还有一些自己的属 性。,(1)Style,属性。,这是组合框的一个重要属性，其可取值为,0,1,2,，它决定了组合框,3,种不同的类型。,1)Style,属性设置为,0,时，组合框称为“下拉组合框”,(,DropDown,ComboBox,),，它看起来像一个下拉列表框，但可以输入文本或从下拉列表中选择列表项。单击右端的箭头可以显示下拉选项，并允许用户选择，可识别,DropDown,事件。在,VB 6.0,的属性窗口中有类似的操作。,上一页,下一页,返回,任务,1,常用标准控件,2),Style,属性设置为,1,的组合框称为“简单组合框”,(Simple,ComboBox,，它有可以输入中文的编辑区和一个标准列表框组。列表不是下拉式的，但一直显示在屏幕上，可以选择列表项，也可以在编辑区中输入文本，它识别,DblClick,事件。在运行时，如果项目的总高度高于组合框的高度，则自动加上垂直滚动条。,3),Style,属性设置为,2,的组合框称为“下拉式列表组合框”,(,DropDown,ListBox,),。和下拉式组合框一样，它的右端也有一个箭头，可供“拉下”或“收起”列表框，可以选择列表框中的选项。它不能识别,DblClick,Change,事件，但可以识别,DropDown,事件。,图,4-9,展示了,3,种不同类型的组合框，从左致右依次为下拉组合框、简单组合框和下拉式列表组合框。从上面看，第一种和第三种只能从下拉列表框中选择列表项，不允许输入文本。,上一页,下一页,返回,任务,1,常用标准控件,(,2)Text,属性。,该属性值是用户所选的列表项目中的文本或直接从编辑区输入的文本。,2,),组合框事件,前面在介绍属性时，已谈到部分组合框事件。实际上，组合框所响应的事件依赖于其,Style,属性。例如，只有简单组合框,(Style,属性值为,1),才能接收,DblClick,事件，其他两种组合框可以接收,Click,事件和,DropDown,事件。对于下拉式组合框,(,属性,Style,的值为,0),和简单组合框，可以在编辑区输入文本，当输入文本时可以接收,Change,事件。一般情况下，用户选择项目之后，只需要读取组合框的,Text,属性。,当用户单击组合框中向下的箭头时，将触发,DropDown,事件，该事件实际上对应于向下箭头的单击,(Click),事件。,3),组合框方法,前面介绍的,AddItem,Clear,和,RemoveItem,方法也适用于组合框，其用法与在列表框中讲述的相同。,上一页,下一页,返回,任务,1,常用标准控件,【,例,4-5】,从屏幕上选择微机的配置，并显示出来。,要求,:,微机的配置有很多种，这里只给出机型,CPU,主频，内存和硬盘容量。用户可以选择自己需要的配置，然后输出这些配置，设计界面如,图,4-10,所示。,(1),界面设计。在工程中添加窗体,Form4,，在窗体上添加,4,个标签控件，,4,个组合框控件，两个命令按钮控件，设计界面如,图,4-10,所示。,(2),属性设置。对象属性设置如,表,4-6,中所示。,上一页,下一页,返回,任务,1,常用标准控件,(3),代码编写如下,:,Private Sub Form1 Load(),Combol,.,AddItem,IBM,Combol,.,AddItem,Compag,Combol,.,AddItem,方正,Combol,.,AddItem,联想,Combol,.,AddItem,HP,Combol,.,AddItem,Aces,Combol,.,AddItem,DEC,Combo2.,AddItem,奔腾,3 900,Combo2.,AddItem,奔腾,3 933,Combo2.,AddItem,奔腾,41.0G,Combo2.,AddItem,奔腾,41.2G,Combo2.,AddItem,奔腾,41.5G,Combo2.,AddItem,奔腾,41.7G,Combo2.,AddItem,奔腾,42.0 G,上一页,下一页,返回,任务,1,常用标准控件,Combo3.,Addltem,h4MR,Combo3.,AddItetn,128MB,Combo3.,AddItetn,256MB,Combo4.,AddItetn,10GB,Combo4.,AddItetn,20GB,Combo4.,AddItetn,40GB,Combo4.,AddItetn,60GB,Combo4.,AddItetn,80GB,End Sub,Private Sub Comand1_ Click(),Debug.Print,所选择的配置为,:,Debug.Print,机型,:;Combo1,Debug.Print CPU:;Combo2,Debug.Print,内存,:;Combo3,Debug.Print,硬盘,:;Combo4,End Sub,Private Sub Command2 Click(),End,End Sub,上一页,下一页,返回,任务,1,常用标准控件,(4),程序运行情况如,图,4-11,所示。,在上面的程序中，,4,个组合框分为,3,种不同的类型,(Style,属性分别为,1,2,2,和,0),，选择项目的方式也不一样。用