精华内容
下载资源
问答
  • 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的详细使用方法
    展开全文
  • Y As Single) Call ListToolTip(List1, X, Y, 0) End Sub 'W:0显示每行内容,1只显示内容长于列表内容 Public Sub ListToolTip(L As ListBox, X As Single, Y As Single, W As Long) Dim lXPoint As Long, ...

    在这里插入图片描述
    Option Explicit

    Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Const LB_ITEMFROMPOINT = &H1A9

    Private Sub Form_Load()
    List1.AddItem “IT狂热者”
    List1.AddItem “欢迎访问我的主页https://blog.csdn.net/ty5858”
    End Sub

    Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call ListToolTip(List1, X, Y, 0)
    End Sub

    'W:0显示每行内容,1只显示内容长于列表的项内容
    Public Sub ListToolTip(L As ListBox, X As Single, Y As Single, W As Long)
    Dim lXPoint As Long, lYPoint As Long, lIndex As Long
    lXPoint = CLng(X / Screen.TwipsPerPixelX)
    lYPoint = CLng(Y / Screen.TwipsPerPixelY)
    lIndex = SendMessage(L.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((lYPoint * 65536) + lXPoint))
    If lIndex >= 0 And lIndex <= L.ListCount Then
    L.ToolTipText = IIf(W <> 0, IIf(TextWidth(L.List(lIndex)) >= L.Width, L.List(lIndex), “”), L.List(lIndex))
    Else
    L.ToolTipText = “”
    End If
    End Sub

    展开全文
  • 一个不错的VB ComboBox列表框实例

    热门讨论 2013-03-31 15:02:26
    大家看一下截图,是不是很精致,不过有点遗憾,目前它暂时不支持用回车键选择列表项,有兴趣的朋友可以自己修改一下。
  • 哈喽大家好,欢迎来到一起学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.net中创建了高级媒体... 从AxWindowsMediaPlayer1_PlayStateChange事件执行代码后,我想自动播放列表框中的新选定。 就像Windows Media Player一样。您能帮我提供我的代码吗?私人子...
  • 列表框添加列表项

    2021-03-13 10:46:29
    利用属性窗口向列表框添加四个项目利用属性窗口向列表框添加四个项目:Visual Basic、Turbo C、C++、Java你是说VB的吗? 在列表框的属性里面有一个List属性, 点击其右边的下三角按钮,出现一个下拉的文本框,在里面...
  • VB 实现Combox下拉列表颜色选择控件 ,完美实现,代码完面!!
  • VB 之 精 彩 编 程-VB中处理长列表框项的两种方法
  • 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
  • 列表框和组合框 列表框是CListBox类的对象,组合框是CComboBox的对象。 列表框 属性设置 列表框的重要属性有: Selection 该属性决定用户的选择方式,缺省值为 Single 。属性值有: ①:Single ── 单项...
  • 列表框的selected属性

    2021-06-10 17:17:36
    Φ是什么意思?读"fai".是直径的意思不?...而用作列表框和组合框有没有select属性列表框有selected,表示是否选中:If List1.Selected(i) Then 组合框只允许选一个,没有select,Combo1.ListIndex即为当前选中...
  • 我有一个包含3个列表框(lstIngredient,lstSelected,lstRecipe)和一个查找按钮的表单 . lstIngredient填充了存储在数据库中的成分名称 .当用户在lstIngredient中选择(双击)一个名称时,它将被列为lstSelected . ...
  • vb list列表框实现右键选中

    千次阅读 2015-03-03 12:55:28
    '//鼠标右键菜单的api Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long ...
  • 此程序主要写了vc中在一个列表框中双击其中一个选项,将双击的选项移到另一个列表框中。
  • 窗体上建立一个简单组合框,在组合框的文本框输入数字字符,按回车键后加入到组合框的列表框内,如图E.8所示;单击“交换”按钮,将列表框中最小值项目和第0个项目交换;最大值与最后项目交换,如图所示: 提示...
  • 如下图所示,当我们在百度搜索中搜索关键字时,百度...要实现上述功能,需要解决以下几个问题:所有的列表项需要集合在数组或者单元格区域中;在要实现的单元格区域中触发Worksheet_SelectionChange事件;在Worksh...
  • 可以添加不重复的内容,添加到组合框列表中。
  • 本文要讲的是列表框控件(ListBox)及其使用实例。 Xtreme Toolkit Pro是屡获殊荣的VC界面库,是MFC开发中最全面界面控件套包,它提供了Windows开发所需要的11种主流的Visual C++ MFC控件,包括Command Bars、...
  • VB程序题:将斐波那契数列的前10写入文件Fb .dat,然后从该文件将数据读取出来并计算合计和平均数,最后送入列表框。要求:文件数据格式如下所示,列表框中项目格式如图H.3所示。"Fib(0)",0"Fib(1)",1"Fib(2)",1...
  • 如图,也或者它不是列表框 ... 已知可获取到文本框的文本,但如果需要获取这个(列表)框下面的所有文本,该用什么...用Spy只能获取到文本框的文本(已选中列表中某个后该出现在文本框),但不能获取到这个列表框的句柄
  • 列表框控件(listbox)消息

    千次阅读 2017-03-15 10:21:37
    单选列表框一次只能选择一个列表项,而多重选择列表框可以进行多重选择.对于列表项的选择,  应用程序用CreateWindowEx创建列表框控件时,可根据控件的用途在下表中选择部份常数来设定其风格属性(style)。  常
  • 列表框  1、属性  1、columns  该属性用来确定列表的列数。当该属性设置为0(默认)是,所用的项目呈单列显示。如果该属性为1,则列表框呈多行多列显示;  2、list  该属性用来累出表的内容。list属性...
  • 下拉列表框 ComboBox 快速监视快捷键:Ctrl+d+q text 属性获取的数据为控件显示的内容. SelectedItem 是获取当前选择的对象. 如果当前DropDownStyle 为DropDown时,可以更改下拉框中的内容.那么将会引发使用...
  • 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 ...
  • 不写下拉框列表选择改变事件时一切正常,省份正确读取并绑定到下拉框列表中,但 写了下拉框列表选择改变事件后,就报错了,错误:从类型“DataRowView”到类型“Integer”的转换无效。对应红色字体 Private ...
  • vb.net创建自定义颜色下拉列表

    千次阅读 2018-01-22 00:57:16
    Private Sub LB_DtColorsFilter_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs) Handles LB_DtColorsFilter.DrawItem  If LB_DtColorsFilter.Items.Count = 0 Then Exit Sub ...
  • 知识点三:常用控件与界面设计重点:1、掌握列表框、组合框、选项按钮、复选按钮、滚动条等控件的常用的属性、方法、事件2、掌握菜单的设计(7)列表框(ListBox):用于列出可供用户选择的项目列表。用户可以从中选择一...
  • #include<atlconv.h> //字符串转化 T2C宏 void CMyListDlg::OnBnClickedButton1() { m_List.ResetContent(); //清除列表 m_List.AddString(L"新浪"); // 在列表框末尾添加字符串... // 在列表框末尾添加字...
  • 能在列表项中使用颜色、字体、位图等本人收集了一些技巧供大家参考,希望斑竹能多放一些时间。按字母或数字顺序排列列表框中的列表项. 将以下代码加入到你的程序中.

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 12,067
精华内容 4,826
关键字:

vb列表框设置列表项