list

perfect competition（PC）是自由贸易，也就是所有的交易都是市场来决定的，比如价钱和生产量monopoly（M）是垄断，也就是整个市场中只有一个producer（生产者），所以价钱和生产量是由这个生产者决定的PC的生产者们进入和离开市场都是很自由的，在PC里面会有很多很多生产者（也就是公司），但是他们都生产相同或者相似的产品。M则相反。PC和M的demand－supply图就不一样。monopolistic competition和oligopoly都介于两者之间oligopoly就是只有几个producermonopolistic competition嚒就是进出市场并不是自由的学经济么？希望能帮到你哟～

oligopoly是寡头垄断市场分为4类完全垄断寡头垄断垄断竞争完全竞争市场你想说的意思，是不是寡头垄断竞争和完全竞争接近，垄断竞争，更趋向于竞争，从而趋向于完全竞争市场，perfect competetion寡头垄断更倾向于垄断，从而完全垄断市场？你要表达的是这个意思么？

很明显子母不同

NOTIFY_HANDLER(IDC_LIST1, NM_CUSTOMDRAW, OnNMCustomdrawList1)LRESULT OnNMCustomdrawList1(int /*idCtrl*/, LPNMHDR pNMHDR, BOOL& /*bHandled*/);LRESULT CMainDlg::OnNMCustomdrawList1(int /*idCtrl*/, LPNMHDR pNMHDR, BOOL& /*bHandled*/){ LPNMLVCUSTOMDRAW pLVNMCD = reinterpret_cast< LPNMLVCUSTOMDRAW>(pNMHDR); int nResult = CDRF_DODEFAULT; if (CDDS_PREPAINT == pLVNMCD->nmcd.dwDrawStage) { nResult = CDRF_NOTIFYITEMDRAW; } else if (CDDS_ITEMPREPAINT == pLVNMCD->nmcd.dwDrawStage) { nResult = CDRF_NOTIFYSUBITEMDRAW; } else if (pLVNMCD->nmcd.dwDrawStage == (CDDS_ITEMPREPAINT|CDDS_SUBITEM)) { //单双行不同颜色 if (pLVNMCD->nmcd.dwItemSpec%2 == 0) { pLVNMCD->clrText = RGB(60, 128, 160); } else { pLVNMCD->clrText = RGB(80, 160, 80); } }return nResult;}

source v. 寻求(尤指供货)的来源 sourcing specialist 就是：采购专员

采购专员

直接用大写的O就可以，很多教材包括Wiki上对Big O notation的介绍都是直接大写的O。

std::list::spliceentire list (1)void splice (iterator position, list& x); single element (2)void splice (iterator position, list& x, iterator i); element range (3)void splice (iterator position, list& x, iterator first, iterator last);Transfer elements from list to listTransfers elements from x into the container, inserting them at position.The first version (1) transfers all the elements of x into the container.The second version (2) transfers only the element pointed by i from x into the container.The third version (3) transfers the range [first,last) from x into the container.翻译：链表拼接。从列表中转移元素列表 将X中元素转移到容器中，在位置positon插入他们。 第一个版本（1）传输X的所有元素插入到容器中。 第二个版本（2）只转让x中由i指出的元素进入容器中。 第三个版本（3）X [first，last）传送范围到容器中。

vant的van-list会出现一进入，调用了两个获取分页的问题，即加载了2页内容。 原因：因为每个item的高度不确定，所以无法计算出具体高度，导致重复调用。 解决：固定每个item的最小高度

1.如果loading为true,onLoad()方法不会执行。反之onLoad()方法会执行。 2.onLoad()方法加载数据时，第一次加载完后(有分页)，设置loading改false才会出发下一次的事件执行 3.初始化数据list时,会默认执行onLoad方法。解决此问题，通过immediate-check属性解决。 5.注意下拉刷新数据的处理，以及搜索框输入值再下拉数据的处理。希望此教程可以帮助到你们。u2764u2764u2764

参考链接网页链接

I will always love you

internationalist是鞋款名称，lunar是指采用的Lunarlon中底

没有现成的，需要自己实现比较规则吧（java是这样的）

需要越狱才可以 你如果想要制作自己的ipa，那么安装的设备必须越狱，因为ipa是有签名的，iOS会在安装时检查签名是否可信，如果正确才可以安装，不正确就无法安装。有唯一一个不越狱安装的办法：如果你有开发者证书的话，用iResign重签ipa即可不...

新建一个类，属性为这两个类的对象，然后用list来装这个新建的类就好了、

predatory：拍乱德特瑞（重音在第一个音节上）。novelist：那、问立死特（第一个字发重音拖一个音节，后四字快速连读）。predator：拍乱德特（重音在第一个音节上）。

请听我的愿望例句:1.Listen to my latest poem.听听我最后的一首诗。

unreal指的是那些根本不存在的东西，而unrealistic只是那些不切实际的，但可以存在的东西

是否是使用了第三方的锁屏程序导致，建议您可以使用自带的锁屏后对比；

你怎么不回去问问店长

或许不可信，别盲目！~

blistex lip medex碧唇代理.很高兴为你解答！如有不懂，请追问。 谢谢！

安装vcredist_x86.exe

import java.io.*;import java.awt.*; // AWT classes for the demo programimport javax.swing.*; // Swing GUI classes for the demo/** * This class contains a useful static method for listing all threads * and threadgroups in the VM. It also has a simple main() method so it * can be run as a standalone program. **/public class ThreadLister { /** Display information about a thread. */ private static void printThreadInfo(PrintWriter out, Thread t, String indent) { if (t == null) return; out.println(indent + "Thread: " + t.getName() + " Priority: " + t.getPriority() + (t.isDaemon()?" Daemon":"") + (t.isAlive()?"":" Not Alive")); } /** Display info about a thread group and its threads and groups */ private static void printGroupInfo(PrintWriter out, ThreadGroup g, String indent) { if (g == null) return; int num_threads = g.activeCount(); int num_groups = g.activeGroupCount(); Thread[] threads = new Thread[num_threads]; ThreadGroup[] groups = new ThreadGroup[num_groups]; g.enumerate(threads, false); g.enumerate(groups, false); out.println(indent + "Thread Group: " + g.getName() + " Max Priority: " + g.getMaxPriority() + (g.isDaemon()?" Daemon":"")); for(int i = 0; i < num_threads; i++) printThreadInfo(out, threads[i], indent + " "); for(int i = 0; i < num_groups; i++) printGroupInfo(out, groups[i], indent + " "); } /** Find the root thread group and list it recursively */ public static void listAllThreads(PrintWriter out) { ThreadGroup current_thread_group; ThreadGroup root_thread_group; ThreadGroup parent; // Get the current thread group current_thread_group = Thread.currentThread().getThreadGroup(); // Now go find the root thread group root_thread_group = current_thread_group; parent = root_thread_group.getParent(); while(parent != null) { root_thread_group = parent; parent = parent.getParent(); } // And list it, recursively printGroupInfo(out, root_thread_group, ""); } /** * The main() method create a simple graphical user interface to display * the threads in. This allows us to see the "event dispatch thread" used * by AWT and Swing. **/ public static void main(String[] args) { // Create a simple Swing GUI JFrame frame = new JFrame("ThreadLister Demo"); JTextArea textarea = new JTextArea(); frame.getContentPane().add(new JScrollPane(textarea), BorderLayout.CENTER); frame.setSize(500, 400); frame.setVisible(true); // Get the threadlisting as a string using a StringWriter stream StringWriter sout = new StringWriter(); // To capture the listing PrintWriter out = new PrintWriter(sout); ThreadLister.listAllThreads(out); // List threads to stream out.close(); String threadListing = sout.toString(); // Get listing as a string // Finally, display the thread listing in the GUI textarea.setText(threadListing); }}

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

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

具体说来 。。。。

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.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函数来实现。