barriers / 阅读 / 详情

vba设置listbox框表头名称

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

相关推荐

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

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

List1.Clear
2023-08-16 05:14:253

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

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