精华内容
下载资源
问答
  • 可以添加不重复的内容添加到组合框列表中。
  • VB列表框添加与删除项目

    千次阅读 2019-02-11 16:50:17
  • 向另一个列表框添加应用的VB6.0源代码
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • 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中防止将重复项目添加列表框控件中 ...
  • VB6 在窗体菜单中加入Radio单选按钮和Check复选按钮,平时我们已经见到过了,虽然比较小的应用,不过挺实用,用了会增加软件体验,为用户操作提供方便,Windows系统里就有,好像见惯不惯了。
  • 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 ...

    vb组合框回车添加项目

    There are a few versions of the data validation combo box technique on my website. The files use programming to make a combo box appear when you click, or double-click, on a cell that has a drop down list. The latest version shows how to add new items to data validation combo box lists.

    我的网站上有几种版本的数据验证组合框技术。 在具有下拉列表的单元格上单击或双击时,文件将使用编程方式使组合框出现。 最新版本显示了如何向数据验证组合框列表中添加新项目。

    组合框的好处 (Combo Box Benefits)

    The advantage to using a combo box is that you can show the text in a larger font, and it autocompletes as you type, unlike a cell with a drop down list.

    使用组合框的优势在于,您可以使用较大的字体显示文本,并且键入时它会自动完成,这与带有下拉列表的单元格不同。

    datavalcombosheet14

    将新项目添加到下拉列表 (Add New Item to Drop Down List)

    Another one of my sample files let you add new items to a drop down list, on the fly. If you type a new item, a message box asks if you want to add it. Then, if you click Yes, it’s put into the list, in alphabetical order.

    我的另一个示例文件可让您随时将新项目添加到下拉列表中。 如果键入新项目,则会出现一个消息框,询问您是否要添加它。 然后,如果您单击“是”,则会按字母顺序将其放入列表。

    datavaladdsorttable01

    将新项目添加到组合框 (Add New Items to Combo Box)

    Someone recently asked if it was possible to combine those techniques, so I’ve created a new sample file that does just that! When you click on a cell that has a data validation list, a combo box appears. If you type an item that isn’t in the list, you’re prompted to add it.

    最近有人问是否可以结合使用这些技术,所以我创建了一个新的示例文件来实现这一目的! 当您单击具有数据验证列表的单元格时,将出现一个组合框。 如果您键入不在列表中的项目,则会提示您添加它。

    NOTE: The Add New Item code is triggered when you press Tab or Enter to get out of the Combo box.

    注意:当您按Tab或Enter退出组合框时,将触发“添加新项”代码。

    To see the file, and how it works, you can download it from my Contextures website. On the Excel Samples page, look for DV0062 - Data Validation Click Combobox - Add New Items.

    若要查看文件及其工作方式,可以从我的Contextures网站下载它。 在“ Excel样本”页面上,查找DV0062-数据验证单击组合框-添加新项目

    The file is in xls format, and contains macros. ___________________

    该文件为xls格式,并包含宏。 ___________________

    翻译自: https://contexturesblog.com/archives/2013/12/19/add-new-items-to-data-validation-combo-box/

    vb组合框回车添加项目

    展开全文
  • VB 6.0 在DataGrid表格中实现下拉列表框,大家可以看截图,在如演示效果所示的DataGrid表格中,单击“单位”一列任意行数据,会显示出一个下拉框,供输入者选择单位,扩展了DataGrid的功能,增加了易用性,提升了...
  • 哈喽大家好,欢迎来到一起学VB课堂,今天我们将要学习列表框ListBox控件和组合框ComboBox控件,这两个控件在VB中是非常重要的控件,当然其难度也比前面学习的控件难度有所增加,这两个控件我会单独分在两个课程,小...

    哈喽大家好,欢迎来到一起学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中实现下拉列表多选!在组态软件中适用
  • VB 动态增加 下拉菜单 范例
  • Vb为程序添加鼠标中轮滚动操作,本程序是在VB的IDE中添加代码预览时的鼠标滚轮滚动功能,不需要鼠标点击滚动条的小三角,滚动鼠标中轮即可控制代码上下滚动,方便控制预览区域,提升使用体验。
  • 内容索引:VB源码,界面编程,listview,复选 VB给listview控件添加自动选择功能,也就是说当我们用鼠标点击列表的某一行而非点击复选的时候,复选会自动打勾选中,再次单击鼠标则取消选中,在某些软件系统中,...
  • 有时用户会用List列表储存信息。... 那么我们如何让VB的List列表拒绝添加重复信息呢?本资源包含的源程序代码将为您解答。 本资源压缩包内包含实现此功能的所有代码(不含控件),简单修改即可适应您的要求。
  • 窗体上建立一个简单组合框,在组合框的文本框输入数字字符,按回车键后加入到组合框的列表框内,如图E.8所示;单击“交换”按钮,将列表框中最小值项目和第0个项目交换;最大值与最后项目交换,如图所示: 提示...
  • VB 之 精 彩 编 程-VB中防止将重复项目添加列表框控件中
  • 如果您要删除记录的话同样可以双击数据列表框弹出删除工具栏。 7.单击“专业管理”按钮将弹出登陆对话框,只要进行软件注册即可得到用户名与密码。赶快注册吧! 8.输入正确的用户名与密码后将进入其余三张表的编辑...
  • VB 6.0 OpenPlayer Flash播放器源代码,最后一次更新修改了... 菜单键(在键盘[右Win键]和[右Ctrl键]中间) 在对应的对象(如列表框)上弹出相应的菜单,自定义文件夹,用Folder.htt履盖原来的模板的内容就可以了。
  • 非常值得收藏,下载的源码资源: 1. 代码源自网络,并添加部分示例代码; 2. 自定义Combobx下拉框,支持基础控件下拉,也支持自定义控件下拉,扩展十分方便;
  • VB 单选按钮、复选按钮和框架控件

    千次阅读 2020-09-16 10:05:20
    但是对于对象名称和vb中的常量等,因为不需要输入点号,所以无法自动弹出提示,对于初学者而言,很多符号难以记住,这就带来了学习编程的困难。实际上这时,我们可以按快捷键Ctrl+J即可呼出提示,例如要输入...
  • 支持C++、VB.NET和Razor等附加语言,为客户提供了解决方案视图和源控件差异共享。 打开你最近处理过的代码,或者通过新的启动窗口,比如克隆、打开或新建项目等最常用的流程之一开始。 按受欢迎程度排序...
  • vb列表框ListBox的使用

    千次阅读 2007-10-11 11:09:00
    列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个选项。 列表框的特点是:列表框中的项目是通过程序插入到其中的,用户无法向清单中输入数据,当选择其中的项目,并在用户单击一个按钮...
  • 当然这只是部分代码,看对你有没有用。 Dim myconnection As New SqlConnection( persist security info=false; _ & integrated security=SSPI;database=techhero; _ & server=localhost;connect timeout=30 ) ...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    C#基础教程-c#实例教程,适合初学者。...当然仅靠一章的内容就完全掌握C#语言是不可能的,如需进一步学习C#语言,还需要认真阅读有关C#语言的专著。 1.1 C#语言特点 Microsoft.NET(以下简称.NET)...
  • excel 中vb组合 多列Excel组合 (Multi-Column Excel Combo Box) With Excel VBA programming, you can add a Combo Box to the worksheet, to show a data validation list. Usually a single column combo box ...
  • VB ListBox 添加不重复的值,当列表中已经存在该值即不再添加。 Private Function AddList(List As ListBox, Str As String) As Boolean Dim I As Long For I = 0 To List.ListCount - 1 If List.List(I) = Str ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 13,335
精华内容 5,334
关键字:

vb列表框添加内容的代码