barriers / 阅读 / 详情

VB中list怎么清空?最好把list各个属性都说一下···

2023-08-23 16:30:03
TAG: is st IST list vb
共3条回复
okok云
Columns 属性

返回或设置一个值,以决定 ListBox 控件是水平还是垂直滚动、以及如何显示列中的项目。如果水平滚动,则 Columns 属性决定显示多少列。

语法

object.Columns [= number]

Columns 属性语法包含下面部分:

部分 描述
Object 对象表达式,其值是“应用于”列表中的一个对象。
Number 一个整型值,指定控件如何滚动、以及列中的项目如何排列,“设置值”中有详细描述。

设置值

number 的设置值为:

设置值 描述
0 (缺省值)项目安排在一列中、且 ListBox 竖直滚动。
1到 n 项目安排在多个列中,先填第一列,再填第二列,等等。 ListBox 水平滚动并显示指定数目的列。

说明

对于水平滚动的 ListBox 控件,列宽等于 ListBox 宽度除以列的个数。

该属性不能设置为 0,在运行时也不能从 0 改变 -也就是说,不能在运行时,将多列 ListBox 变为单列 ListBox 或将单列 ListBox 变为多列 ListBox 。

SelCount 属性

返回在 ListBox 控件中被选中项的数量。

语法

object.SelCount

object 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。

说明

如果没有项被选中,那么 SelCount 属性将返回 0 值。否则,它返回当前被选中的列表项的数量。该属性对能够作复选是尤其有用的

ItemData 属性

返回或设置 ComboBox 或 ListBox 控件中每个项目具体的编号。

语法

object.ItemData(index) [= number]

ItemData 属性语法包含下面部分:

部分 描述
Object 对象表达式,其值是“应用于”列表中的一个对象。
Index 对象中指定项目的编号。
Number 与指定项目相关联的数。

说明

ItemData 属性是一个长整型数的数组,它有与控件的 List 属性相同数目的项目。可以用与每一项相关的数来标识它们。例如,在 ListBox 控件中,可以用雇员身份号来标识每一个雇员的名字。填 ListBox 时,也要将雇员号填入 ItemData 相应的元素中。

ItemData 常常用做与 ListBox 控件中项目相关的数据结构数组的索引。

注意 利用 AddItem 方法在列表中插入一个项目时,在 ItemData 数组中也会自动插入一项。但是其值不会重新初始化为 0;它保持列表在插入项目之前该位置的值。用 ItemData 属性时,一定要在向列表中加入新项时,设置它的值。

List 属性

返回或设置控件的列表部分的项目。列表是一个字符串数组,数组的每一项都是一列表项目,对 ListBox 和 ComboBox 控件在设计时可以通过属性浏览器得到,对 DirListBox、DriveListBox 和 FileListBox 控件在运行时是只读的,对 ComboBox 和 ListBox 控件在运行时是可读写的。

语法

object.List(index) [= string]

List 属性语法包含下面部分:

部分 描述
object 对象表达式,其值是“应用于”列表中的一个对象。
Index 列表中具体某一项目的号码。
string 字符串表达式,指定列表项目。

说明

用该属性可以访问列表项目。

对于除 DirListBox 之外的所有控件,第一个项目的索引为 0 而最后一个项目的索引为 ListCount-1。

对于 DirListBox 控件,索引号序列基于在运行中创建该控件时的当前目录和子目录。当前展开的目录用索引值 -1 表示。当前展开目录的上一级目录用绝对值更大一些的负索引值来表示。例如,-2 是当前展开目录的父目录,-3 又是它上一级的目录。当前展开的目录以下的目录的范围是从 0 到 ListCount-1。

起初,ComboBox 和 ListBox 控件包含一空列表。对于文件系统控件,列表内容由控件在运行中创建时存在的条件决定:

DirListBox-包含所有目录的列表,使用 -n 到 ListCount-1 的范围。

DriveListBox-包含有效的驱动连接列表。

FileListBox-包含匹配 Pattern 属性的当前展开目录的文件列表。不包含路径。
List 属性和 ListCount、ListIndex 属性结合起来使用。

对除 DirListBox 控件之外的所有可用控件,对列表从 0 到 ListCount -1 逐个取值,得到列表中的所有项目。对于 DirListBox 控件,对列表从 -n 到 ListCount-1 逐个取值得到在当前展开目录中能够见到的所有目录和子目录的列表。在这种情况下 n是当前展开目录以上的目录级数。

注意 要确定在 ComboBox 或 ListBox 控件中显示的项目,可用 AddItem 方法。要删除项目,用 RemoveItem方法。若要使项目按字母表排序,在把项目加入到列表中之前将控件的 Sorted 属性设置为 True。

在声明部分用 Option Base = 1 语句不会影响 Visual Basic 控件中元素的编号。第一个元素始终为 0。

当列表索引值超出列表框的实际条数的范围时,则返回一个零长度字符串 (""),例如,对于 ComboBox 或 ListBox 控件 List(-1)返回一个零长度字符串。

ListCount 属性

返回控件的列表部分项目的个数。

语法

object.ListCount

object 所在处表示对象表达式,其值是“应用于”列表中的一个对象。

说明

ListCount 对每个控件提供具体的信息:

ComboBox 和 ListBox 控件-列表中的项目数。

DirListBox 控件-当前目录中子目录的个数。

DriveListBox 控件-连接的驱动器个数。

FileListBox 控件-当前目录中匹配 Pattern 属性设置的文件个数。
如果没有选择项目,ListIndex 属性值为 -1。列表中的第一项是 ListIndex = 0,并且 ListCount 始终比最大的 ListIndex 值大 1。

ListIndex 属性

返回或设置控件中当前选择项目的索引在设计时不可用。

语法

object.ListIndex [= index]

ListIndex 属性语法包含下面部分:

部分 描述
object 对象表达式,其值是“应用于”列表中的一个对象。
index 数值表达式,指定当前项目的索引,“设置值”中有详细说明。

设置值

index 的设置值为:

设置值 描述
-1 (ComboBox、DirListBox 和 DriveListBox 控件的缺省值)表示当前没有选择项目;对于 ComboBox 控件,表示用户向文本框部分输入了新文本;对于 DirListBox 控件,表示当前路径的索引。对 DriveListBox 控件,表示在运行时创建该控件时的当前驱动器的索引。
n (FileListBox 和 ListBox 控件的缺省值)表明当前选择项目的索引。

说明

表达式 List(List1.ListIndex) 返回当前选择项目的字符串。

列表中的第一项是 ListIndex = 0,ListCount 始终比最大的 ListIndex 值大 1。

对于可以做多重选择的控件,该属性的行为取决于所选择项目的个数。如果只选择了一个项目,ListIndex 返回该项目的索引。在多重选择中,ListIndex 返回包含在焦点矩形内的项目的索引,而不管该项目是否被选。

NewIndex 属性

返回最近加入 ComboBox 或 ListBox 控件的项的索引。在运行时是只读的。

语法

object.NewIndex

object 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。

说明

当需要一个与 ItemData 属性数组中的每个项相对应的值的列表时,可以与排序列表一起使用该属性。当往排序的列表中加入一个项时,Visual Basic 将在列表中按字母顺序插入一项。该属性表示项被插入的位置,以便能够在 ItemData 属性中的相同索引处插入相应的值。

如果在列表中已没有项或在最后的项被加入之后一个项被删除,那么 NewIndex 属性将返回 -1。

AddItem 方法

用于将项目添加到 ListBox 或 ComboBox 控件,或者将行添加到 MS Flex Grid 控件。不支持命名参数。

语法

object.AddItem item, index

AddItem 方法的语法包含下列部分::

部分 描述
object 必需的。一个对象表达式,其值为“应用于”列表中的一个对象。
Item 必需的。字符串表达式,它用来指定添加到该对象的项目。这仅仅对于 MS Flex Grid 控件,才能使用 tab字符(字符代码 09)分隔将要插入到新添加行中每列的多重字符串。
Index 可选的。是整数,它用来指定新项目或行在该对象中的位置。对于 ListBox 或 ComboBox 控件的首项,或者对于 MS Flex Grid 控件的首行,index 为 0。

说明

如果所给出的 index 值有效,则 item 将放置在 object 中相应的位置。如果省略 index,当 Sorted 属性设置为 True 时,item 将添加到恰当的排序位置,当 Sorted 属性设置为 False 时, item 将添加到列表的结尾。

绑定到 Data 控件的 ListBox 或 ComboBox 控件不支持 AddItem 方法。

Clear 方法(ActiveX 控件)

删除集合中的全部对象。

语法

object.Clear

Object 所在处表示对象表达式,其值是 “应用于”列表中的一个对象。

RemoveItem 方法

用以从 ListBox 或 ComboBox 控件中删除一项,或从 MS Flex Grid 控件中删除一行。不支持命名参数。

语法

object.RemoveItem index

RemoveItem 方法的语法包含下列部分:

部分 描述
object 必需的。一个对象表达式,其值为“应用于”列表中的一个对象。
index 必需的。一个整数,它表示要删除的项或行在对象中的位置。对于 ListBox 或 ComboBox 中的首项或 MS Flex Grid 控件中的首行,index = 0。

说明

被绑定到 Data 控件的 ListBox 或 ComboBox 不支持 RemoveItem 方法。
max笔记

List.Clear 用来清空list

list的各个属性嘛,推荐看MSDN,比任何一个资料都讲得具体,或者在VB窗口中按下F2,看对象浏览器的关于listbox的介绍。

余辉

List1.Clear

相关推荐

VB LISTBOX 详解有哪些?

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", 0List1.AddItem "China", 1End Sub要从列表中删除项目,可使用RemoveItem方法,如要删除列表中的第一个项目,可添加如下代码:Private Sub Command1_Click()List1.RemoveItem 0End 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 Sub Private Sub Command3_Click()Text1.Text = List1.ListIndexEnd SubPrivate Sub Form_Load()List1.AddItem "Germany"List1.AddItem "India"List1.AddItem "France"List1.AddItem "Canada"List1.AddItem "USA"List1.AddItem "Japan", 0R>List1.AddItem "China", 1End Sub Private Sub List1_Click()If List1.Text = "Canada" ThenText1.Text = "Canada have 24 million people."End IfEnd SubListCount 返回列表框中项目的总数,只在运行时可用。例:Private Sub Command2_Click()Text1.Text = "You have" & List1.ListCount & "_entrifs lister"End Sub ListIndex 返回在列表框中当前选定项目的位置,只在运行时可用。未选定任何项目时,其值为-l。例:Private Sub Command3_Click()Text1.Text = List1.ListIndexEnd Sub Text 存放当前在列表框中选定的项目,即List(ListIndex)的值。例:Private Sub List1_Click()If List1.Text = "Canada" ThenText1.Text = "Canada have 24 million people."End IfEnd Sub Columns 指定列表框中的列数。其值为0时,列表框以垂直滚动的单列方式显示;为l时,列表框以水平滚动的单列方式显示;大于l时,列表框以水平滚动的多列方式显示。 Option ExplicitPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To Screen.FontCount - 1List1.AddItem Screen.Fonts(i)"“Columns”属性0List2.AddItem Screen.Fonts(i)"“Columns”属性1Next iEnd 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
2023-08-16 05:07:211

listBox和ComboBox控件的相同点和不同点?

区别倒是不大,操作j基本相符。区别大部分在外观上,commbox占地小 比较实惠;listbox比较直观 但是占地很大。Combobox是ListBox和Edit两者的结合。1、listBox列表框(ListBox)用于提供一组条目(数据项),用户可以用鼠标选择其中一个或者多个条目,但是不能直接编辑列表框的数据。当列表框不能同时显示所有项目时候,他将自动添加滚动条,使用户可以滚动查阅所有选项。2、ComboBoxhwndCtl为此组合框的句柄,lpsz为需要添加的字符串,组合框不能直接通过id添加内容,所以需要得到这个控件的句柄,还得使用GetDlgItem()函数。
2023-08-16 05:07:281

excel vba 窗体中listbox用法

1、首先需要打开Excel的表格,如图所示,点击下面的文件1,鼠标右键单击选择查看代码。2、然后就是进入代码页面,可以看到页面上现在的代码。3、然后接下来就是需要用listbox用法,如图所示,输入Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2),回车。4、最后,再返回到页面上,如图所示,双击一下表格就可以看到数字了,listbox用法成功。
2023-08-16 05:07:381

excel vba 窗体中listbox用法

首先需要打开Excel的表格,如图所示,点击下面的文件1,鼠标右键单击选择查看代码。2、然后就是进入代码页面,可以看到页面上现在的代码。3、然后接下来就是需要用listbox用法,如图所示,输入Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2),回车。4、最后,再返回到页面上,双击一下表格就可以看到数字了,listbox用法成功。
2023-08-16 05:08:188

c#设置listbox显示在前端

显示在最前端。ListBox是WinForm中的 列表 控件,它提供了一个项目列表(一组数据项),用户可以选择一个或者多个条目,当列表项目过多时,ListBox会自动添加滚动条,使用户可以滚动查阅所有选项。ListBox可以预先设定列表内容,也可以绑定其他控件或数据库,自动更新条目,把数据逐一显示出来。
2023-08-16 05:11:021

listbox的值怎么获取vba

vba窗体中如何获取列表框listbox1选中行的值提取出来,这决于您的列表框是多列还是单列。如果单列列表框的数据实际上是一维数组,则可以使用工作表函数transform导入文本框。经过三次转换后,可以将其转换为一维数组,然后使用join函数将其合并并写入文本框。多列列表框是二维数组。编写一个循环来读取列表框中的数据,然后将其写入文本框这是一个单列数据示例和一个多列数据示例。如果listbox是多列的情况下,将listbox.column属性看作一个二维数组使用,比如获取第一行第一列的值 listbox.column(0,0),单列就是一维数组。或者定义一个variant型变量,然后将listbox.list赋值给它,也会得到一个数组。
2023-08-16 05:11:161

Word VBA里面的ListBox怎么设置?

用listbox控件的ColumnCount 属性设置有多少列 列号从0开始x0dx0a可以直接在控件属性页面设置,x0dx0a也可以用代码设置例如:listbox1.ColumnCount = 3x0dx0a列宽用ColumnWidths 属性来控制 每列列宽的数值用分号 (;) 分隔x0dx0a例如:90;72;90x0dx0a默认的列宽设置单位是磅x0dx0a若要指定其他度量单位,则需将此单位作为值的一部分x0dx0a例如:2 cm;1cm;3 cm x0dx0a第一列为 2 厘米,第二列为 1 厘米,第三列为 3 厘米
2023-08-16 05:11:231

VB里面的listBox控件怎么用啊?

listBox是用来显示列表数据的控件他的主要属性如下:设已知控件为list1list1.list为列表中显示的相关数据list1.Backcolor为列表的背景颜色list1.Forecolor为他的字体颜色list1.front为他的字体list1.style为控件的选中格式(0为默认,1为可以在其上打对号)当要向其中加入字符窜时可以用这个命令List1.AddItem"xxx",indexxxx为欲加入的字符,index为加入字符的位置(第几行)删除其中的字符窜命令为:list1.RemoveItemindexindex为已知欲删除行数。基本的就这些了。。。。。。。。
2023-08-16 05:11:331

C#如何给listbox中添加值

string content = txtName.Text + " " + txtStyle.Text;lstContent.Items.Add(content);txtName 是 物品名称文本框(textbox)txtStyle 是 物品样式文本框(textbox)lstContent 是 ListBox
2023-08-16 05:11:522

怎么用c#语句向一个listbox表中写入数据?

首先使用listBox1.Items.Clear();清空控件原有数据。然后使用 listBox1.Items.Add方法逐项添加数据。代码放入窗体Load事件中。外面开始的时候加上DataTable dt=null;然后//这里myDataReader.Fill(dt);if(dt!=null&&dt.rows.count>0){for(int i=;i<dt.rows.count;i++){listBox1.items.add(dt.rows[0].ToString());}}ListBox控件显示较长的选项列表,用户可从中选择一项或多项。如果项总数超出可以显示的项数,则自动向ListBox控件添加滚动条。ListBox控件列表中的每个元素称为项。
2023-08-16 05:12:001

VBA中如何使用ListBox控件呢?

在工具 选择附加控件 选中Microsoft forms 2.0 listbox
2023-08-16 05:12:103

VB Listbox添加项

用Ctrl+Enter输入多项 在程序中的话用List1.Additem "内容" 方法
2023-08-16 05:12:212

c#如何获取listbox中项的值

如果是第三行,那么索引就是2,第一行从零开始计算。stringstr=ListBox1.Items[2].Text;//这样就可以获取到第三行的数据。
2023-08-16 05:12:313

VB里如何逐行读取listbox中的数据

Private Sub Form_Load()For i = 0 To 4List1.AddItem iNext iEnd SubPrivate Sub List1_Click()Select Case List1.ListIndexCase List1.ListIndex Text1(List1.ListIndex).Text = List1.List(List1.ListIndex)End SelectEnd Sub
2023-08-16 05:12:415

C# 如何清空listbox里的值

listbox.Clear();
2023-08-16 05:13:065

怎么把textbox里的数据移动到listbox

1、定义一个变量,根据TextBox数据的数值来定变量类型。2、在把变量复制到ListBox的ADD里面就可以了。比如:stringstr=this.textBox1.Text.ToString();this.listBox1.Items.Add(str);输入的是字符型的数据格式,所以定义的是字符行,复制到Items.Add里面就可以显示了。
2023-08-16 05:13:331

vb 中listbox 中如何输入文字

用ListView请采纳。。。。
2023-08-16 05:13:432

C#listBox赋值给textbox

private void listBox1_SelectedIndexChanged(object sender, EventArgs e) { if(this.listBox1.SelectedIndex!=-1) //必要 this.textBox1.Text = this.listBox1.SelectedItem.ToString(); } private void button4_Click(object sender, EventArgs e) { this.listBox1.Items[this.listBox1.SelectedIndex] = this.textBox1.Text; }另外,站长团上有产品团购,便宜有保证
2023-08-16 05:14:024

vc中listbox控件为什么不能横滚动 vc/mfc / 基础类

参考:VC ListBox列表框实现自动水平滚动功能
2023-08-16 05:14:102

问几个关于VB里listbox filelistbox的操作问题 本人菜鸟

Private Sub Command1_Click()Open App.Path & " est.txt" For Input As #1Do While Not EOF(1)Line Input #1, tempList1.AddItem tempLoopClose #1End SubPrivate Sub File1_DblClick()On Error GoTo err Picture1.Picture = LoadPicture(File1.Path & "" & File1.List(File1.ListIndex)) List1.AddItem File1.List(File1.ListIndex)err:End SubPrivate Sub Form_Load() File1.Path = App.Path "本程序所在目录End SubPrivate Sub List1_DblClick() List1.RemoveItem List1.ListIndexEnd Sub
2023-08-16 05:14:172

DELPHI中如何将数据库中数据显示在LISTBOX中?

上面的代码够多了,不多说了。
2023-08-16 05:14:344

VB的listbox控件怎么使用

我们昨天ASP.NET上机课,就是讲的这个,这样吧,推荐一个视频教程给你,北大青鸟的ASP.NET视频教程,你去用电炉下载,里面有这个的讲解,
2023-08-16 05:14:432

如何使用delphi中用listbox控件实现多列显示

用listview!!!
2023-08-16 05:14:512

C#listbox中将数据写入到txt中

其实很简单的楼主,首先引入System. io你在一个按钮的点击事件中写如下代码哈 StreamWriter writer = new StreamWriter(@"F:123.txt", true);// 前面的@是告诉编译器后面的字符串是表示地址 for (int i = 0; i < listBox1.Items.Count;i++ )//循环遍历listbox的所有items哈 writer.Write(listBox1.Items[0].ToString());//将每一个item写进文件 writer.Close();//记得最后要关闭哦!释放资源 祝你成功哈
2023-08-16 05:14:591

VB的listbox如何实现自动滚动?

或者使用API函数来实现。
2023-08-16 05:15:213

C#的listbox控件怎么动态增加文本

用 集合 或者数组实现啊。。
2023-08-16 05:15:433

C#:把一个listBox中的一项移到另一listBox中如何实现?

dodragdrop(拼些的可能不对)事件,你上网搜用法,我就不多说了
2023-08-16 05:15:533

delphi listbox的用法

1 从listbox第一个项目中拷贝字符串,从第what开始,第一个项目长度减掉(what+1)结束2 从listbox选中的项目目中拷贝字符串,从第what+2开始,选中的项目长度减掉(what+1)结束
2023-08-16 05:16:062

vb中listbox中列表为多行内容时如果全选?

只要设置ListIndex的中的序号就行了 ,序号代表选项。
2023-08-16 05:16:162

c# listbox 显示问题,怎么整齐显示。

listbox 不就是左边对齐的吗?
2023-08-16 05:16:242

vb中如何给listbox(列表框)添加编号

由于list是但列数据表格,所以你的要求其实用grid之类的是最容易实现的。用list也可以实现,但需要用代码软实现。在窗体上添加1个ListBox,1个TextBOX,3个CommandButton控件。把ListBox的Sorted属性改为True。该属性为让ListBox控件可以自动按字母排序。由于Sorted属性,所以要把序号用00占位,否则排序结果将为1、10、100、11、12……然后粘贴如下代码:Private Sub Command1_Click()On Error Resume Next "添加一个新信息 Me.List1.AddItem Right("00" & Me.List1.ListCount + 1, 3) & " " & Me.Text1.Text "如果要插入在数据中则使用以下代码,但需要再建立一个text来写插入的序号,即将Tmp替换成新text的值 "Dim Tmp As Integer "Tmp = 10 "Tmp-1是将序号10变成列表里的第9行,因为list是从0开始的. "Me.List1.AddItem Right("00" & Tmp, 3) & " " & Me.Text1.Text, Tmp - 1 "For i = Tmp To Me.List1.ListCount - 1 " DoEvents " Me.List1.List(i) = Right("00" & i + 1, 3) & " " & Right(Me.List1.List(i), Len(Me.List1.List(i)) - InStr(Me.List1.List(i), " ") - 2) "Next "将最后一列数据变更为最大的数字 "Me.List1.List(Me.List1.ListCount - 1) = Right("00" & Me.List1.ListCount, 3) & " " & Right(Me.List1.List(Me.List1.ListCount - 1), Len(Me.List1.List(Me.List1.ListCount - 1)) - InStr(Me.List1.List(Me.List1.ListCount - 1), " ") - 2)End SubPrivate Sub Command2_Click()On Error Resume Next "修改信息 Me.List1.List(Me.Text1.Tag) = Right("00" & Me.Text1.Tag + 1, 3) & " " & Me.Text1.TextEnd SubPrivate Sub Command3_Click()On Error Resume Next "删除信息 For i = CInt(Me.Text1.Tag) To Me.List1.ListCount - 1 DoEvents Me.List1.List(i) = Right("00" & i + 1, 3) & " " & Right(Me.List1.List(i + 1), Len(Me.List1.List(i + 1)) - InStr(Me.List1.List(i + 1), " ") - 2) Next "删除最后一条数据 Me.List1.RemoveItem (Me.List1.ListCount - 1) "由于是用list做序号,所以无法再使用RemoveItem方法 "Me.List1.RemoveItem (Me.Text1.Tag)End SubPrivate Sub Form_Load()"这个地方如果是1000,就要将 Right("00" & i, 3) 修改成 Right("000" & i, 4)"最大数是多少就要修改下 For i = 1 To 100 Me.List1.AddItem Right("00" & i, 3) & " XXX" & i Next Me.Command1.Caption = "添加" Me.Command2.Caption = "修改" Me.Command3.Caption = "删除"End SubPrivate Sub List1_Click() "将列表里的信息去掉序号后显示在文本中 Me.Text1.Text = Right(Me.List1.Text, Len(Me.List1.Text) - InStr(Me.List1.Text, " ") - 2) "将序列号保存在Text的Tag属性中 Me.Text1.Tag = Me.List1.ListIndexEnd Sub
2023-08-16 05:16:341

C++ LISTBOX具体用法

listbox.add("内容");
2023-08-16 05:16:411

c#中如何获取listbox的多选的值(实际值ValueMembet)

ListBox.SelectedItems
2023-08-16 05:16:492

在C#中,怎样遍历ListBox所有项的值

string s;//强制将listbox中的所有项转化为String并遍历foreach (var str in listBox1.Items.Cast<string>()) {s = s + str ; }
2023-08-16 05:16:561

VB编程如何将listbox中选中的多个选项添加至文本输入框?

假定文本框在Form1,列表框在Form2,则以下代码放在Form2:Private Sub List1_Click()Dim s As String, i As IntegerFor i = 0 To List1.ListCount - 1 If List1.Selected(i) Then If s <> "" Then s = s & "," s = s & List1.List(i) End IfNextobj.Text = sEnd Sub以下代码放在Form1:Private Sub Command1_Click() "第一个文本框后面的+按钮Set Obj = Text1Form2.ShowEnd SubPrivate Sub Command2_Click() "第二个文本框后面的+按钮Set Obj = Text2Form2.ShowEnd Sub以下代码放在公共模块(Module)文件:Public obj As Object
2023-08-16 05:17:041

VB LISTBOX 详解有哪些?

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", 0List1.AddItem "China", 1End Sub要从列表中删除项目,可使用RemoveItem方法,如要删除列表中的第一个项目,可添加如下代码:Private Sub Command1_Click()List1.RemoveItem 0End 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 Sub Private Sub Command3_Click()Text1.Text = List1.ListIndexEnd SubPrivate Sub Form_Load()List1.AddItem "Germany"List1.AddItem "India"List1.AddItem "France"List1.AddItem "Canada"List1.AddItem "USA"List1.AddItem "Japan", 0R>List1.AddItem "China", 1End Sub Private Sub List1_Click()If List1.Text = "Canada" ThenText1.Text = "Canada have 24 million people."End IfEnd SubListCount 返回列表框中项目的总数,只在运行时可用。例:Private Sub Command2_Click()Text1.Text = "You have" & List1.ListCount & "_entrifs lister"End Sub ListIndex 返回在列表框中当前选定项目的位置,只在运行时可用。未选定任何项目时,其值为-l。例:Private Sub Command3_Click()Text1.Text = List1.ListIndexEnd Sub Text 存放当前在列表框中选定的项目,即List(ListIndex)的值。例:Private Sub List1_Click()If List1.Text = "Canada" ThenText1.Text = "Canada have 24 million people."End IfEnd Sub Columns 指定列表框中的列数。其值为0时,列表框以垂直滚动的单列方式显示;为l时,列表框以水平滚动的单列方式显示;大于l时,列表框以水平滚动的多列方式显示。 Option ExplicitPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To Screen.FontCount - 1List1.AddItem Screen.Fonts(i)"“Columns”属性0List2.AddItem Screen.Fonts(i)"“Columns”属性1Next iEnd 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
2023-08-16 05:17:231

listBox和ComboBox控件的相同点和不同点?

区别倒是不大,操作j基本相符区别大部分在外观上commbox占地小 比较实惠listbox比较直观 但是占地很大Combobox是ListBox和Edit两者的结合
2023-08-16 05:17:312

vba设置listbox框表头名称

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

VB LISTBOX 详解

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", 0List1.AddItem "China", 1End Sub要从列表中删除项目,可使用RemoveItem方法,如要删除列表中的第一个项目,可添加如下代码:Private Sub Command1_Click()List1.RemoveItem 0End 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 Sub Private Sub Command3_Click()Text1.Text = List1.ListIndexEnd SubPrivate Sub Form_Load()List1.AddItem "Germany"List1.AddItem "India"List1.AddItem "France"List1.AddItem "Canada"List1.AddItem "USA"List1.AddItem "Japan", 0R>List1.AddItem "China", 1End Sub Private Sub List1_Click()If List1.Text = "Canada" ThenText1.Text = "Canada have 24 million people."End IfEnd SubListCount 返回列表框中项目的总数,只在运行时可用。例:Private Sub Command2_Click()Text1.Text = "You have" & List1.ListCount & "_entrifs lister"End Sub ListIndex 返回在列表框中当前选定项目的位置,只在运行时可用。未选定任何项目时,其值为-l。例:Private Sub Command3_Click()Text1.Text = List1.ListIndexEnd Sub Text 存放当前在列表框中选定的项目,即List(ListIndex)的值。例:Private Sub List1_Click()If List1.Text = "Canada" ThenText1.Text = "Canada have 24 million people."End IfEnd Sub Columns 指定列表框中的列数。其值为0时,列表框以垂直滚动的单列方式显示;为l时,列表框以水平滚动的单列方式显示;大于l时,列表框以水平滚动的多列方式显示。 Option ExplicitPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To Screen.FontCount - 1List1.AddItem Screen.Fonts(i)"“Columns”属性0List2.AddItem Screen.Fonts(i)"“Columns”属性1Next iEnd 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
2023-08-16 05:17:491

VB里面的listBox控件怎么用啊?

listBox是用来显示列表数据的控件他的主要属性如下:设已知控件为list1list1.list为列表中显示的相关数据list1.Backcolor为列表的背景颜色list1.Forecolor为他的字体颜色list1.front为他的字体list1.style为控件的选中格式(0为默认,1为可以在其上打对号)当要向其中加入字符窜时可以用这个命令List1.AddItem "xxx", indexxxx为欲加入的字符,index为加入字符的位置(第几行)删除其中的字符窜命令为:list1.RemoveItem indexindex为已知欲删除行数。基本的就这些了。。。。。。。。
2023-08-16 05:17:591

vba中怎么给listbox控件绑定excel里面的数据

具体说来 。。。。
2023-08-16 05:18:073

VBA 设计界面如何实现LIST控件中输入字母后动态显示备选项。

ListBox 控件显示项目列表,从其中可以选择一项或多项。如果项目总数超过了可显示的项目数,就自动在 ListBox 控件上添加滚动条。如果未选定项目,则 ListIndex 属性值是 -1。列表的第一项是 ListIndex 0,ListCount 属性值总是比最大的 ListIndex 值大 1。语法ListBox说明使用 AddItem 或者 RemoveItem 方法可以添加或者删除 ListBox 控件中的项目。对 List、ListCount 和 ListIndex 属性进行设置就可以访问 ListBox 中的项目。也可以在设计时使用 List 属性在列表中增加项目。
2023-08-16 05:18:352

VB用LISTBOX列出数据库的所有表名

Dim AdoRecordset2 As ADODB.RecordsetPrivate Sub Form_Load()call Refreshdata2()End SubPrivate Sub Refreshdata2()Dim Rs_str As StringSet AdoRecordset2 = New ADODB.RecordsetRs_str = "select id,name form sysobjects where type="u""connstrIf AdoRecordset2.State = adStateOpen Then AdoRecordset2.CloseEnd IfWith AdoRecordset2Set .ActiveConnection = adoConnection .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open Rs_strEnd WithSet DataCombo1.RowSource = AdoRecordset2DataCombo1.BoundColumn = AdoRecordset2.Fields(0).NameDataCombo1.ListField = AdoRecordset2.Fields(1).NameIf Not AdoRecordset2.BOF And Not AdoRecordset2.EOF Then DataCombo1.Text = AdoRecordset2.Fields(1)End IfEnd SubPublic Sub connstr()‘连接数据库语句,此处略……End Sub
2023-08-16 05:18:595

vb中双击listbox中一项使其在文本框中显示的程序

Private Sub List1_DblClick()Text1.Text = List1.TextEnd Sub
2023-08-16 05:19:371

vblistbox赋值方法

vblistbox赋值方法如下:1、在打开的软件中,新建一个WPF,添加一个listBox。2、点击编辑项,在打开的编辑窗口中,输入内容,点击确定。3、这时就可以看到listBox中就有内容了,赋值完成。
2023-08-16 05:19:511

vblistbox中添加一条记录

你想问的是vblistbox中如何添加一条记录吧?点击右键选择添加。鼠标挪到所要添加的位置点击右键选择添加就可以插入新的一行代码。列表框控件(ListBox)和组合框控件(ComboBox)则有Clear方法,意思是清除项目。这个则是符合现代编程理念的。
2023-08-16 05:19:591

C#中怎么获取ListBox中所有的项

通过循环取: for(int i=0;i<listBox1.Items.Count;i++) { string item = listBox1.Items[i].ToString(); // }
2023-08-16 05:20:071

c#中如何设置listbox各选项中的字体

你是说选中的项变换字体吗? 那个貌似只有自己画
2023-08-16 05:20:172

如何在listbox中显示多列

.NET Framework 类库 ListBox.MultiColumn 属性 获取或设置一个值,该值指示 ListBox 是否支持多列。 属性值 如果 ListBox 支持多个列,则为 true;否则为 false。默认为 false。
2023-08-16 05:20:361

如何用VB的ListBox 控件显示并双击打开word等文档

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: 我有一问题:如何用VB的ListBox(或其它)控件,显示指定的.doc或.xls等文档的链接,双击后就可以用相应的office程序打开这些文件,谢谢! 解析: 可以用 ShellExecute API 来实现当前文件的关联调用,如: " 定义API Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long" 双击打开指定的文件 Private Sub File1_DblClick() Dim strFileName As String strFileName = File1.Path If Right$(strFileName, 1) = "" Then strFileName = strFileName & File1.List(File1.ListIndex) Else strFileName = strFileName & "" & File1.List(File1.ListIndex) End If " 打开 Call ShellExecute(Me.hwnd, "open", strFileName, vbNullString, strFileName, 1) End Sub
2023-08-16 05:20:531