1)List Box控件常用的方法

参数:
AddItem
向列表框添加新项目,其格式为:
ListBox控件名.AddItem<项目>[,<索引值>]
其中:
<项目>为字符串表达式,表示添加到列表框中的新项目。
<索引值>为数值表达式,指定在列表框中插入新项目的位置。若为0,则插入到第一个项目位置;若缺省且Sorted属性为False,则插入到最后一个项目位置;
若缺省且Sorted属性为True,则插入到合适的排序位置。

RemoveItem
从列表框中删除项目,其格式为:
ListBox控件名.RemoveItem<索引值>

Clear
清除列表框中所有项目,其格式为:
ListBox控件名.Clear

例如添加代码到List1列表框中,运行后的结果如下:

Private Sub Form_Load()

List1.AddItem "Germany"

List1.AddItem "India"

List1.AddItem "France"

List1.AddItem "USA"

List1.AddItem "Japan", 0

List1.AddItem "China", 1

End Sub

要从列表中删除项目,可使用RemoveItem方法,如要删除列表中的第一个项目,可添加如下代码:

Private Sub Command1_Click()

List1.RemoveItem 0

End Sub

要删除连结版或标准版的列表框、组合框中的所有项目。可使用Clear方法:

List1.Clear

注意:

1)可以在设计时添加项目。做法:选列表框“属性”窗口中[List]属性,在下拉的空白框中输入项目,并按[CTRL]+[回车]键进行换行。

2)只能在列表末端添加项目。

3)如果要将列表按字母顺序排序,则应将“Sorted”属性设置为“True”,且省略索引(否则,使用带有index参数的AddItem方法可能会导致不可预料的非排序结果),排序时不区分大小写。

(2)常用属性

属性 描述 代码及界面显示
List (1)在设计时可向列表框中添加新项目,输人时用Ctrl+Enter组合键换行(2)在代码中可用来访问列表框中的所有项目,它包含了一个字符串数组,列表框中的每个项目都是这个数组的元素。其引用格式为:
s$=ListBox控件名.List(索引值)
其中:<索引值>为数值表达式,指定项目在列表中的位置,它是从0开始的。
例:s$=list1.list(6)将列出list1的第七项内容。
Private Sub Command1_Click()
Text1.Text = List1.List(2)
End Sub
也可改变数组中已有的值,格式:
ListBox控件名.List(索引值)=s$
例list1.list(3)="AAAA"将把list1的第四项的内容设为AAAA。

Option Explicit
Private Sub Command1_Click()
    Text1.Text = "You have" & List1.ListCount & "_entrifs lister"
End Sub

Private Sub Command2_Click()
    Text1.Text = List1.list(3)
End Sub

Private Sub Command3_Click()
    Text1.Text = List1.ListIndex
End Sub

Private Sub Form_Load()
    List1.AddItem "Germany"
    List1.AddItem "India"
    List1.AddItem "France"
    List1.AddItem "Canada"
    List1.AddItem "USA"
    List1.AddItem "Japan", 0

List1.AddItem "China", 1
End Sub

Private Sub List1_Click()
    If List1.Text = "Canada" Then
        Text1.Text = "Canada have 24 million people."
    End If
End Sub

ListCount 返回列表框中项目的总数,只在运行时可用。例:

Private Sub Command2_Click()
    Text1.Text = "You have" & List1.ListCount & "_entrifs lister"
End Sub
'ListIndex 返回在列表框中当前选定项目的位置,只在运行时可用。未选定任何项目时,其值为-l。例:
Private Sub Command3_Click()
    Text1.Text = List1.ListIndex
End Sub

Text 存放当前在列表框中选定的项目,即List(ListIndex)的值。例:

Private Sub List1_Click()
    If List1.Text = "Canada" Then
        Text1.Text = "Canada have 24 million people."
    End If
End Sub

Columns 指定列表框中的列数。其值为0时,列表框以垂直滚动的单列方式显示;为l时,列表框以水平滚动的单列方式显示;大于l时,列表框以水平滚动的多列方式显示。

Option Explicit

Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To Screen.FontCount - 1
        List1.AddItem Screen.Fonts(i) '“Columns”属性0
        list2.AddItem Screen.Fonts(i) '“Columns”属性1
    Next i
End Sub

MultiSelect 表明是否允许用户从列表框中选定多个项目以及选定的方式。其值为0时,只允许选择一个项目,不允许复选;为1时,允许用户通过单击或按下空格键选定或撤消多个项目;为2时,允许用户使用Shift和Ctrl组合操作来选定或撤消多个项目。
语法结构: object.MultiSelect = [ Number ]
Sorted 为True时,自动将列表按字母顺序重新排列,排序时不区分大小写。
Style 表示列表框中项目的显示形式,运行时只读。其值为0时,为标准方式显示;为1时,在每个项目前加上一个复选框。
Selected 该属性实际上是一个数组,各个元素的值为True或False,表明是否选择了该项。
用下面的语句可以检查指定的表项是否被选择(其中“索引值从0开始):
ListBox控件名.Selected(索引值)
用下面的语句可以选择或取消指定的表项:
ListBox控件名.Selected(索引值)=Ture│False

摘自:网络整理


VB部分相关文章推荐:


※VB 释放资源文件到指定目录函数

※VB 读取资源文件里面的字符串

※VB中资源文件.res的使用方法详解

※VB6.0中创建和使用文本资源文件

※VB WindowsMediaPlayer 播放

※vb中WindowsMediaPlayer的常用属性和方法

※VB Environ系统环境变量函数大全

※VB 去除文本框粘贴功能

※VB LISTBOX

※VB 删除数组中的重复元素

※VB数组快速排序算法

※关于三个概念:ActiveX、OLE和COM

※VB 获得磁盘的文件系统

※VB中用API实现文件拖放

※加密算法-MD5算法

※VB中使用MD5算法

※VB 全局热键HOOK (不占系统资源版本)

※VB 小技巧自定义TextBox文本框右键菜单

※VB 写下载者代码

※VB 一行代码的诀窍

※VBS教程-wscript对象

※vb枚举进程

※在VB中如何让线程或进程在指定的CPU上运行

※VB判断指定的WORD文档是否被打开

※VB如何读取快捷方式的目标路径

※VB用API控制输入法状态

※为系统加载右键注册控件选项【VB 注册控件】

※VB如何根据窗口标题获得进程名称

※VB快速查找大型文件中包含的字符串

※VB实现可执行文件运行时自删除

※VB 打开txt,bat,jpg 任意后缀程序

※VB 写文件关联程序

※VB 自启动建立右键菜单

※VB 判断IP能否ping通

※VB FTP操作类(可上传、下载、创建文件夹等等)

※VB部分文件汇总B

※Vb 求素数最经典的方法也是最快的方法

※vb用数组方式快速导出MSFlexGrid表格数据到Excel表格中

※VB中MsFlexGrid控件的使用细则

※点击MSFlexGrid数据控件的标题进行数据排序

※VB 获取鼠标坐标

※VB中NEW的用法(申请内存空间)

※VB CreateObject函数

※VB中的New 与 CreateObject的区别

※VB ListBox 添加不重复的值

※VB 单击ListView控件某列表头进行排序

※VB 简单实现简体与繁体互转

※VB 阿拉伯数字转换为中文大写数值函数

※VB 获取Textbox文本框中的行数函数


更多精彩>>>

VB LISTBOX相关推荐

  1. VB ListBox 添加不重复的值

    VB ListBox 添加不重复的值,当列表中已经存在该值即不再添加. Private Function AddList(List As ListBox, Str As String) As Bool ...

  2. 【转】VB动态拖曳ListBox Item位置

    在窗口中添加一个LISTBOX控件,名称为LIST1,其中FORM1代码如下: 'form---加listbox,MultiSelect = 0 Option Explicit Dim rect5 A ...

  3. VB添加listbox 的水平卷动轴

    VB 的 ListBox 并没有水平卷动轴的功能,如果遇到某一个资料项很长时, 使用者就无法看到这一个资料项的所有内容,要如何设定水平卷动轴给 ListBox? 可利用 SendMessage 传送 ...

  4. vb在 ListBox 之中点击右键弹出菜单

    '1.API 的声明: Const LB_ITEMFROMPOINT = &H1A9 Private Declare Function SendMessage Lib "user32 ...

  5. VB 读取资源文件里面的字符串

    Private Sub Form_Load() Dim TempStr() As Byte TempStr = LoadResData(101, 6) Text1.Text = TempStr End ...

  6. [转]VB中资源文件.res的使用方法详解

    在几乎所有的Windows应用程序中都拥有资源文件,这些文件定义使用应用程序将要显示很多的用户界面元素,以及提供程序所需要的各种类型数据的存储场所.资源文件在VC应用程序中应用十分广泛,在VB应用中却 ...

  7. VB WindowsMediaPlayer 播放

    VB 如何用WindowsMediaPlayer 播放音乐文件, 1:播放指定文件夹内的所有歌曲 2:顺序播放,就是自动下一首. '添加windowsmediaplayer控件 一个timer控件即可 ...

  8. vb中WindowsMediaPlayer的常用属性和方法

    vb中WindowsMediaPlayer的常用属性和方法 enableContextMenu:Boolean 显示/不显示播放位置的右键菜单 fullScreen:boolean 全屏显示 stre ...

  9. VB Environ系统环境变量函数大全

    Environ ("Windir") 'c:\windows Windows 目录 Environ ("ProgramFiles") 'c:\ProgramFi ...

最新文章

  1. IDEA 构建为了打 jar 包的工程,包含 maven 打 jar 包的过程
  2. 大学生创新创业大赛案例_第五届“南博杯”大学生创新创业大赛决赛举行
  3. 听说你想去大厂看妹子,带你看看美团后端开发实习岗详细面经
  4. python shelve模块_python3 shelve模块的详解
  5. 快手用户群体分析_深扒200个抖音快手账号,4亿银发人群粉丝数据得出行业新趋势...
  6. 牛客16654 谁拿了最多奖学金
  7. 【毕业前夕,畅谈科研】一个清华土著的科研感想
  8. 游戏版号重新发放,开发者可以松口气了!| 畅言
  9. BZOJ4321:queue2(DP)
  10. 域名解析与邮件服务器收发问题
  11. hive建表语句comment 中文描述乱码
  12. 7-11 公约数与公倍数 (10 分)
  13. 568A以及568B线序
  14. 极客日报:虎牙被抬员工当事人再发声;Android 12 DP1 带来新隐私功能;IBM 考虑出售Watson Health业务...
  15. mysql order优化2019_MySQL 效率提高N倍的19条MySQL优化秘籍
  16. 【HTML】HTML网页设计----植物网站设计
  17. EAccessViolation
  18. 【OpenVINO 3】POT量化流程
  19. Android Studio运行app启动模拟器一直卡在“Wating for target device to come online”的解决办法
  20. linux刷新分区表,linux磁盘分区的详细步骤(图解linux分区命令使用方法)

热门文章

  1. 华米OV 万亿 IoT 争夺战
  2. iPhone 史上最大优惠;摩拜「裁员门」反转;百度网盘缩减空间 | 极客头条
  3. Google AI 的焦虑:拆分搜索和人工智能部门
  4. 前端薪资竟最差?程序员跳槽时如何才能谈个好价钱
  5. ======第一章操作系统引论======
  6. 树莓派python gpio 模仿iic_树莓派高级GPIO库,wiringpi2 for python使用笔记(五)i2c读取测试...
  7. 计算机维修与销售探讨,《计算机维修与维护》面向市场教学的探讨.pdf
  8. 关于 IOS5 使用 position:fixed 与 scrollTo 共存的 bug
  9. linux中使用u盘和光驱的命令_Linux学习之挂载光盘和U盘(六)
  10. php4.0中文手册,服务 — CodeIgniter 4.0.0 中文手册|用户手册|用户指南|中文文档