listbox

滚动条控件不分横向和纵向，只是尺寸决定形状，宽度大于高度就是横向滚动条。

m=10;%行数n=15;%列数A=zeros(m,n); %生成全零矩阵b=randi(m,[1 n]); %生成n个从1到m的随机整数ind=sub2ind([m,n],b,1:n);%形成位置A(ind)=1;%将对应位置变为1

ListView 控件是一种从 ListBox 派生而来的 ItemsControl。 通常，该控件的项是数据集合的成员，并且表示为ListViewItem 对象。ListBox 是一个 ItemsControl，这意味着它可以包含任何类型（如字符串、图像或面板）对象的集合。 有关更多信息，请参见 ItemsControl 类。ListBox 中有多个项可见，这与 ComboBox 不同，后者只有选定项可见，除非 IsDropDownOpen 属性为 true。SelectionMode 属性确定一次是否可选择 ListBox 中的多个项。 wpf没有DataGridView，只有DataGrid。DataGrid 控件提供一种灵活的方式显示一个数据在行和列中。 DataGrid 包括内置列类型和模板列承载的自定义内容。内置行类型包含可用于在单元格值下显示附加内容的下拉详细信息部分。wpf中可以说控件没有明确区分，可以通过修改template修改显示样式。

MessageBox.Show(listBox1.SelectedIndex，listBox1.SelectedItem.Text);

list(1)

Private Sub Command1_Click() If List1.Text = "" Then MsgBox "你还没有选择呢" Exit Sub End If Print List1.TextEnd Sub

listBox1.DataSource

"listbox的MultiSelect设置为1Private Sub Command1_Click()ClsFor i = 1 To List1.ListCount - 1 If List1.Selected(i) = True Then Print List1.List(i) End IfNextEnd Sub

既然是复选框，那肯定就意味着列表框的选项是可以复选的，只要在需要的选项的复选框打勾即可。使用的时候，通过遍历列表框的Selected集合就知道哪些选项被打了勾，比如：For i = 0 To List1.ListCount - 1If List1.Selected(i) Then Print List1.List(i)Next

listBox1.SelectedItem = listBox1.Items[listBox1.Items.Count-1];其实就是当添加了项目以后自动选种最后的项目。它就会自己往下滚了。

listbox 是通过索引号来确定当前的显示的。 比如说 selectIndex=10;textName.text=listbox.text；textID.text=listbox.index；就可以用textbox显示listbox的当前选中的text。另外添加的时候，直接添加名字就可以了，索引号自动加上去的。

在listbox1的SelectedIndexChanged选择事件中写textbox1.Text = listbox1.Text;

//****ListBox邦定多列值函数public void BindListBox(ListBox ltblist,bool IsHeader){ if(IsHeader==true) { ltblist.items.add("======"); } //*****获取数据集 DataSet DSet=GetDataSet(); //*****清空设置 ltbList.Items.clear(); foreach(DataDrow dRow in DSet.Tables[0].rows) { ListItem ltItem=new ListItem(dRow["FirstName"].tostring() + " " + dRow["LastName"].tostring,dRow["ID"].tostring()); //****添加取列表框中 ltblist.items.add(ltItem); }}

用ListBox的Insert方法Insert有两个参数，第一个就是索引，第二个就是你要插入的Item

想问什么？

你说的详细点，什么方面遇到问题了，要是都有问题那就很难帮你了

listbox 必须逐行添加，可以跳列添加。有什么问题好友，我详细给你解答。

Dim sPrivate Sub Form_Click() Dim c As Long c = GetSelCount() If c = 0 Then MsgBox "一个都没选中！" Exit Sub End If If c = 1 Then MsgBox "选中一个！" Else MsgBox "选中了多个！" End IfEnd SubPrivate Sub Form_Load() For i = 0 To 10 List1.AddItem "test" & CStr(i) NextEnd SubFunction GetSelCount() As Long s = "" For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then s = s & " " & CStr(i) End If Next s = Trim(s) If s = "" Then "一个都没选中 GetSelCount = 0 Else s = Split(s) GetSelCount = UBound(s) + 1 End IfEnd Function

新建一个数组，一一对应

给我你的项目看看 1720406057

你试试这个吧··我试验过可以用的··呵呵··Option ExplicitPrivate Sub Command1_Click() List1.List(List1.ListIndex) = Text1End SubPrivate Sub Command2_Click() "这里要把text1的multiline属性设置为trueDim i As IntegerText1 = ""For i = 0 To List1.ListCount - 1 Text1 = Text1 & List1.List(i) & vbCrLfNextEnd SubPrivate Sub Form_Load() List1.ListIndex = 0End SubPrivate Sub List1_Click() Text1 = List1.TextEnd Sub

给我点时间，一定给你个满意的答案！

1.ListBox1.ListIndex=ListBox1.Items.Count-1 直接将当前ListBox1的挑选Index设置为当前ListBox1的items的最后一个索引号。 2.ListBox1.Items.Count-1表示当前Listitem的最后行号，假如listbox有20条记录，那么index值是0-19，所以最后的listbox的item的index号是Items.Count-1由于我没有安装visualstudio的开发环境，具体的属性我记的不太准了，你实验下：ListBox1.ListIndex=ListBox1.Items.Count-1(应该是这个）或者ListBox1.SelectIndex=ListBox1.Items.Count-1。

if (listBox1.Items[i].selected)this.listBox1.Items.RemoveAt(i);} 这样明显有问题 你item里面有10个元素 你删了3个 还有几个? remove 1之后 原来的2就变成了1 原来的1被移除了 你在移除2 就是移除的是3ListBox a1 = new ListBox();object[] selected_objs = new object[a1.SelectedItems.Count];a1.SelectedItems.CopyTo(selected_objs, 0);foreach (object oval in selected_objs){a1.Items.Remove(oval);}

end if

你要怎么添加？textbox里换行的话 listbox也要换行吗？，还是将textbox里的所有文本直接添加到listbox的第一行呢?

ListBoxThis is a regular listbox control. It enables the user to select a value of a property from a pre-authored list of choices. This control supports only single select listboxes. The possible values are read from the Listbox Table. Note that the string displayed is not necessarily the same as the value that the user is choosing. If the control is created with the Sorted, the items are listed according to the Ordering column of the table. If the style bit is not set, the column is ignored.ListBox 控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox 控件上添加滚动条。ListViewThe ListView control displays items using one of four different views. You can arrange items into columns with or without column headings as well as display accompanying icons and text.ListView 控件可使用四种不同视图显示项目。通过此控件，可将项目组成带有或不带有列标头的列，并显示伴随的图标和文本。 ListView 控件是 Mscomctl.ocx 文件中一组 ActiveX 控件的一部分。若要在应用程序中使用 ListView 控件，则必须将 Mscomctl.ocx 文件添加到工程中。当发行应用程序时，请将 Mscomctl.ocx 文件安装到用户的 Microsoft Windows System 或 System32 目录下。

　　在一个点对点文件传输的项目中 我需要显示文件传输的实时信息 传输的文件列表和当前传输的文件 当时我想到了用ListBox 但是但我用了ListBox后 我发现它不能改变控件中文本想的颜色 于是我就想扩展一下ListBox控件 ListBoxEx 　　我的目标是给空间加上图标 还要能时时改变控件文本颜色 于是从ListBox派生类 　　public class ListBoxEx : ListBox {…} 　　为了操作方便我为ListBoxEx的每一项设计专门的类ListBoxExItem 　　public class ListBoxExItem {…} 　　为了保持我这个控件与WinForm的标准控件的操作借口一致 我又重新设计了两个集合类: 　　public class ListBoxExItemCollection : IList ICollection IEnumerator {}//这个类相对于标准ListBox中的ObjectCollection 这个类作为ListBoxEx中的Items属性的类型 　　public class SelectedListBoxExItemCollection : : IList ICollection IEnumerator{}//这个类相对于标准ListBox中的SelectedObjectCollection 这个类作为ListBoxEx中的SelectedItems属性的类型 　　下面看两个集合类的实现 　　ListBoxExItemCollection的实现 为了做到对集合(Items)的操作能够及时反映到ListBoxEx的控件中所以 此类只是对ListBox中Items(ObjectCollection类型)作了一层包装 就是把ListBox中Items属性的所有方法的只要是object类型的参数都转换成ListBoxExItem 比如: 　　public void Remove(ListBoxExItem item){　this _Items Remove(item); //_Items为ObjectCollection类型} 　　public void Insert(int index ListBoxExItem item){　this _Items Insert(index item);} 　　public int Add(ListBoxExItem item){　return this _Items Add(item);} 　　由上可知 ListBoxExItemCollection中有一个构造函数来传递ListBox中的Items对象 　　private ObjectCollection _Items; 　　public ListBoxExItemCollection(ObjectCollection baseItems){　this _Items = baseItems;} 　　而SelectedListBoxExItemCollection类的实现也用同样的方法 只不过是对SelectedObjectCollection包装罢了 　　集合实现后 再来看ListBoxExItem的实现 　　为了使它支持图标和多种颜色添加如下成员　 　　private int _ImageIndex; 　　public int ImageIndex{　get { return this _ImageIndex; }　set { this _ImageIndex = value;}} 　　private Color _ForeColor; 　　public Color ForeColor{　get{ return this _ForeColor;}　set　{　　this _ForeColor = value;　　this Parent Invalidate();　}} 　　当然还有 　　private string _Text; 　　public string Text{　get { return this _Text; }　set { this _Text = value; }} 　　为了控件能正确显示此项的文本 还必须重写ToString()方法 　　public override string ToString(){　return this _Text;} 　　再看ListBoxEx的实现: 　　为了使控件能够自我绘制 所以 DrawMode = DrawMode OwnerDrawFixed; 　　为了覆盖基类的Items等相关属性添加 　　 　　private ListBoxExItemCollection _Items; //在构造函数中创建 　　同时还需要重写属性Items 　　new public ListBoxExItemCollection Items{　get　{　　return this _Items;　}} 　　new public ListBoxExItem SelectedItem //强制转换为ListBoxExItem{　get{ return base SelectedItem as ListBoxExItem;}　set{ base SelectedItem = value;}} 　　new public SelectedListBoxExItemCollection SelectedItems //重新包装SelectedItems{　get　{　　return new SelectedListBoxExItemCollection(base SelectedItems);　}} 　　为了支持图标 添加一个图像列表imagelist 　　private ImageList imageList; 　　public ImageList ImageList{　get { return this imageList; }　set　{　　this imageList = value;　　this Invalidate();//图像列表改变后马上更新控件　}} 　　而此控件的核心却在一个方法OnDrawItem 这个方法每当控件的项需要重绘时就被调用 　　 　　protected override void OnDrawItem(System Windows Forms DrawItemEventArgs pe){　pe DrawBackground(); //画背景　pe DrawFocusRectangle(); //画边框　Rectangle bounds = pe Bounds; 　　// Check whether the index is valid 　　if(pe Index >= && pe Index < base Items Count){　ListBoxExItem item = this Items[pe Index]; //取得需要绘制项的引用　int iOffset = ; 　　// If the image list is present and the image index is set draw the image 　　if(this imageList != null)　{　　if (item ImageIndex > && item ImageIndex < this imageList Images Count)　　{　　　 this imageList Draw(pe Graphics bounds Left bounds Top bounds Height bounds Height item ImageIndex); //绘制图标　　}　　iOffset += bounds Height;//this imageList ImageSize Width;　} 　　// Draw item text 　　pe Graphics DrawString(item Text pe Font new SolidBrush(item ForeColor) bounds Left + iOffset bounds Top); //根据项的颜色绘制文本 　　}　base OnDrawItem(pe);　}} lishixinzhi/Article/program/net/201311/11713

列表框 你说的不详细

亲，在VB6或VBA中，listbox控件的行间距是无法调节的。不过，你可以通过调节字体、字号，间接达到调整行高的目的。

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: 我有一问题：如何用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

.NET Framework 类库 ListBox.MultiColumn 属性 获取或设置一个值，该值指示 ListBox 是否支持多列。 属性值 如果 ListBox 支持多个列，则为 true；否则为 false。默认为 false。

你是说选中的项变换字体吗？ 那个貌似只有自己画

通过循环取： for(int i=0;i<listBox1.Items.Count;i++) { string item = listBox1.Items[i].ToString(); // }

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

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

Private Sub List1_DblClick()Text1.Text = List1.TextEnd Sub

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

具体说来 。。。。

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

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

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

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

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

假定文本框在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

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

ListBox.SelectedItems

listbox.add("内容");

由于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

listbox 不就是左边对齐的吗？

只要设置ListIndex的中的序号就行了 ，序号代表选项。

1 从listbox第一个项目中拷贝字符串，从第what开始，第一个项目长度减掉（what+1）结束2 从listbox选中的项目目中拷贝字符串，从第what+2开始，选中的项目长度减掉（what+1）结束

dodragdrop（拼些的可能不对）事件，你上网搜用法，我就不多说了

用 集合 或者数组实现啊。。

或者使用API函数来实现。

其实很简单的楼主，首先引入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();//记得最后要关闭哦！释放资源 祝你成功哈

用listview!!!

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

上面的代码够多了，不多说了。

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

参考：VC ListBox列表框实现自动水平滚动功能

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; }另外,站长团上有产品团购,便宜有保证

用ListView请采纳。。。。

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

listbox.Clear();

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

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

用Ctrl+Enter输入多项 在程序中的话用List1.Additem "内容" 方法

在工具 选择附加控件 选中Microsoft forms 2.0 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控件列表中的每个元素称为项。

string content = txtName.Text + " " + txtStyle.Text;lstContent.Items.Add(content);txtName 是 物品名称文本框（textbox）txtStyle 是 物品样式文本框（textbox）lstContent 是 ListBox

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

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

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

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

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

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

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

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

你那是按钮吧...就是令这个command1的控件组的第i项不可使用item是项,加i就是第i项