'在窗体中画三个控件(Text1、Command1、List1)，属性为默认，加入以下代码：

Option Explicit

Private Sub FindThe(List As ListBox, Txt As String, N As Boolean)

Static Sstxt() As String, S(2) As Integer, Lt As Boolean

If N Then

If Lt = False Then

For S(0) = 0 To List.ListCount - 1

ReDim Preserve Sstxt(S(0))

Sstxt(S(0)) = List.List(S(0)) '先将列表所有数据放到数组Sstxt中，方便导回列表。

If S(0) = List.ListCount - 1 Then List.Clear: Lt = True

Next S(0)

End If
If Lt = True Then

List.Clear

For S(1) = LBound(Sstxt) To UBound(Sstxt)

If InStr(UCase(Sstxt(S(1))), UCase(Txt)) <> 0 Then

List.AddItem Sstxt(S(1))

End If

Next S(1)

End If

Else

Dim i As Integer

If Text1 = “” And Lt = True Then

List1.Clear

For i = LBound(Sstxt) To UBound(Sstxt)

List1.AddItem Sstxt(i)

If i >= UBound(Sstxt) Then Erase Sstxt: Lt = False

Next i

End If

End If

End Sub
Private Sub Command1_Click()

Call FindThe(List1, Text1.Text, True)

End Sub
Private Sub Form_Load()

Command1.Caption = “查找”

Text1.Text = “”

List1.AddItem “sdgdsg989sd0g9”

List1.AddItem “我爱编程985fg”

List1.AddItem “5456487454313”

List1.AddItem “dfdikjejl;jiop程序员的生活”

List1.AddItem “新年快乐2020”

End Sub
Private Sub Form_Resize()

Command1.Move Me.ScaleWidth - Command1.Width, 50

Text1.Move 50, 50, Command1.Left - 50

List1.Move 50, (Command1.Top + Command1.Height) + 100, Me.ScaleWidth - 80, (Me.ScaleHeight - List1.Top) - 100

End Sub
Private Sub Text1_Change() '当输入框为空时显示列表原来的所有内容

If Text1 = “” Then Call FindThe(List1, Text1.Text, False)

End Sub

列表框（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”键，测试检验一下我们的程序了。在这个小程序中，包含了列表框中的一般常用属性和方法。

  
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文本框中的行数函数
  
  
更多精彩>>>

    本程序用 MFC 实现 属性列表框(Property Listbox), 就象 VB 的　IDE 环境一样．用户可以在Property Listbox中包含 edit box, a combo box, an RBG color value, a font name, or a file name

1、将 CPropertyList box 加入 dialog 的步骤：
Add the files ProperyList.h and PropertyList.cpp to your project.
Add a list box to the dialog in which you wish to place a property list box.
Set the properties for the list box to:
Selection: Single
Owner Draw: Variable
Check the 'Has Strings' box and Uncheck the 'Sort' box

Using the ClassWizard add a CPropertyList member variable for the list box. If you don't see a choice called CPropertyList, then select CListBox instead, and then manually edit the dialog class and set the variable to type CPropertyList.
Include the file "PropertyList.h" in your dialog class.

2、使用 the CPropertyList box
建立一个 CPropertyItem object, constructor 如下：
 

CPropertyItem(CString propName, CString curValue, int nItemType, CString cmbItems)

参数说明：
propName is a name for the property and is displayed in the first column
curValue is the initial value for the property
nItemType is either
PIT_COMBO (combo box control)
PIT_EDIT (edit box control)
PIT_COLOR (color chooser)
PIT_FONT (font selector)
PIT_FILE (file chooser)

cmbItems are the combo items if nItemType is set to PIT_COMBO, e.g., "TRUE|FALSE|".

Add the CPropertyItem object to the CPropertyList box using the AddPropItem method:
int AddPropItem(CPropertyItem* pItem);


 
示例代码
The following lines add a property of each type to a CPropertyList box (m_propList).
//Add an edit box for a property called 'ToolTip Text'
CPropertyItem* propItem1 =
 new CPropertyItem("ToolTip Text","",PIT_EDIT,"");
m_propList.AddPropItem(propItem1);

//Add a combo box with the choices 'true' and 'false'
//for a property called 'Enabled'
CPropertyItem* propItem2 =
 new CPropertyItem("Enabled","true",PIT_COMBO,"true|false|");
m_propList.AddPropItem(propItem2);

//Add a color chooser for a property called 'Back. Color'
CPropertyItem* propItem3 =
 new CPropertyItem("Back. Color","",PIT_COLOR,"");
m_propList.AddPropItem(propItem3);

//Add a file chooser for a property called 'File Name'
CPropertyItem* propItem4 =
 new CPropertyItem("File Name","",PIT_FILE,"");
m_propList.AddPropItem(propItem4);

//Add a font chooser for a property called 'Font'
CPropertyItem* propItem5 = new CPropertyItem("Font","",PIT_FONT,"");
m_propList.AddPropItem(propItem5);