vb控件讲解大全
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
List1. ListCount = 5 List1. Selected(3) = True，其余 为False。 List1. Sorted = False，没有排序。 List1. Text = “cox” ，与List1. List(List1. ListIndex)相等
List属性用来设置列表项的内容。设计时，可以在 属性窗口中直接输入列表项目，输入每一列表项目后 按Ctrl+Enter组合键换行。
4) 将右列表框中的所有字段移动到左侧列表框中
Private Sub Command4_Click() For i = List2.ListCount - 1 To 0 Step -1 If List2.Selected(i) = True Then „如果list2某项被选中 List1.AddItem List2.List(i) „将list2选择项的 内容添加到list1的末尾 List2.RemoveItem i '删除list2的第1项 End If Next i End Sub
Text1 Command1 Text2
【应用3】在窗体上建立两个标签、两个文本框 和两个命令按钮，如图。要求运行时，两个文 本框中的内容均不允许用户编辑；如果用户在 “原文”的文本框中选定所需的内容，单击 “复制”命令按钮，则在“输出”文本框中输 出选定的内容，如右图；如果单击“结束”命 令按钮，则结束程序的运行。
用框架（Frame）可以在同一窗体中建立几 组相互独立的单选按钮，可以把不同的对象放 在一个框架中，框架提供了视觉上的区分和总 体的激活。 组合框（Combobox）是组合了文本框 （Textbox）和列表框（Listbox）的特性而形 成的一种控件。列表框中列出可供用户选择的 选项，文本框可用于数据的输入。对于组合框 来说，当用户选定某项后，该项内容自动装入 文本框中，组合框的当前数值就是文本框中的 数值。一般来说，列表框和文本框大部分属性 和事件方法也适用于组合框。
本例中主要操作是选项的移动，移动实际上就 是删除和添加项目列表项，这要用到列表框的 方法，列表框方法主要有： ① Additem方法
格式：列表框名.Additem 项目字符串[，索引值]
② Clear方法 格式：列表框名.Clear ③ Removeitem方法 格式：列表框名.Removeitem 索引值
【例】在窗体上建立一个文本框，将输入到文本框 中的小写字母转换为大写。
Private Sub Text1_KeyPress (KeyAscii As Integer)
Char = Chr(KeyAscii) KeyAscii = Asc(UCase(Char)) End Sub
问题四、键盘事件有KeyDown 、KeyPress、 keyUp，那么鼠标常用事件有哪些？ 除了Click事件和DblClick事件，还有3个常用的鼠 标事件： （1） Mouseup：释放任意鼠标键按钮时发生； （2）Mousedown：按下任意鼠标键按钮时发生； （3）Mousemove：每当鼠标指针移动到屏幕新位 置时。
Fra Baidu bibliotek
控件应用
【应用1】在窗体上放4个组合框，用于选择微机
配置，包括选择机型、CPU主频、硬盘、内存。运 行时，在选择了各项内容之后，单击“确定”按 钮显示所选择的机器配置。
Style=1
Style=2
Style=2
Style=0
【应用2】在Text1中输入任一英文字母，在 Text2中显示该英文字母及其ASCII码值。要 求在文本框Text2中显示出所有输入的英文 字母及其ASCII码值.
Private Sub Check1_Click()
If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Combo1_Change() Text1.FontSize = Combo1.Text End Sub Private Sub Combo1_Click() Text1.FontSize = Combo1.Text
Visual Basic的常用标准 控件
本节任务：
1、5.2小节 2、熟悉VB常用标准控件； 3、掌握常用控件的基本属性、事件和方 法，并能在程序设计中熟练使用。
［问题与任务］如图所示，用组合框、框架、 单选按钮、复选框等控件实现对文本框中文字 的字体、字号和粗斜体属性的设置。
问题一、在实际项目的开发过程中， 除了要编程实现功能外，还要给用户提 供一个友好的交互界面，界面的设计要 用到各种控件，本例中，用到了什么控 件呢？哪些是我们已经学习过的，哪些 是没有接触过的呢？
Private Sub combo1_KeyPress(KeyAscii As Integer) If KeyAscii < asc(“0”) Or KeyAscii > asc(“9”) Then beep KeyAscii = 0 `不是数字字符时，不接收字符 End If End Sub
在Visual Basic中，窗体和接受键盘输入的控件都能 识别这三种键盘事件：一是Keypress，按下对应某 ASCII字符的键；二是Keydown，按下键盘的任意键； 三是Keyup，释放键盘的任意键。
控件共有属性
描述
Name问题分析： 控件名 本例涉及VB各种内部控件的使用，在设计界面时， Caption 对象的标题 首先要了解各种控件都有些什么属性。不同的控件 Enabled 决定控件能否对用户事件作出响 有不同的属性，也有以下表5-3共有属性。 应 Visible 确定对象(在运行时)是否可见 Left、Top、Height、 设置或返回控件的位置或尺寸 Width BackColor、ForeColor 背景颜色、前景颜色 FontName、FontSize、 显示的文本字体、字号、是否为 FontBold、FontItalic、 粗体、斜体是否带有删除线、下 FontStrikethru、 划线
将左列表框中选择的字段移动到右列表框中 将右列表框中选择的字段移动到左列表框中 将左列表框中的所有字段移动到右列表框中 将右列表框中的所有字段移动到左列表框中
问题分析
列表框用来以选项列表形式显示一系列选项， 用户可从中选择一项或多项。它的一些重要属 性如下例所示：
的)
本例中主要属性的值： List1.ListIndex = 3 (下标从0开始
本例要考虑的因素有： （1）如果列表选项为空，则应该提示用户当前没 有可选项，这可以通过判断ListCount属性来实现。 （2）如果没有选择任何选项，而又单击了移动按 钮，则应该提示用户选择某项，这可以通过判断 ListIndex是否大于0来实现，ListIndex是表示当前 选项的下标，没选中任何项，该值为0。 （3）如果是选择的多项一起移动，则程序设计为， 列表从上到下，逐个判断某项是否被选中，如果是， 则移动。这要用到Selected属性，该属性判断选项 是否被选中。
程序如下： Private Sub Option1_Click() Text1.FontName = "宋体" End Sub Private Sub Option2_Click() Text1.FontName = "黑体" End Sub Private Sub Option3_Click() Text1.FontName = "楷体_GB2312" 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选择项的内容添加到list1的末尾 List2.RemoveItem List2.ListIndex '删除选择的字段 Else '如果没有选择任何字段 MsgBox "请先在列表中选择某字段", , "注意" End If End Sub
End Sub
问题二、组合框（Combobox）是组合了
文本框（Textbox）和列表框（Listbox）的 特性而形成的一种控件，列表框和文本框大 部分属性和事件方法也适用于组合框。文本 框我们学习过了，列表框都有些什么属性和 操作呢？
［例5-7］列表框（Listbox）控件示例。设 计如下图所示的界面，左列表框列出了某数 据表格的各列(字段)名称。
程序如下： 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选择项的内容添加到list2的末尾 List1.RemoveItem List1.ListIndex '删除选择的字段 Else '如果没有选择任何字段 MsgBox "请先在列表中选择某字段", , "注意" End If End Sub
FontUnderline Font
包含格式化文本所需要的信息
本例中用到的单选按钮（OptionButton）有一个重要的 Value属性，属性值为False（默认值）表示单选按钮处于未选中 状态，为True表示单选按钮被选中。 复选框（CheckBox）有一个重要Value属性，该属性表示检 查框的状态。0-（默认）表示检查框没有被选中；1-表示检查框 被选中；2-表示检查框被禁止选择，此时检查框变成灰色。单击 复选框有两种情况，单击一次是由没选中变为选中，再次单击， 则由选中变为未选中，编程时要用到选择语句（If Check.value =1 Then 语句1 Else 语句2）。
5.2.3 其它控件示例
［例5-12］ 设计实现下列功能：当拖动滚动条的时候， 图片的高度随着滑块的位置变化，逐渐展开直至全部。
问题分析 本例中用到了图形控件中的图片框(PictureBox)控件， 该控件主要用来显示图片和图象。可在设计阶段改变属 性窗口中的Picture属性来装入图片，或者在运行期间 用LoadPicture函数装入图片： 对象名.Picture=LoadPicture([filename]) 在本例中，还要设置Autosize属性为True，使得控件 自动适应图片的大小。 本例中用到滚动条（Scrollbar），滚动条可分为水平 滚动条（Hscrollbar）和垂直滚动条（Vscrollbar）。 要实现本例的操作，首先，要设定垂直滚动条的Max属 性为图片框的高度，Min属性为0，也就是说拖动滚动 块到哪里，图片框就展开到哪里。
3) 将左列表框中的所有字段移动到右列表框中
Private Sub Command3_Click() For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) = True Then „表示如果 list1中某项被选中 List2.AddItem List1.List(i) '将list1选择项 的内容添加到list2的末尾 List1.RemoveItem i '删除list1的第1项 End If Next i End Sub
问题三、设置字号的时候，组合框中 的文本框内应该输入数值而不能是其它 字符。那么如何限制文本框只能接收 “0”～“9”的数字字符呢？
问题分析 程序运行后，每输入一个数，判断如 果是数字，则正常显示，如果是非数字， 则不显示，并且响铃提示用户输入错误。 当我们在文本框内输入内容的时候， 实际是触发了键盘Keypress事件，该事 件可以获取键盘按键的Ascii值，通过判 断Ascii值是否是数字区间来决定是否显示， 因此可以对该事件来编写程序。
List属性用来设置列表项的内容。设计时，可以在 属性窗口中直接输入列表项目，输入每一列表项目后 按Ctrl+Enter组合键换行。
4) 将右列表框中的所有字段移动到左侧列表框中
Private Sub Command4_Click() For i = List2.ListCount - 1 To 0 Step -1 If List2.Selected(i) = True Then „如果list2某项被选中 List1.AddItem List2.List(i) „将list2选择项的 内容添加到list1的末尾 List2.RemoveItem i '删除list2的第1项 End If Next i End Sub
Text1 Command1 Text2
【应用3】在窗体上建立两个标签、两个文本框 和两个命令按钮，如图。要求运行时，两个文 本框中的内容均不允许用户编辑；如果用户在 “原文”的文本框中选定所需的内容，单击 “复制”命令按钮，则在“输出”文本框中输 出选定的内容，如右图；如果单击“结束”命 令按钮，则结束程序的运行。
用框架（Frame）可以在同一窗体中建立几 组相互独立的单选按钮，可以把不同的对象放 在一个框架中，框架提供了视觉上的区分和总 体的激活。 组合框（Combobox）是组合了文本框 （Textbox）和列表框（Listbox）的特性而形 成的一种控件。列表框中列出可供用户选择的 选项，文本框可用于数据的输入。对于组合框 来说，当用户选定某项后，该项内容自动装入 文本框中，组合框的当前数值就是文本框中的 数值。一般来说，列表框和文本框大部分属性 和事件方法也适用于组合框。
本例中主要操作是选项的移动，移动实际上就 是删除和添加项目列表项，这要用到列表框的 方法，列表框方法主要有： ① Additem方法
格式：列表框名.Additem 项目字符串[，索引值]
② Clear方法 格式：列表框名.Clear ③ Removeitem方法 格式：列表框名.Removeitem 索引值
【例】在窗体上建立一个文本框，将输入到文本框 中的小写字母转换为大写。
Private Sub Text1_KeyPress (KeyAscii As Integer)
Char = Chr(KeyAscii) KeyAscii = Asc(UCase(Char)) End Sub
问题四、键盘事件有KeyDown 、KeyPress、 keyUp，那么鼠标常用事件有哪些？ 除了Click事件和DblClick事件，还有3个常用的鼠 标事件： （1） Mouseup：释放任意鼠标键按钮时发生； （2）Mousedown：按下任意鼠标键按钮时发生； （3）Mousemove：每当鼠标指针移动到屏幕新位 置时。
Fra Baidu bibliotek
控件应用
【应用1】在窗体上放4个组合框，用于选择微机
配置，包括选择机型、CPU主频、硬盘、内存。运 行时，在选择了各项内容之后，单击“确定”按 钮显示所选择的机器配置。
Style=1
Style=2
Style=2
Style=0
【应用2】在Text1中输入任一英文字母，在 Text2中显示该英文字母及其ASCII码值。要 求在文本框Text2中显示出所有输入的英文 字母及其ASCII码值.
Private Sub Check1_Click()
If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Combo1_Change() Text1.FontSize = Combo1.Text End Sub Private Sub Combo1_Click() Text1.FontSize = Combo1.Text
Visual Basic的常用标准 控件
本节任务：
1、5.2小节 2、熟悉VB常用标准控件； 3、掌握常用控件的基本属性、事件和方 法，并能在程序设计中熟练使用。
［问题与任务］如图所示，用组合框、框架、 单选按钮、复选框等控件实现对文本框中文字 的字体、字号和粗斜体属性的设置。
问题一、在实际项目的开发过程中， 除了要编程实现功能外，还要给用户提 供一个友好的交互界面，界面的设计要 用到各种控件，本例中，用到了什么控 件呢？哪些是我们已经学习过的，哪些 是没有接触过的呢？
Private Sub combo1_KeyPress(KeyAscii As Integer) If KeyAscii < asc(“0”) Or KeyAscii > asc(“9”) Then beep KeyAscii = 0 `不是数字字符时，不接收字符 End If End Sub
在Visual Basic中，窗体和接受键盘输入的控件都能 识别这三种键盘事件：一是Keypress，按下对应某 ASCII字符的键；二是Keydown，按下键盘的任意键； 三是Keyup，释放键盘的任意键。
控件共有属性
描述
Name问题分析： 控件名 本例涉及VB各种内部控件的使用，在设计界面时， Caption 对象的标题 首先要了解各种控件都有些什么属性。不同的控件 Enabled 决定控件能否对用户事件作出响 有不同的属性，也有以下表5-3共有属性。 应 Visible 确定对象(在运行时)是否可见 Left、Top、Height、 设置或返回控件的位置或尺寸 Width BackColor、ForeColor 背景颜色、前景颜色 FontName、FontSize、 显示的文本字体、字号、是否为 FontBold、FontItalic、 粗体、斜体是否带有删除线、下 FontStrikethru、 划线
将左列表框中选择的字段移动到右列表框中 将右列表框中选择的字段移动到左列表框中 将左列表框中的所有字段移动到右列表框中 将右列表框中的所有字段移动到左列表框中
问题分析
列表框用来以选项列表形式显示一系列选项， 用户可从中选择一项或多项。它的一些重要属 性如下例所示：
的)
本例中主要属性的值： List1.ListIndex = 3 (下标从0开始
本例要考虑的因素有： （1）如果列表选项为空，则应该提示用户当前没 有可选项，这可以通过判断ListCount属性来实现。 （2）如果没有选择任何选项，而又单击了移动按 钮，则应该提示用户选择某项，这可以通过判断 ListIndex是否大于0来实现，ListIndex是表示当前 选项的下标，没选中任何项，该值为0。 （3）如果是选择的多项一起移动，则程序设计为， 列表从上到下，逐个判断某项是否被选中，如果是， 则移动。这要用到Selected属性，该属性判断选项 是否被选中。
程序如下： Private Sub Option1_Click() Text1.FontName = "宋体" End Sub Private Sub Option2_Click() Text1.FontName = "黑体" End Sub Private Sub Option3_Click() Text1.FontName = "楷体_GB2312" 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选择项的内容添加到list1的末尾 List2.RemoveItem List2.ListIndex '删除选择的字段 Else '如果没有选择任何字段 MsgBox "请先在列表中选择某字段", , "注意" End If End Sub
End Sub
问题二、组合框（Combobox）是组合了
文本框（Textbox）和列表框（Listbox）的 特性而形成的一种控件，列表框和文本框大 部分属性和事件方法也适用于组合框。文本 框我们学习过了，列表框都有些什么属性和 操作呢？
［例5-7］列表框（Listbox）控件示例。设 计如下图所示的界面，左列表框列出了某数 据表格的各列(字段)名称。
程序如下： 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选择项的内容添加到list2的末尾 List1.RemoveItem List1.ListIndex '删除选择的字段 Else '如果没有选择任何字段 MsgBox "请先在列表中选择某字段", , "注意" End If End Sub
FontUnderline Font
包含格式化文本所需要的信息
本例中用到的单选按钮（OptionButton）有一个重要的 Value属性，属性值为False（默认值）表示单选按钮处于未选中 状态，为True表示单选按钮被选中。 复选框（CheckBox）有一个重要Value属性，该属性表示检 查框的状态。0-（默认）表示检查框没有被选中；1-表示检查框 被选中；2-表示检查框被禁止选择，此时检查框变成灰色。单击 复选框有两种情况，单击一次是由没选中变为选中，再次单击， 则由选中变为未选中，编程时要用到选择语句（If Check.value =1 Then 语句1 Else 语句2）。
5.2.3 其它控件示例
［例5-12］ 设计实现下列功能：当拖动滚动条的时候， 图片的高度随着滑块的位置变化，逐渐展开直至全部。
问题分析 本例中用到了图形控件中的图片框(PictureBox)控件， 该控件主要用来显示图片和图象。可在设计阶段改变属 性窗口中的Picture属性来装入图片，或者在运行期间 用LoadPicture函数装入图片： 对象名.Picture=LoadPicture([filename]) 在本例中，还要设置Autosize属性为True，使得控件 自动适应图片的大小。 本例中用到滚动条（Scrollbar），滚动条可分为水平 滚动条（Hscrollbar）和垂直滚动条（Vscrollbar）。 要实现本例的操作，首先，要设定垂直滚动条的Max属 性为图片框的高度，Min属性为0，也就是说拖动滚动 块到哪里，图片框就展开到哪里。
3) 将左列表框中的所有字段移动到右列表框中
Private Sub Command3_Click() For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) = True Then „表示如果 list1中某项被选中 List2.AddItem List1.List(i) '将list1选择项 的内容添加到list2的末尾 List1.RemoveItem i '删除list1的第1项 End If Next i End Sub
问题三、设置字号的时候，组合框中 的文本框内应该输入数值而不能是其它 字符。那么如何限制文本框只能接收 “0”～“9”的数字字符呢？
问题分析 程序运行后，每输入一个数，判断如 果是数字，则正常显示，如果是非数字， 则不显示，并且响铃提示用户输入错误。 当我们在文本框内输入内容的时候， 实际是触发了键盘Keypress事件，该事 件可以获取键盘按键的Ascii值，通过判 断Ascii值是否是数字区间来决定是否显示， 因此可以对该事件来编写程序。