-
Vb查找ListBox列表数据,在原列表中显示查找到的数据。
2021-01-28 00:20:24'在窗体中画三个控件(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 ...'在窗体中画三个控件(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 IfIf 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 SubPrivate Sub Command1_Click()
Call FindThe(List1, Text1.Text, True)
End SubPrivate Sub Form_Load()
Command1.Caption = “查找”
Text1.Text = “”
List1.AddItem “sdgdsg989sd0g9”
List1.AddItem “我爱编程985fg”
List1.AddItem “5456487454313”
List1.AddItem “dfdikjejl;jiop程序员的生活”
List1.AddItem “新年快乐2020”
End SubPrivate 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 SubPrivate Sub Text1_Change() '当输入框为空时显示列表原来的所有内容
If Text1 = “” Then Call FindThe(List1, Text1.Text, False)
End Sub
-
vb-listbox用法
2008-05-09 15:54:00列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个...下面这个例子充分说明了列表框的这个特点,并介绍了列表框(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
2013-02-14 19:44:341)List Box控件常用的方法 参数:AddItem向列表框添加新项目,其格式为:ListBox控件名.AddItem项目>[,索引值>]其中:<项目>为字符串表达式,表示添加到列表框中的新项目。<索引值>...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 SubPrivate Sub Command2_Click()
Text1.Text = List1.list(3)
End SubPrivate Sub Command3_Click()
Text1.Text = List1.ListIndex
End SubPrivate Sub Form_Load()
List1.AddItem "Germany"
List1.AddItem "India"
List1.AddItem "France"
List1.AddItem "Canada"
List1.AddItem "USA"
List1.AddItem "Japan", 0List1.AddItem "China", 1
End SubPrivate Sub List1_Click()
If List1.Text = "Canada" Then
Text1.Text = "Canada have 24 million people."
End If
End SubListCount 返回列表框中项目的总数,只在运行时可用。例:
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 SubText 存放当前在列表框中选定的项目,即List(ListIndex)的值。例:
Private Sub List1_Click()
If List1.Text = "Canada" Then
Text1.Text = "Canada have 24 million people."
End If
End SubColumns 指定列表框中的列数。其值为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 SubMultiSelect 表明是否允许用户从列表框中选定多个项目以及选定的方式。其值为0时,只允许选择一个项目,不允许复选;为1时,允许用户通过单击或按下空格键选定或撤消多个项目;为2时,允许用户使用Shift和Ctrl组合操作来选定或撤消多个项目。
语法结构: object.MultiSelect = [ Number ]
Sorted 为True时,自动将列表按字母顺序重新排列,排序时不区分大小写。
Style 表示列表框中项目的显示形式,运行时只读。其值为0时,为标准方式显示;为1时,在每个项目前加上一个复选框。
Selected 该属性实际上是一个数组,各个元素的值为True或False,表明是否选择了该项。
用下面的语句可以检查指定的表项是否被选择(其中“索引值从0开始):
ListBox控件名.Selected(索引值)
用下面的语句可以选择或取消指定的表项:
ListBox控件名.Selected(索引值)=Ture│False摘自:网络整理 -
Property Listbox 属性列表框!
2010-09-26 10:19:00本程序用 MFC 实现 属性列表框(Property Listbox), 就象 VB 的 IDE 环境一样.用户可以在Property Listbox中包含 edit box, a combo box, an RBG color value, a font name, or a file name 1、将 ...本程序用 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);
- 建立一个 CPropertyItem object, constructor 如下:
- 1、将 CPropertyList box 加入 dialog 的步骤:
-
vb.net 在winform中调整listBox行间距
2017-09-22 15:29:36在为 winform中,listBox的行间距默认太紧凑,如果要调整,还是比较麻烦的。笔者查询了多种方法,现总结如下。需要两个事件,一个是DrawItem ,另一个是MeasureItem。还需要把listBox的drawMode属性设置为... -
vb列表框ListBox的使用
2007-10-11 11:09:00列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个...下面这个例子充分说明了列表框的这个特点,并介绍了列表框(ListBox)的常用属性。 为了学习方便,提供的源码已经作了详细的中文注释, -
类似VB中的分类属性表控件
2002-05-16 09:26:00类似VB中的分类属性表控件作者:徐景周下载实例代码...下面有我做的一个类似于这种VB中分类属性表的控件,例图如下:基本构成思想:此控件从ListBox派生,将每一行列表,填充为三 -
vb列表框ListBox的详细使用方法
2008-11-28 10:50:00列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个选项。...下面这个例子充分说明了列表框的这个特点,并介绍了列表框(ListBox)的常用属性。 为了学习方便,提供的源码已经作了详细的中 -
VB调用打印机属性
2008-09-11 16:28:001.在 Visual Basic 中启动一个新的项目。 默认情况下会创建 Form 1。 2.将一个命令按钮和一个 ListBox 添加到窗体。 3.将以下代码粘贴到窗体的模块: Option Explicit Private Declare Function PrinterP -
matlab的listbox选择多行_MATLAB LISTBOX 折腾了我两个小时
2020-12-28 21:40:07试图将每次迭代过程中各类的类心在listbox中显示以前的思维:在VB或VC中都可以很方便的用add方法现状:Matlab中不支持这样的处理方式,matlab的思维是对于每一个unicontrol通过get,set来获得和设置相应的属性,当然... -
关于listbox多项删除的疑惑
2012-08-24 19:21:27vb控件listbox中支持多个删除。首先要设定list的multiselect属性为2-Extended然后再在代码中添加即可。 刚开始使用的是 For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then List1.RemoveItem i ... -
vb list选中项_全面剖析VB常用控件之列表框控件使用详解!
2020-12-11 10:43:01ListBox 列表框控件使用详解列表框控件作为VB编程中的常用控件之一,在许多程序开发或者题目中,都有它的身影。但是好多朋友却对它的重要属性和方法不太熟练。为此,今天特意将列表框控件单独列出来,以期对大家会有... -
VB2005(列表框和视图类控件使用)
2010-10-14 16:34:001、ListBox控件 列表框(ListBox)的主要属性和事件 用户可以从列表框中的一系列的选项中选择一个或多个选项。如果选项的数量超过可显示的区域,列表框会自动增加滚动条。列表框可以是单列或多列的。以下是它的... -
微软 VB2010 源码包
2013-05-22 02:21:18DrawUserControl:演示如何创建自定义绘制的用户控件、在窗体中使用它们、使控件能够对事件作出响应,以及定义在设计视图中使用的属性 DynamicControls:演示如何在运行时将控件添加到 Windows 窗体应用程序中的... -
vb.net 教程 8-1 简单数据绑定 2
2017-11-19 20:09:59版权声明:本文为博主原创文章,转载请在显著位置标明本文...回到Listbox1属性,从DataSource中选择”产品“: DisplayMember选择”产品名称": 这是后我们查看窗体代码,会发现vs已经自动加入了以下代码: ... -
vb.net 教程 8-1 简单数据绑定 1
2017-11-19 20:09:25在listbox1的属性列表中找到DataSource 当然现在什么数据源都没有,点击“添加项目数据源” 请一直点“下一步” 点击“新建连接”,在“添加连接“窗口中可以选择相应的数据源,这... -
VB编程资源大全(源码 文件)
2007-10-17 22:40:03mid 窗口实现的编辑器,并能防止打开多个实例(32KB) 37,f020.ZIP 在VB中调用HELP文件并实现Winhelp的关键字、主题等功能(16KB) 38,f019.ZIP 如何在VB中分割一个文件并组装恢复它(18KB) 39,f018.ZIP... -
VB 各种控件(个人收藏30多种,还有详细的使用介绍)
2012-03-06 14:19:08建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 7,combosrc.zip 在 COMBO 中的增量查询(2KB) 8,escombo.zip 为COomBo控件加强版,有近似关键字搜索功能(27KB) 9,sblist20.zip 它允许你用各自颜色(162KB... -
求大神帮忙,用vb做一个猜字游戏
2017-05-24 07:32:45然后再加入两个commandbuttion控件,一个listbox、一个frame、一个label。设置窗体的caption属性为“猜一猜”、borderstyle为1-fixedsingle、控件数组的captin分别为0、1、2、3、4、5、6、7、8、9,command2的... -
vb.net datagridview数据批量导入sql_【自学C#】|| 笔记 44 ComboBox:组合框控件数据绑定...
2020-12-12 18:23:09一、ComboBox:组合框控件数据绑定在 Windows 应用程序中很多控件都提供了 DataSource 属性,并将 DataSet 或 DataTable 的值直接赋给该属性,这样在控件中即可显示从数据库中查询出来的数据。常用的数据绑定控件有... -
[转]在SDK中使用TreeView控件
2012-07-18 22:47:00在SDK中使用控件非常的麻烦,不像VB之类的编辑工具,直接设置控件属性就能很方便的控制控件。平时用得最多的控件包括按钮、ListBox、Combobox、Edit、Image List等,学了一个多月SDK,发现只会用按钮和Edit控件,... -
在SDK中使用TreeView控件
2008-12-23 07:28:00在SDK中使用控件非常的麻烦,不像VB之类的编辑工具,直接设置控件属性就能很方便的控制控件。平时用得最多的控件包括按钮、ListBox、Combobox、Edit、Image List等,学了一个多月SDK,发现只会用按钮和Edit控件,... -
学生信息管理系统“重复设置”问题
2013-08-19 10:33:47就这个问题,我从listbox的属性入手,不要求里listbox的属性都要求你都知道。最起码这个用到的都要知道。 在我们学习vb入门的时候,我们不必所有的都弄懂,所有的都记住。我们只有知道有这样的一个类,它叫... -
轻松实现控件间托拽操作
2002-08-28 08:58:00在Vb.net里实现ListBox之间的托拽,首先要使接受托拽数据的控件的AllowDrop属性设为真。再要处理的就是托拽效果,AllowedEffect是设置托拽的源控件的动作效果,而Effect是设置目标控件的动作。这些东东可以在... -
ADO.NET 数据集中浏览多个相关表 3
2005-09-11 01:48:00添加选择和显示数据的控件 在 Solution Explorer(解决方案资源管理器)中,右键单击 Form1(.cs 或 .vb,取决于应用程序的语言),然后从快捷菜单中选择 View Designer(视图设计器)。 在窗体的左半部,添加一... -
Visual Basic开发实战1200例(第Ⅰ卷).(清华出版.孙秀梅.巩建华).part1
2016-06-14 11:19:42书名:《Visual Basic开发实战1200例(第I卷)》(清华大学出版社.孙秀梅.巩建华) PDF格式扫描版,全书分为6篇20章,共874页。2011年1月出版。 全书压缩打包成2部分,这是...实例338 将表中数据添加到ListBox列表 实例339... -
asp.net知识库
2015-06-18 08:45:45从NUnit中理解.NET自定义属性的应用(转载) 如何在.NET中实现脚本引擎 (CodeDom篇) .NET的插件机制的简单实现 我对J2EE和.NET的一点理解 难分难舍的DSO(一) InternalsVisibleToAttribute,友元程序集访问属性 ...