精华内容
下载资源
问答
  • 个不错的VB ComboBox列表框实例

    热门讨论 2013-03-31 15:02:26
    大家看一下截图,是不是很精致,不过有点遗憾,目前它暂时不支持用回车键选择列表项,有兴趣的朋友可以自己修改一下。
  • 列表框ListBox控件用于显示项目列表,并可以从中选择一项或者多项。组合框ComboBox是在列表框ListBox基础上增加了文本框TextBox的控件,既可以在控件的文本框部分输入信息,也可以在控件的列表框部分选择一项列表...

    哈喽大家好,欢迎来到一起学VB课堂,今天我们将要学习列表框ListBox控件和组合框ComboBox控件,这两个控件在VB中是非常重要的控件,当然其难度也比前面学习的控件难度有所增加,这两个控件我会单独分在两个课程,小伙伴们一定要耐心学习哦。

    在这里插入图片描述

    列表框ListBox控件用于显示项目列表,并可以从中选择一项或者多项。组合框ComboBox是在列表框ListBox基础上增加了文本框TextBox的控件,既可以在控件的文本框部分输入信息,也可以在控件的列表框部分选择一项。

    列表框ListBox

    列表框控件用于显示项目列表,将内容、数据以列表的形式展示给用户,并允许用于从中选择一项或者多项。列表框会在项目总数超过可显示数目时自动创建滚动条。

    列表框的常用属性

    Style属性

    返回或设置列表框的样式。该属性在设计时可用,在代码中无法使用。用于确定列表框的外观。取值为0时,为标准型,取值为1时为复选框型。当为复选框型时,每个项目的左边都会多出一个复选框,此时用户可以在列表框中选择多项内容。而标准型样式,用户每次只能选择一个内容。

    在这里插入图片描述

    List属性

    返回或设置列表中的内容。在设计时,可以在列表框的属性窗口中,单击List属性右端的下拉箭头,输入列表框的内容,每输入一项内容,按Crtl+Enter组合键,可以添加下一项内容,输入完毕时按Enter键结束。当然也可以在代码区中动态的添加内容。

    在这里插入图片描述

    List是一个数组,相当于一个序号。该序号从0开始,当ListBox控件有一个项目时,序号就加1。列表框中的项目序号由上往下编号,分别是0、1、2…,例如,第1个项目的序号是0,其内容为List1.List(0),第2项是List1.List(1),依次类推。以上图为例,北京是第1个项目,其序号是0,上海是第2个项目,其序号是1,因此List1.List(3)=“江苏”。数组的概念在后面的章节会单独讲解,这里只需要先了解这个用法即可。

    Text属性

    该属性用于返回用户选择的内容。

    ListCount属性

    返回列表框的项目总数。

    ListIndex属性

    返回当前用户选择的项目的序号。如果列表框没有一个项目,则该属性返回值为-1。

    Selected属性

    返回或设置列表框中某一项的选择状态。当作为返回值使用时,选中值为True,未选中值为False,当作为设置使用时,可以通过代码自动设置指定序号的项目被选中,而不需要用户手动选择。

    Sorted属性

    设置列表框中的项目是否自动排序。当设置为True时,列表框中的内容将会被自动排序。默认值为False,列表框中的项目按照添加次序排序。可以利用次设置,来对数据进行排列。

    列表框的常用方法

    AddItem方法

    用来添加项目到列表框中。其语法为:

    列表框名称.AddItem 项目字符串 [,索引值]
    

    [ ]内参数表示选填项,若不填写,则项目默认添加到列表框的最后一项。如果需要添加到指定位置,则填写序号。例如在第序号为2的位置添加湖南,语句为:

    List1.AddItem "湖南", 2
    

    在这里插入图片描述

    在VB中字符串需要用双引号""表示,相反用双引号表示的都是字符串类型。

    Clear方法

    清除列表框中的所有项目。语法为:

    List1.Clear
    

    RemoveItem方法

    删除列表框中指定的项目。语法为:

    List1.RemoveItem 索引值      '索引值就是序号
    

    ListBox实战操作题

    要求:设计一个图书管理程序,单击添加图书按钮时,图书被添加到列表框最后一个;当单击插入按钮时,图书被添加到鼠标选择项目的位置;单击删除按钮时,将删除所选图书;单击清空按钮时,所有图书被删除;单击修改按钮时,可将选定的图书修改为新的图书。并且可以动态的显示图书的数量。界面如下图所示:

    步骤一:

    新建工程,按照下图所示建立控件,完成界面布局。

    在这里插入图片描述

    步骤二:

    修改各控件属性,如下图所示:

    在这里插入图片描述

    步骤三:

    按照下图,双击每个控件,进入它们的默认事件过程中,写入如下所示的代码。

    提示:代码有点长且相对之前的课程难度有所增加,可以对照注释学习,对于初学者而言,需要有耐心哦,如有疑惑可以联系我咨询。

    在这里插入图片描述

    步骤四:

    运行程序,测试效果。

    在这里插入图片描述

    注意:由于当前课程还未学习到算法部分,例如条件判断的语法还未学习,因此本案例中未进行条件判断,实际上是存在很多bug的,例如未选择任何图书,就单击插入图书的按钮,就会出现错误,在这里小伙伴门也不要心急,本案例是以学习列表框为主,其它的知识点在后面的课程都会讲到的。只需要耐心的一节课程一节课程的学习下去即可。

    展开全文
  • VB列表框添加与删除项目

    千次阅读 2019-02-11 16:50:17
  • vb列表框ListBox的详细使用方法

    万次阅读 2018-06-12 15:19:45
    列表框(ListBox)控件表示个选项清单,用户可能用鼠标选择其中个或者几个选项。 列表框的特点是:列表框中的项目是通过程序插入到其中的,用户无法向清单中输入数据,当选择其中的
    原文地址为:
    vb列表框ListBox的详细使用方法
    

    列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个选项。

      列表框的特点是:列表框中的项目是通过程序插入到其中的,用户无法向清单中输入数据,当选择其中的项目,并在用户单击一个按钮或者执行某个操作时,由应用程序完成对指定项目的具体操作。下面这个例子充分说明了列表框的这个特点,并介绍了列表框(ListBox)的常用属性。

      为了学习方便,提供的源码已经作了详细的中文注释,看看源码框中的代码:

    Option Explicit
    '--------------------------------------
    ' 简单的列表框ListBox的例子
    '--------------------------------------
    ' 洪恩在线 求知无限
    '--------------------------------------
    '------名称-------------作用------------
    ' List1、List2 列表框
    ' LefttoRightCmd 移动所选项目到另一个列表框(左到右)
    ' RighttoLeftCmd 移动所选项目到另一个列表框(右到左)
    ' List1MoveCmd 删除列表框List1中所选项目
    ' List2MoveCmd 删除列表框List2中所选项目
    ' List1AddCmd 给列表框List1增加新项目
    ' List2AddCmd 给列表框List2增加新项目
    ' List1ClearCmd 清空列表框List1
    ' List2ClearCmd 清空列表框List2
    '--------------------------------------
    '--------------------------------------
    '————名称————属性设置———
    '
    ' List1列表框 Sorted属性设为“False”
    ' List2列表框 Sorted属性设为“True”
    ' MultiSelect属性设置为2
    ' 即List2控件中的项目总是排序的
    '--------------------------------------

     

    Private Sub Form_Load()

    '装载窗体时,给列表中的元素赋值
    List1.AddItem "China"
    List1.AddItem "America"
    List1.AddItem "Japan"
    List2.AddItem "Soccer"
    List2.AddItem "Tennis"
    List2.AddItem "Basketball"

    End Sub

    Private Sub LefttoRightCmd_Click()
    '将左边列表中所选元素移动到右边列表中
    If List1.ListIndex >= 0 Then

    '在右边列表中增加新元素
    List2.AddItem List1.Text

    '删除左边列表中的所选元素
    List1.RemoveItem List1.ListIndex

    End If

    End Sub

    Private Sub List1AddCmd_Click()

    Dim ListItem As String
    '
    ListItem = InputBox("在列表中输入新项目")
    '向列表中加入新项目
    If Trim(ListItem) <> "" Then
    'Trim()作用是清除ListItem字符串内的空格

    List1.AddItem ListItem
    End If


    End Sub

    Private Sub List1ClearCmd_Click()

    '清空列表
    List1.Clear

    End Sub

    Private Sub List1MoveCmd_Click()

    Dim i As Integer
    '判断列表框是否只有一个项目被选中
    If List1.SelCount = 1 Then

    List1.RemoveItem List1.ListIndex

    ElseIf List1.ListCount > 1 Then

    '删除列表框中的所选中的多个项目
    For i = List1.ListCount - 1 To 0 Step -1
    'ListCount返回列表框中的项目总数
    'ListCount-1是列表框中最后一个项目的索引号

    '判断该项目是否被选中,Selected()返回布尔值
    If List1.Selected(i) Then
    '删除索引号为i的项目
    List1.RemoveItem i

    End If
    Next
    End If


    End Sub


    Private Sub List2AddCmd_Click()

    '定义变量,以接收输入的字符串
    Dim ListItem As String
    ListItem = InputBox("在列表中输入新项目")

    If Trim(ListItem) <> "" Then
    '将字符串增加到列表中
    List2.AddItem ListItem

    End If


    End Sub

    Private Sub List2ClearCmd_Click()

    '清空列表
    List2.Clear

    End Sub

    Private Sub List2MoveCmd_Click()

    Dim i As Integer
    '判断所选 元素是否只有一个
    If List2.SelCount = 1 Then

    List2.RemoveItem List2.ListIndex
    '如果所选 元素大于1,则按下列操作进行
    ElseIf List2.ListCount > 1 Then
    For i = List2.ListCount - 1 To 0 Step -1

    If List2.Selected(i) Then
    List2.RemoveItem i
    End If
    Next i
    End If

    End Sub

    Private Sub RighttoLeftCmd_Click()

    Dim i As Integer
    '判断选中的元素有几个
    If List2.SelCount = 1 Then

    List1.AddItem List2.Text
    List2.RemoveItem List2.ListIndex
    '当选中的元素大于一个时
    ElseIf List2.SelCount > 1 Then

    For i = List2.ListCount - 1 To 0 Step -1
    '如果该元素被选中,则将其从右边移至左边
    If List2.Selected(i) Then

    List1.AddItem List2.List(i)
    List2.RemoveItem i
    End If
    Next i
    End If

    End Sub
    (源程序下载)

    这个例子包含一个窗体,窗体中有两个列表框(List1、List2)和八个按钮,界面如下:

     


    窗体(FormListBox)

    我们首先新建一个标准的EXE工程,添加一个窗体,并把列表框和按钮控件添加到窗体上。各按钮控件的名称如下表:

    按钮名称
    名称属性
    按钮名称
    名称属性

    删除所选项目(左)
    List1movecmd
    删除所选项目(右)
    List2movecmd

    增加新项目(左)
    List1addcmd
    增加新项目(右)
    List2addcmd

    清除弄表(左)
    List1clearcmd
    清除列表(右)
    List2clearcmd

    右箭头 lefttorightcmd 左箭头 Righttoleftcmd


    ' List1列表框 Sorted属性设为“False” ' List2列表框 Sorted属性设为“True” ' MultiSelect属性设置为2 ' 即List2控件中的项目总是排序的

      在属性窗口中,将List1列表框 Sorted属性设为“False”;List2列表框 Sorted属性设为“True”,MultiSelect属性设置为2,即List2控件中的项目总是排序的。

      下一步我们为各控件添加相应的程序。

      其中:

      List1.AddItem "China" 是将“China”添加到列表框中。

      List1.ListIndex 返回的是列表框List1中当前选择项目的索引号码。

      List1.ListCount 返回的是列表框List1中项目总数。

      List1.ListCount - 1 返回列表框List1中最后一个项目的索引号。

      List1.Selected() 返回的是一个项目的选择状态,返回的是布尔值。

      代码写好之后,我们就可以保存工程,然后按“Ctrl+F5”键,测试检验一下我们的程序了。在这个小程序中,包含了列表框中的一般常用属性和方法。


    转载请注明本文地址: vb列表框ListBox的详细使用方法
    展开全文
  • vb.net的winform(windows窗体)开发中,实现组合ComboBox显示值与返回值不同的几种方法(里面有5种方法哟),在VB.net2010上编译通过,绝对可以运行,希望能给初学都以帮助,里面有详细解释加说明。觉得写得好的,请加...
  • 窗体上建立个简单组合框,在组合框的文本框输入数字字符,按回车键后加入到组合框的列表框内,如图E.8所示;单击“交换”按钮,将列表框中最小值项目和第0个项目交换;最大值与最后项目交换,如图所示: 提示...

    题目来源:大工慕课 链接
    原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育出版社 实验5-8
    作者:Caleb Sung

    题目要求

    窗体上建立一个简单组合框,在组合框的文本框输入数字字符,按回车键后加入到组合框的列表框内,如图E.8所示;单击“交换”按钮,将列表框中最小值项目和第0个项目交换;最大值与最后项目交换,如图所示:
    这里写图片描述

    提示

    1. 只能输入数字,Combo1_KeyPress事件通过如下代码实现:
    Select Case KeyAscii
    Case 48 to 57,13 '0~9数字和回车键为合法数据
    Case Else '否则为非法数据,去除非法字符
    KeyAscii=0
    End Select
    1. 求最大值和最小值必须声明4个变量:如Min、iMin、Max、iMax分别存放最小值、最小值下标、最大值和最大值下标,并将列表框中低0个项目作为上述4个变量的初值。
    2. 按照求最大值和最小值的方法,在组合框中找最小值和最大值,并获得最小值和最大值下标;注意比较时要用Val函数,否则作为字符串比较。
    3. 将组合框的第0项与最小值交换、最大值与最后项交换。例,最大值与最后项交换的代码如下:
    t=Combo1.List(Combo1.ListCount-1)
    Combo1.List(Combo1.ListCount-1)= Combo1.List(iMax)
    Combo1.List(iMax)= t

    参考解答

    首先画一个高度较高的ComboBox,它的按钮长这个样子:
    这里写图片描述
    随后选中画好的ComboBox,在属性面板里找到Style属性,设置为“1 - Simple Combo”:
    这里写图片描述
    接下来画一个Button,就可以愉快的Coding了 (>^ω^<)

    Private Sub Combo1_KeyPress(KeyAscii As Integer)
        Select Case KeyAscii
        Case 48 To 57, 13
        Case Else
        KeyAscii = 0
        End Select
        If KeyAscii = 13 Then
            Combo1.AddItem Combo1.Text
            Combo1.Text = ""
        End If
    End Sub
    
    Private Sub Command1_Click()
        Max = Val(Combo1.List(0))
        iMax = 0
        Min = Val(Combo1.List(0))
        iMin = 0
        For i = 1 To Combo1.ListCount - 1
            If Val(Combo1.List(i)) > Max Then
                Max = Val(Combo1.List(i))
                iMax = i
            ElseIf Val(Combo1.List(i)) < Min Then
                Min = Val(Combo1.List(i))
                iMin = i
            End If
        Next i
        t = Combo1.List(Combo1.ListCount - 1)
        Combo1.List(Combo1.ListCount - 1) = Combo1.List(iMax)
        Combo1.List(iMax) = t
        t = Combo1.List(0)
        Combo1.List(0) = Combo1.List(iMin)
        Combo1.List(iMin) = t
    End Sub
    
    
    展开全文
  • VB中关于LIST列表框的使用

    千次阅读 2019-01-29 14:35:42
    ... 注意:在使用list列表的过程中,添加的列表数量...例如name名称list1列表框添加了了A,B,C三,那么A地址为list1.list(0),B地址为list1.list(1),C的地址为list1.list(2).列表的数量计数list1.listcount=3
  • 1.在同个窗体内增添了多个单选,系统默认每次只选中个单选按钮,若是选择个框架Frame,那么则是在这个框架之内,每次选中个单选按钮。 2.判定option按钮是否被选中,需要判定option(i).value的值,若为...
  • vb组合回车添加项目 将新项目添加到数据验证组合 (Add New Items to Data Validation Combo Box) There are a few versions of the data validation combo box technique on my website. The files use ...
  • 列表框和组合框 列表框是CListBox类的对象,组合框是CComboBox的对象。 列表框 属性设置 列表框的重要属性有: Selection 该属性决定用户的选择方式,缺省值为 Single 。属性值有: ①:Single ── 单项...
  • 如约而至,微软已于今天推出 Visual Studio 2019 正式版,同发布的还有 Visual Studio 2019 for Mac。  Visual Studio 2019 下载地址:https://visualstudio.microsoft.com/downloads/  Visual Studio 2019 for ...
  • VB 单选按钮、复选按钮和框架控件

    千次阅读 2020-09-16 10:05:20
    在同一框架下的单选按钮有且只能被选中一项,而复选按钮则可以选择多项,也可以一项都不选择。下面来介绍这3个控件的常用属性和基本用法。 单选按钮Option 单选按钮的常用属性 对于通用属性而言,前面的课程已经介绍...
  • VB为ListBox 增加水平的滚动条,这是一个滚动条类的应用,可实现的功能和演示功能为:改变窗体宽度使得滚动条消失、加载ListBox、改变最后一项的标题、增加item、删除最后一个item、items数量统计。
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    C#基础教程-c#实例教程,适合初学者。 第章 C#语言基础 本章介绍C#语言的基础知识,希望具有C语言的读者能够基本掌握C#语言,并以此为基础,能够进一步学习用C#语言编写window...Microsoft.NET(以下简称.NET)...
  • VB6.0增强combo下拉框控件的功能,是个XP风格下拉列表框,自定义了很多下拉框增强功能,比如追加项目、删除实际项目、禁止编辑、仅清除列表框显示的文字、载入内容、列表框显示文字、总项目实际数量、复制...
  • 组合控件列表项简单居中

    千次阅读 2013-07-03 11:05:00
    VB的组合控件ComBoBox控件列表项目如何居中,这是个难题。可以自绘,并且非常精确;也可以不用自绘,采用简单居中,即在前面加空格实现。至于加多少空格,要根据控件本身的宽度和列表项的文字多少来决定。由于这个...
  • 给组合框或列表框添加元素、RowSource属性添加元素二、为工作表中的ActiveX控件中的列表框添加元素三、使用list属性添加元素四、使用additem方法添加列表五、列表框的其他属性 、RowSource属性添加元素 ...
  • Multiselect:操作多选列表框

    千次阅读 2014-06-12 11:03:54
    Multiselect:操作多选列表框 helloweba.com 作者:月光光 时间:2010-10-09 11:44 标签: Multiselect  jquery插件  表单操作  Multiselect是个采用jQuery实现的两边多选列表控件。可以将需要...
  • 收邮件的过程:需要先登录,活动窗体中具有输入焦点控件的字体设置,然后打开邮件对话,取得邮箱中邮件的数量,将邮件的信息装载到邮件列表窗体中的列表框,根据选择的邮件索引确定相关菜单和工具栏按扭的可用状态...
  • VB中关于COMBOBOX组合的使用方式

    万次阅读 2019-01-21 08:51:40
    ADDITEM表示组合项目的添加过程 combo1.list(0),表示的是第个项目,1234,若是希望在text1中显示,ABCD的话,则为combo1.list(3)
  • VB.Net程序设计:ComboBox下拉列表显示多列数据-增加个事件。 自己写的个控件:ComboBox下拉列表显示多列数据(可以绑定数据表)具体内容查看:...
  • vb.net中datagridview控件列添加DataGridViewComboboxColumn编辑选中方案 datagridview和Combobox综合应用
  • 在通常情况下,listview的列头是按钮式的,如果你想把列头做成平面式的,那就用下面的代码: Option Explicit ...Private Declare Function GetWindowLong Lib "user32" ...扁平表头的列表框 更多精彩>>>
  • Private m_List() As gListStruct ‘保存各组列表框列表的内容,通过二维数组实现 Private m_Cnt() As Long ‘保存各组列表框的数目 Private m_Idx() As Long ‘保存各组列表框选中的索引值 Private m_...
  • 最近在用VB.Net开发个小程序时候,用到显示多列的ComboBox,而且从数据库中取出来的数据表要绑定到个ComboBox中。找来找去,找不到。上Baidu Google很多人说:在VB.Net中的ComboBox只能绑定列数据。以前的...
  • vb学习总结, 列表框  1、属性 ...如果该属性为1,则列表框呈多行多列显示;  2、list  该属性用来累出表的内容。list属性保存了列表框中所有值得数组,可以通过下标访问数组中的值(下标值从
  • #include<atlconv.h> //字符串转化 T2C宏 void CMyListDlg::OnBnClickedButton1() { m_List.ResetContent(); //清除列表 m_List.AddString(L"新浪"); // 在列表框末尾添加字符串... // 在列表框末尾添加字...
  • ComboBox控件可以输入文本也可以提供列表来选择,而且还自带有属性来实现自动匹配,但是它有个弊端,只能从头开始匹配,例如"张三丰",输入"三"或“三丰”是匹配不了。该自定义控件利用visual studio2017开发,...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 11,549
精华内容 4,619
关键字:

vb列表框显示最后一项