《Visual Basic NET 2008从基础到项目实战》课件12 创建程序的可视外观-Windows Form编程基础.ppt

1、用户界面是在用户运行程序时所看到的程序部分。用户界面通常由一个主窗口或窗体以及若干个控件（如按钮、用于输入文本的字段等）组成。这些Visual Basic程序类型称为Windows Form应用程序，并且使用Windows窗体控件来创建用户界面。控件是构成用户界面的要素，是重要的可视化编程工具，应用Visual Basic.Net开发Windows应用程序是一件很简单的事情。VB.NET2008提供了大量的Windows控件供程序员使用。掌握了控件的属性、事件和方法，就可以轻松地编写出精彩的应用程序。本章将讲述Windows应用程序开发常用的基础控件和组件。12.1 什么是控件和组件12.2

2、控件的基本属性和事件12.3 窗体Form12.4 Label控件与LinkLabel控件12.5 Button控件12.6 TextBox、RichTextBox与MaskedTextBox控件12.7 PictureBox控件12.8 RadioButton与CheckBox控件12.9 ListBox与CheckedListBox控件12.10 ComboBox控件12.11 GroupBox与Panel控件12.12 用户控件组件指任何可复用的对象或任何可与其他对象交互的代码体。控件就是具有用户界面的组件。也可以说，组件是不可见的控件，因为组件不需要显示任何信息或用户界面。在.NET中

3、，控件一般继承自Control，而组件一般继承自Component。每一个控件都有自己的属性、事件和方法。在【属性】窗口可以看到控件的属性和事件。有一些属性是大多数控件都具有的，如名称（Name）、标题（Text）、字体（Font）、大小（Size）等。有一些事件也是大多数控件都具有的，如鼠标的单击（Click）、双击（DblClick）事件等。Name属性是所有控件都具有的属性，用于指明该控件的名称。在代码中使用Name属性来引用该控件。所有的控件在创建时都有一个默认的名称，一般是控件名加数字，如Form1，TextBox1等。为了提高程序的可读性，一般需要将名称修改成有意义的名称。Text

4、属性一般用于获取或者设置与控件关联的文本。不同控件的Text属性含义也稍有不同，如窗体的Text属性表示窗体的标题，文本框的Text属性表示文本框中的文本，标签的Text属性表示标签的显示内容，单选按钮和多选框的Text属性表示单选按钮和多选框后面显示的文本等。ForeColor属性用于设置或获取控件的前景颜色，即正文颜色，其值是一个十六进制的常数，可以在【属性】窗口的调色板中直接选取，其默认值是黑色。该属性用于设置控件的背景图像。单击右边的省略号按钮，即可打开【选择资源】窗口。在该窗口中导入作为控件背景的图像，单击【确定】按钮即可。该属性用于设置或获取显示文本的外观，包括字体、字号、是否黑体

5、、是否斜体、是否有下划线、是否有删除线及使用的字符集等。Size属性用于设置或获取控件的尺寸，单击Size属性前面的“”，可以看到Width和Height两个属性，分别用于设置宽和高。Location属性用于设置或获取控件的显示位置，单击Location属性前面的“”，可以看到X和Y两个属性，表示该控件左上角的坐标。这两个属性联合起来定义了控件的显示位置，以Button控件为例。HeightWidth该属性指定控件显示的相对位置。对于Location属性，窗体与普通控件有些许区别，主要在于，窗体的Location属性是基于显示器的，而普通控件的Location是基于所在窗体的。该属性用于指示控

6、件是否可见，取值是Boolean类型，默认为True，表示控件在程序运行时可见；设成False表示控件在运行时不可见，此时该控件用户看不到，但是控件本身仍然存在。该属性用于指示控件是否启用，是否允许操作，取值是Boolean类型，默认为True，表示控件可用，即允许用户进行操作，并对用户的操作，做出响应；设成False表示不可用，禁止用户进行操作，控件呈暗淡色。该属性指示对象的可见性级别，默认是Friend，如图12-5所示。单击其下拉列表框，在打开的下拉菜单中还可以选择【Public】、【Protected】、【Private】和【Protected Friend】。AutoSize属性指示

7、是否自动调整自身的大小以适应其显示的内容，取值为Boolean类型，默认为False，即不允许自动调整大小，如果显示内容太长则被裁剪掉。设为True，则允许控件根据显示内容自动调整大小。此时可以设置AutoSizeMode属性，指定控件自动调整自身大小的模式，其有GrowOnly和GrowAndShrink两种模式。该属性指明是否可以移到控件和调整控件的大小，取值为Boolean类型，默认为False。这两个属性用于设置控件上的文本或图像的水平方向和垂直方向的对齐方式，取值均为ContentAlignment枚举，有9种情况。该属性用于设置控件边框的样式，取值如下。None：没有边框。Fixe

8、dSingle：单直线边框。Fixed3D：立体边框（凹陷）。MouseClick事件：在鼠标单击该控件时发生。MouseDoubleClick事件：在鼠标双击该控件时发生。MouseDown事件：当鼠标指针位于控件上并按下鼠标键时发生。MouseUp事件：在鼠标指针在控件上并释放鼠标键时发生。MouseMove事件：在鼠标指针移到控件上时发生。MouseEnter事件：在鼠标指针进入控件时发生。MouseHover事件：在鼠标指针停放在控件上时发生。MouseLeave事件：在鼠标指针离开控件时发生。MouseWheel事件：在移动鼠标滚轮并且控件有焦点时发生。MouseCaptureCha

9、nged事件：当控件失去或获得鼠标捕获时发生。（1）MouseEnter：鼠标指针进入控件。（2）MouseMove：鼠标指针发生移动。（3）MouseHover/MouseDown/MouseWheel：鼠标指针悬停或者按键按下或者滚轮滚动。（4）MouseUp：鼠标按键抬起。（5）MouseLeave：鼠标指针离开控件。了解了鼠标事件的发生时间和顺序之后，就可以根据需求来编写事件的事件处理过程了。通常在鼠标事件处理过程中处理鼠标输入时，需要了解鼠标指针的位置和鼠标按钮的状态，这些信息是通过System.Windows.Forms.MouseEventArgs类来获取的。1 Private

10、Sub Form1_MouseClick(ByVal sender As System.Object,ByVal e As System.Windows.Forms.MouseEventArgs)Handles MyBase.MouseClick2 3 End SubButton：获取按下的是哪个鼠标按钮，取值可以是None、Left、Middle、Right，分别代表没有鼠标按键按下、鼠标左键按下、鼠标中键按下和鼠标右键按下。Clicks：获取按下并释放鼠标按钮的次数，取值为整型。Delta：获取鼠标轮已转动的制动器数的有符号计数Location：获取鼠标在产生鼠标事件时的位置，取值是Poi

11、nt结构类型，以（x，y）点对的形式返回鼠标的位置。X：获取鼠标在产生鼠标事件时的x坐标。Y：获取鼠标在产生鼠标事件时的y坐标。KeyDown事件：在控件有焦点的情况下，当用户按物理键时将引发该事件。KeyPress事件：在控件有焦点的情况下，当所按的键产生字符时将引发该事件 例如，当用户按【Shift】键和小写的【a】键时，将产生大写字母“A”字符。KeyUp事件：在控件有焦点的情况下，释放物理键时引发该事件。当用户按键盘键时，Windows窗体提供两个事件，而当用户松开键盘键时，Windows窗体提供一个事件，具体如下。KeyDown事件，仅发生一次。KeyPress事件，当用户按住同一个

12、键时，该事件可以发生多次。当用户释放键时，KeyUp事件发生一次。KeyDown事件的事件处理过程，以TextBox控件为例，代码如下。1 Private Sub TextBox1_KeyDown(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyEventArgs)Handles TextBox1.KeyDown 2 3 End SubKeyDown事件与KeyUp事件的事件处理过程类似，均提供一个KeyEventArgs参数。该参数提供的属性如下。KeyCode属性，提供按下的物理键的键值，取值为Key枚举的成员。Keys枚

13、举用于指定键的代码和修饰符。例如，A代表A键，Enter代表回车键，D0代表0键，NumPad0代表数字键盘的0键等。Modifiers属性，用于判断是否按下了【Shift】、【Ctrl】或【Alt】键。KeyData属性，组合键代码和修改键，取值也是Keys枚举的成员。与KeyCode属性的区别在于，如果同时按下了【Shift】键和【a】键，KeyData属性取值为大写的“A”。Windows窗体是Windows应用程序开发的新平台。窗体就像是一块画布，是所有控件的容器，用户可以根据需要，利用工具箱中提供的控件，在这块画布上画出自己需要的用户界面。FormBorderStyle属性：边框风格

14、设置WindowState属性StartPosition属性MaximizeBox和MinimizeBox属性MaximizeSize和MinimizeSize属性标签控件主要用于显示文本信息，所显示的文本通过Text属性来设置，而不能直接编辑。标签常用于标注本身不具有Text属性的控件，如为下拉框、组合框、Panel控件等附加描述性信息。LinkLabel控件用于显示链接文本，即允许用户使用鼠标单击链接。与Label控件相比，LinkLabel多了与链接有关的属性和LinkClicked鼠标单击链接事件，其他的属性均与Label控件类似。该属性用于在控件的文本内指定单个超链接。编写该控件的L

15、inkClicked事件处理过程。1 Private Sub lnkSingleLink_LinkClicked(ByVal sender As System.Object,ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles lnkSingleLink.LinkClicked2 lnkSingleLink.LinkVisited=True3 System.Diagnostics.Process.Start(http:/)4 End SubActiveLinkColor、DisabledLinkColor、L

16、inkColor和VisitedLinkColor定义在各种状态下显示超链接时所使用的颜色。LinkBehavior属性定义与超链接关联的下划线的显示方式等。Button控件用于在窗体上显示一个按钮。按钮是Windows应用程序中最常用的控件之一，它提供了应用程序与用户交互的最简单的方法，通常用户单击按钮后，应用程序执行一定的操作。该属性用于设置按钮的外观，取值有以下4种。Flat：平面按钮。PopUp：当鼠标不在按钮上时，以平面按钮显示；当鼠标放在按钮上时，以三维按钮显示。Standard：三维按钮（默认）。System：按钮外观取决于当前操作系统的设置。该属性用于设置按钮上的显示图像，注意

17、，如果FlatStyle属性设置为System，则该属性无效。该属性用于设置按钮的背景图像，注意，与Image属性类似，如果FlatStyle属性设置为System，则该属性无效。实现功能为：当鼠标移动到按钮上时，将按钮的文本以红色显示；鼠标移开后恢复原来的颜色，单击该按钮，显示单击次数。1 Public Class Form12 Private num As Integer=03 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click4

18、num+=15 MessageBox.Show(Clicked me&num×!)6 End Sub7 8 Private Sub Button1_MouseEnter(ByVal sender As Object,ByVal e As System.EventArgs)Handles Button1.MouseEnter9 Button1.ForeColor=Color.Red10 End Sub11 12 Private Sub Button1_MouseLeave(ByVal sender As Object,ByVal e As System.EventArgs)Handle

19、s Button1.MouseLeave13 Button1.ForeColor=Color.Black14 End Sub15 End ClassTextBox控件和RichTextBox控件均用于在窗体上显示一个用于输入的文本框。Text属性用于获取或者设置在文本框中的文本。将MultiLine属性设为True，即可允许显示或者输入多行文本。设置PasswordChar属性，即可屏蔽单行显示模式下的用户输入的字符，使用设置的字符取代等。首先新建一个Windows应用程序工程，并在窗体上添加一个TextBox控件，设置属性如下。1 TextBox1.Multiline=True 2 Text

20、Box1.AcceptsTab=True 3 TextBox1.AcceptsReturn=True 4 TextBox1.WordWrap=True 其中，AcceptsTab属性用于设置该文本框是否允许接收制表符，AcceptsReturn属性设置是否允许输入回车键，WordWrap属性指示多行编辑控件是否自动换行。下面我们在该文本框中实现复制、剪切和粘贴操作。TextBox控件提供使用剪贴板的方法为Copy、Cut和Paste。除此之外，还需要检测是否按下了【Ctrl】+【C】、【Ctrl】+【X】、【Ctrl】+【V】组合键。下面代码演示了在文本框中实现使用键盘组合键实现复制、剪切和粘

21、贴操作。1 Private Sub TextBox1_KeyDown(ByVal sender As System.Object,ByVal e As System.Windows.Forms.KeyEventArgs)Handles TextBox1.KeyDown2 If e.Control And e.KeyData=Keys.C Then3 TextBox1.Copy()4 End If5 If e.Control And e.KeyData=Keys.X Then6 TextBox1.Cut()7 End If8 If e.Control And e.KeyData=Keys.V T

22、hen9 TextBox1.Paste()10 End If11 If e.Control And e.KeyData=Keys.A Then12 TextBox1.SelectAll()13 End If14 End Sub之后在窗体上添加一个Label控件，用于显示当前选定的文本。要实现此功能，需要监测鼠标的动作，当鼠标左键按下并移动时，认为用户执行了选择文本的操作。其中，TextBox控件的SelectedText属性用于返回选定的文本。下面代码演示了使用Label控件显示当前选定的文本。1 Private Sub TextBox1_MouseMove(ByVal sender As S

23、ystem.Object,ByVal e As System.Windows.Forms.MouseEventArgs)Handles TextBox1.MouseMove2 If e.Button=Windows.Forms.MouseButtons.Left Then3 Label1.Text=当前选中的文本为：&TextBox1.SelectedText4 End If5 End SubSelectionLength，用于获取或设置文本框中选定的字符数。SelectionStart，用于获取或设置文本框中选定的文本起始点。Select(Start，End)，用于选择位于Start和End

24、之间的文本。其中，Start和End均为Integer类型，用于指示文本的起点和终点。SelectAll()，用于选择文本框中的所有文本。TextBox控件仅能完成相对简单的文本编辑操作，大多用于获取用户输入内容的情况，更复杂的文本编辑则多采用RichTextBox控件。SelectionFont属性可以将文本以粗体或斜体显示，还可以使用此属性更改文本的大小和字样。SelectionColor属性可以更改文本的颜色。若要创建项目符号列表，可以使用SelectionBullet属性。还可以通过设置SelectionIndent、SelectionRightIndent和SelectionHang

25、ingIndent属性调整段落格式设置。LoadFile方法将现有的RTF或ASCII文本文件加载到控件中。SaveFile可以将文件保存到RTF或ASCII文本中。Find方法可以查找文本字符串。我们新建一个Windows应用程序工程，在窗体上添加一个RichTextBox控件。窗体加载时，将RTF文件加载到控件中并搜索单词“Text“的第一个实例，然后更改选定文本的字体样式、字号和字体颜色，并将更改保存到原始文件。1 Public Class Form12 3 Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As S

26、ystem.EventArgs)Handles MyBase.Load4 RichTextBox1.Dock=DockStyle.Fill5 6 RichTextBox1.LoadFile(D:MyDoc.rtf)7 RichTextBox1.Find(Text,RichTextBoxFinds.MatchCase)8 9 RichTextBox1.SelectionFont=New Font(Verdana,12,FontStyle.Bold)10 RichTextBox1.SelectionColor=Color.Red11 12 RichTextBox1.SaveFile(D:MyDoc

27、ument.rtf,RichTextBoxStreamType.RichText)13 14 End Sub15 End Class该控件是一个增强型的TextBox控件，支持用于接受或拒绝用户输入的声明性语法。通过使用Mask属性，无需在应用程序中编写任何自定义验证逻辑，即可指定下列输入。必需的输入字符。可选的输入字符。掩码中的给定位置所需的输入类型。例如，只允许数字、只允许字母或者允许字母和数字。掩码的原义字符或者应直接出现在MaskedTextBox中的字符。例如，电话号码中的连字符（-）或者价格中的货币符号 输入字符的特殊处理。例如，将字母字符转换为大写字母。首先，新建一个Window

28、s应用程序工程，并向窗体中添加一个MaskedTextBox控件和一个ToolTip控件。该控件通常用来向用户提示控件的预期用途。这里，我们使用ToolTip控件来提示用户的无效输入。ToolTipTitle属性：设置提示标题。Show方法：显示提示框。该属性用于设置运行时使用的输入掩码。掩码必须是由一个或多个掩码元素组成的字符串。掩码元素说明0数字，必选。此元素将接受09之间的任何一个数字9数字或空间，可选。#数字或空间，可选。如果掩码中该位置为空白，在Text属性中将把它呈现为一个空格。允许使用加号（+）和减号（-）。L字母，必选。将输入限定为ASCII字母，即az和AZ。此掩码元素等效于

29、正则表达式中的a-zA-Z?字母，可选。输入限定为ASCII 字母即 az和AZ。此掩码元素等效于正则表达式中的a-zA-Z?&字符，必选。如果AsciiOnly属性设置为true，此元素的行为将与“L”元素类似C字符，可选。任何非控制字符。如果AsciiOnly属性设置为true，此元素的行为将类似于“?”元素A字母数字，可选。如果将AsciiOnly属性设置为True，则它接受的惟一字符是ASCII字母，即az和AZa字母数字，可选。如果将AsciiOnly属性设置为True，则它接受的惟一字符是ASCII字母，即az和AZ.小数点占位符。使用的实际显示字符将是适合于格式提供程序的小数点符

30、号，格式提供程序由控件的FormatProvider属性决定,千分位占位符。使用的实际显示字符将是相应于格式提供程序的千分位占位符，格式提供程序由控件的FormatProvider属性决定:时间分隔符。使用的实际显示字符将是适合于格式提供程序的时间符号，格式提供程序由控件的FormatProvider属性决定/日期分隔符。使用的实际显示字符将是适合于格式提供程序的日期符号，格式提供程序由控件的 FormatProvider 属性决定$货币符号。显示的实际字符将是相应于格式提供程序的货币符号，格式提供程序由控件的FormatProvider属性决定转换为大写。将后续所有字符都转换为大写|禁用前一

31、个大写转换或小写转换转义。对掩码字符进行转义，将其转变为原义字符。其中，“”是反斜杠的转义序列其他所有字符原义字符。所有非掩码元素都将原样出现在MaskedTextBox中。原义字符在运行时始终占据掩码中的一个固定位置，用户不能移动或删除该字符单击Mask属性右侧的 按钮，可以打开【输入掩码】窗口。该窗口中有预定义的掩码可以选择，也可以自定义掩码，这里我们选择【自定义】，并在【掩码】文本框中输入“00/00/0000”，可以在【预览】文本框中看到运行时的显示效果。MaskedTextBox控件在运行时，会将掩码表示为一系列提示字符和可选的原义字符，表示一个必需或可选输入的每个可编辑掩码位置都显

32、示为单个提示字符。PromptChar属性指定自定义提示字符。当用户在掩码文本框中输入内容时，有效的输入字符将按顺序替换其各自的提示字符；如果用户输入无效的字符，将不会发生替换。当用户的输入被掩码拒绝时，将触发MaskInputRejected事件，该事件是MaskedTextBox控件的默认事件。本例中，我们使用ToolTip控件来显示提示信息。1 Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object,ByVal e As System.Windows.Forms.MaskInputRejecte

33、dEventArgs)Handles MaskedTextBox1.MaskInputRejected2 If(Me.MaskedTextBox1.MaskFull)Then3 ToolTip1.ToolTipTitle=长度太长，输入被拒绝4 ToolTip1.Show(您输入的内容超出了日期的长度,Me.MaskedTextBox1,10,-20,5000)5 ElseIf(e.Position=Me.MaskedTextBox1.Mask.Length)Then6 ToolTip1.ToolTipTitle=已到达末尾，输入被拒绝7 ToolTip1.Show(您无法再输入更多的字符，请

34、删除部分字符再试,Me.MaskedTextBox1,10,-20,5000)8 Else9 ToolTip1.ToolTipTitle=输入被拒绝10 ToolTip1.Show(您只能输入09的数字,Me.MaskedTextBox1,10,-20,5000)11 End If12 End SubPictureBox控件用于在窗体上显示图像或者图形。12.2节中介绍的基本属性（如Enabled、Visible、Name、Size、Location等）完全适用于PictureBox控件。Image属性用于指定在图片框中显示的图像 可以直接在【属性】窗口进行设置，同样支持本地资源和项目资源文件

35、两种资源上下文。单击Image属性右侧的 按钮，在打开的【选择资源】窗口中导入需要装入的图像文件即可。也可以在运行期间装入图像，此时需要在代码中使用Image.FromFile方法，基本格式如下。PictureBox1.Image=Image.FromFile(文件名)ErrorImage属性用于指定在另外一幅图像加载失败时显示的图像，一般默认为红色的叉。InitialImage属性用于指定在加载另一幅图像时显示的图像。一般用于装载一幅较大图像时，由于加载需要一定的时间，可以将该属性设置为其缩略图，在加载的过程中显示。这样做可以使得程序界面比较友好，同时用户不致于失去等待的耐心。SizeMod

36、e属性用于设置图像的显示方式 Normal：默认值。在该模式下，Image置于PictureBox的左上角，凡是因过大而不适合PictureBox的任何图像部分都将被剪裁掉。StrechImage：拉伸或者收缩图像以适合PictureBox的大小。AutoSize：使控件调整大小，以便总是适合图像的大小。CenterImage：图像居于工作区的中心。如果PictureBox比图像大，则图像将居中显示；如果图像比PictureBox大，则图片将居于PictureBox中心，而外边缘将被剪裁掉。Zoom：该模式下，图像大小按其原有的大小比例被增加或减小。下面我们新建一个Windows应用程序工程，

37、并在窗体上添加两个PictureBox控件，即PictureBox1和PictureBox2控件。单击Image属性右边的 按钮，即可打开【选择资源】窗口。这里点选【本地资源方式】单选按钮，单击【导入】按钮，在打开的【打开】窗口中选择要装载的图像。此时，PictureBox1控件中的图像是以Normal模式显示的，由于图像大小大于PictureBox1的大小，因此只显示了图像的左上角。我们接着设置其SizeMode属性为StrechImage，使得图像适合PictureBox的大小。编写窗体的Load事件处理过程。1 Private Sub Form1_Load(ByVal sender As

38、 System.Object,ByVal e As System.EventArgs)Handles MyBase.Load 2 PictureBox2.Image=Image.FromFile(D:ImageWinter.jpg)3 PictureBox2.SizeMode=PictureBoxSizeMode.Zoom 4 PictureBox2.BorderStyle=BorderStyle.Fixed3D 5 End Sub除了上面介绍的两种设置PictureBox控件的显示图像外，还可以通过设置ImageLocation属性指定图像，该属性用于设置显示的图像的路径或URL。然后在运行

39、期间使用Load方法同步加载图像或使用LoadAsync方法异步加载图像。RadioButton控件在窗体上显示单选按钮，一般用于建立一系列选项供用户选择，但是用户一次只能选择其中一项，而且必须选择一项，而且单选按钮一般都是成组出现的。CheckBox控件在窗体上显示复选框，一般也用于建立一系列选项供用户选择。与单选按钮不同的是，复选框运行用户一次选择多项，或者一项也不选。多个复选框可以同时存在并且互相独立。Text属性，用于设置控件上显示的文本。Checked属性，取值为True或者False。该属性用于表示当前单选按钮或者复选框是否被选定。AutoCheck属性，该属性设为True时，单击

40、控件时自动更改选中状态。Appearance属性，用于设置控件的外观，取值为Normal（一般外观）或Button（按钮外观）。FlatStyle属性，用于设置外观风格，有Standard，Flat，Popup，System四个可选值。如果该属性设置为Flat，则还可以设置FlatAppearance属性来定制控件的边框外观和颜色。用于指示设置或者获取当前复选框的状态。可以拥有以下3种状态。Unchecked（未选中）。Checked（选中）。Indeterminate（不确定，此时复选框呈灰色）。该事件在单选按钮状态改变的时候触发1 Private Sub RadioButton1_Chec

41、kedChanged(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles RadioButton1.CheckedChanged2 If RadioButton1.Checked Then MessageBox.Show(您现在的收入水平为01000元)3 End Sub下面代码是确定按钮的Click事件过程，用于显示用户的选择结果。1 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handle

42、s Button1.Click2 Dim result As String=您的爱好是3 Dim flag As Integer=04 If ckbMusic.Checked Then5 result&=ckbMusic.Text&6 flag+=17 End If 28 If flag 0 Then29 MessageBox.Show(result)30 Else31 MessageBox.Show(您什么爱好都没有么？)32 End If33 End SubListBox控件在窗体上显示一个列表框，以列表的形式显示文本，并接受用于选择。该控件大多用于标准化数据输入。该属性用于设置或者获取列

43、表中显示的项。Items是一个用于保存列表项的数组，可以通过下标来访问其中的项。例如，下面的代码将返回列表框中的第7项。注意，下标从0开始。str=ListBox1.Items(6)可以在设计阶段直接在【属性】窗口设置Items属性。单击Items属性右侧的 按钮，即可打开【字符串集合编辑器】窗口，直接输入即可，每行代表一项。Items属性是一个集合，因此集合的属性和方法均使用。Count属性：返回该集合的元素个数。Add方法：用于向列表框中的尾部插入一项。Clear方法：用于清除列表框中的所有项。Remove方法：用于删除列表框中指定的一项。RemoveAt方法：用于删除指定位置的列表项。该

44、属性用于设置列表框是否显示多列，默认值为False。该属性用于设置列表框的选择模式如下。默认为One，即仅运行用户选择一项。None（不允许选择）。MultiSimple（简单多选。可以同时选择多项，后续选择不会取消前面选择的项，可以用鼠标和空格键选择和释放）。MultiExtended（扩展多选。可以使用鼠标拖曳或者配合【Shift】和【Ctrl】键来进行选择，类似于在文件管理器中选择多个文件的方式）。该属性用于设置列表中项是否进行排序，默认为False，即按照加入列表的先后顺序排列；如果设为True，则按照字母或数字升序排列。该属性用于指示被选中的列表项的索引值。如果没有项被选中，则该属性

45、值为-1。在代码中设置了该属性后，相对应的项反相显示。该属性与Items属性配合使用，可以确定当前被选中的项。下面的代码将返回选中的项。ListBox1.Items(ListBox1.SelectedIndex)SelectedItem属性返回列表框中的选定项。SelectedItems属性返回列表框中选定项的集合。SelectedIndices属性返回列表框中选定项的索引值集合。这两个属性适用于多项选择模式的列表框。该属性在单选模式下表示被选中项的文本，在多选模式下指示最后一次选中的项的文本。注意，该属性是只读属性，不能被直接修改。ListBox控件除了Click、DoubleClick等事

46、件外，常用事件还有SelectedIndexChanged。该事件在列表框中选择项发生变化的时候触发。下面代码是【确定】按钮的Click事件过程，用于实现用户选择结果的显示。1 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click2 MessageBox.Show(您的文化程度为：&ListBox1.Items(ListBox1.SelectedIndex)3 End Sub该控件用类似与列表框和复选框的组合体，其功能和用法与ListBo

47、x控件很类似，只有以下两点区别。复选列表框中的每一项之前都显示一个复选框。复选列表框的SelectionMode只能设置为One，其他属性值无效。这意味着复选列表框不支持多项选择模式，一次只能选择一项。但是，可以通过选中其复选框来实现多项选择。与此相关的属性包括CheckedItems和CheckedIndeces。其中，CheckedItems属性是复选列表框中选定的项的集合，包含CheckState是Checked和Indeterminate的项；而CheckedIndeces属性是选定项的索引的集合。ComboBox控件在窗体上显示一个组合框，该控件兼具列表框和文本框二者的功能于一身，既

48、可以让用户使用鼠标选择项目，又允许用户输入列表中没有的内容。ListBox的很多属性都可以直接适用于ComboBox控件，如Items属性、Sorted属性等。除此之外，ComboBox还具备一些其他的属性。这是ComboBox控件的一个重要属性，它决定了组合框的3种不同类型。DropDown（默认值）：组合框称为下拉式组合框。此时单击右侧的箭头，用户可以在下拉列表中选择项，可响应DropDown事件。除此之外，也可以在文本框中输入文本。Simple：简单组合框，由一个可输入文本的编辑区和一个标准列表框组成。列表不是下拉式的，而是一直显示在屏幕上的，可以选择表项，也可以在编辑区输入文本，响应D

49、blClick事件。运行时，如果项目超出了列表框的高度，自动加上垂直滚动条。DropDownList：下拉式列表框。与下拉式组合框类似，右侧也有一个下拉箭头，单击后可以在下拉列表框中选择项，但下拉式列表框不允许输入文本，也不能响应DblClick和TextChanged事件，但可以响应DropDown事件。下拉式组合框 简单组合框 下拉式列表框该属性是与组合框关联的文本。对于下拉式组合框和简单组合框来说，Text属性表示选择的列表项或者输入的文本。对于下拉式列表框来说，Text属性只能是选择的列表项。下面代码是【确定】按钮的Click事件过程，使用消息框显示用户选择或者输入的计算机配置内容。1

50、 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click2 Dim s As String=您的计算机配置为：&vbCrLf3 s&=品牌：&cbbBrand.Text&vbCrLf _4&CPU：&cbbCPU.Text _5&内存：&cbbMem.Text _6&硬盘：&cbbHardDisk.Text7 MessageBox.Show(s,计算机配置)8 End Sub以品牌组合框为例1 If cbbBrand.FindStringE