Vb列表框排序问题
只要把列表框的sorted属性设置为True，无论是form load添加，还是设计时添加，都会按字母顺序排列。
最简单的就是设置 List2.Sorted = True 直接拷贝list1内容到list2就行了 由小到大排序 想反过来就逆序拷贝
Private Sub Command1_Click()Dim i As Integer, j As Integer
For i = 0 To List1.ListCount - 1
For j = 0 To List1.ListCount - 2
If Val(List1.List(j)) > Val(List1.List(j + 1)) Then
T = List1.List(j)
List1.List(j) = List1.List(j + 1)
List1.List(j + 1) = T
End If
Next j
Next i
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
End Sub
以上程序通VB测试。
解决项跟项之间隔一行一个的问题只要把For j = 0 To List2.ListCount - 1改为For j = 0 To List2.ListCount - 2就可以了。
如果是For j = 0 To List2.ListCount - 1，那么当j=List2.ListCount - 1的时候，比较的就是Val(List1.List(List2.ListCount - 1)) 和Val(List1.List(List2.ListCount))，但是根本没有List1.List(List2.ListCount))这项，所以Val(List1.List(List2.ListCount))=0，所以Val(List1.List(j)) > Val(List1.List(j + 1))一定成立（如果你没有输入负数的话）。那么交换的时候就把数字和一个空字符串交换了。不断重复这个过程，就是相当于每两项之间多了一个空字符串（看上去就是隔了一行）。而For j = 0 To List2.ListCount - 2就可以把所有存在的项都比较完，就不会出现上述的情况。
有问题请Hi我。
dreamweaver的列表框A和列表框B的问题
下拉列表的html 代码是 <select> <option>选项内容1<\/option> <option>选项内容2<\/option> <option>选项内容3<\/option> <option>选项内容4<\/option> <\/select> 它是由一个一个的选项组成<option> 选项内容<\/option> ，用css定义每一个option的属性即可，这样还可以定义每一个选项的颜色不同。
易语言,如何将两个列表框中的数据同时加到超级列表框列0列1中
首先， 计次循环，分别取2个列表框的内容， 分为2个变量 a和b。如果是数组变量，那就等计次循环结束后，在用一个计次循环，超级列表框，置标题和表项就可以了、。如果不是数组，就在取列表框内容的时候，就给超级列表框置标题和表项、
vb中两个下拉列表框关联的问题
Dim a, b, c Private Sub Combo1_Click()Combo2.Clear Select Case Combo1.ListIndex Case 0 For i = 0 To UBound(a)Combo2.AddItem a(i)Next Case 1 For i = 0 To UBound(b)Combo2.AddItem b(i)Next Case 2 For i = 0 To UBound(c)Combo2.AddItem c(i)Next End Select Comb...
...A 设置或返回目录列表框的默认目录 B 现实当前驱动器或指定驱动器...
B 显示当前驱动器或指定驱动器上的某目录
列表框中的项目保存在一个数组中,这个数组的名字是( )。
【答案】：C c。【解析】本题考查基本概念，在列表框中List属性表示的=个数组，该数组中保存这列表框中的项目，而Column表示．是列表框中的某=列，Style代表列表框的样式，MultiSelect代表列表框是否可以多选，所以答舞选择C。
【单选题】下面关于列表框和组合框的叙述中,错误的是___。
A）、 在列表框和组合框中都不可以输入新值 （B）、 可以在组合框中输入新值，而列表框不能 （C）、 可以在列表框中输入新值，而组合框不能 （D）、 列表框可以包含一列或几列数据
求教枚举指定窗口并自动刷新易语言代码问题
.版本 2 .局部变量 A, 整数型 .局部变量 B, 文本型 A ＝ 选择列表框1.现行选中项 B ＝ 选择列表框1.取项目文本 (A)选择列表框1.插入项目 (A, B, )选择列表框1.现行选中项 ＝ A
为了使列表框中的项目分为多列显示,需要设置的属性为( )。A.Columns...
【答案】：A A。【解析】Columns属性返回或设置一个值，以决定控件是水平还是垂直滚动以及如何显示列中的项目。Columns属性值勺0时，控件为垂直滚动；Columns属性等于l时，则列表框呈多行多列显示；Columns属性值大于1时，为水平滚动，Columns属性值的数量决定在控件中的可见宽度内显示列的数量。Columns属性...
VFP组合框和列表框
组合框项目：select 列1 from 表 列表框内容：select 列2 from 表 where 列1='组合框选定内容'
易语言超级列表框表项上下移动,序号不变
.版本 2 .支持库 iext .子程序 _上移_被单击 .局部变量 标题A, 文本型 .局部变量 标题B, 文本型 .局部变量 序号 .局部变量 索引, 整数型 索引 ＝ 超级列表框1.现行选中项 .如果真 (索引 ＝ -1 或 索引 ＝ 0)返回 ().如果真结束 标题A ＝ 超级列表框1.取标题 (索引, )序号 ＝ ...
雪龚鱼金： 最简单的就是设置 List2.Sorted = True 直接拷贝list1内容到list2就行了 由小到大排序 想反过来就逆序拷贝
乌鲁木齐市18917389361： vb 如何将组合框中的列表项目排序??? - ？
雪龚鱼金： 你限定了输入100字,无法输入代码.只好提示: 1,用两个循环嵌套,首句写成For i = 0 To List1.ListCount 2,格式同一般排序.List1变量用List1.List(i)表示,如果是数字要用到Val()来转换
乌鲁木齐市18917389361： VB中给列表框中的数字按大小排序、排序时出现把2当成20,把3当成30排序的现象,怎么解决?？
雪龚鱼金： listbox对象的sort是按照字符串来排序的,不是按照值来排序的,字符串中＂3＂ < ＂31＂ 所以排在前面,如果你要按照数值排序,需要用数值方法去手动排序,加百度HI,给你详细说怎么排
乌鲁木齐市18917389361： Vb列表框排序问题 - ？
雪龚鱼金： Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 0 To List1.ListCount - 1 For j = 0 To List1.ListCount - 2 If Val(List1.List(j)) > Val(List1.List(j + 1)) Then T = List1.List(j) List1.List(j) = List1.List(j + 1) List1.List(j + 1) = T End If Next j ...
乌鲁木齐市18917389361： 请问VB系统能不能在列表框中自动实现将项目按字母顺序从大到小排列? - ？
雪龚鱼金： List1.Sorted = True 可以设置每个项目首字母 从小到大排序a-z 倒序的话就得靠你自己另外写代码了
乌鲁木齐市18917389361： vb的数列的排序怎么来理解 - ？
雪龚鱼金： 举个例子:我有5个不同的数字,怎么用VB语言实现从小到大的排序呢?比如:3、15、1、30、30,怎么用VB语言实现排序结果:1、3、15、30、30;另外如果两数字相同,则算一个,怎么实现排序后结果:1、3、15、30答案: 冒泡排序...
乌鲁木齐市18917389361： vb文本框计算排序问题？
雪龚鱼金： Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer Dim myA As Integer, myB As Integer, myC As Integer Dim myOutput(27) As String, myStr As String, myTemp() As String For a = 1 To Len(Text1.Text) myA = ...
乌鲁木齐市18917389361： 请问在VB中怎样将组合框中的选项排序?代码! - ？
雪龚鱼金： 组合框控件有个属性叫做Sorted,将这个属性设为True里面的选项就会自动排序
乌鲁木齐市18917389361： VB中如何对list中数据进行排序 - ？
雪龚鱼金： 加另一个list用于显示结果Dim A() As Integer Private Sub Command1_Click() For j = 1 To List1.ListCountReDim Preserve A(j) As IntegerA(j) = List1.List(j - 1)NextFor i = 1 To List1.ListCount - 1For j = 1 To List1.ListCount - 1If A(j) < A(j + 1) ...
乌鲁木齐市18917389361： 求一个vb按固定顺序排序的方法 - ？
雪龚鱼金： 想到一个方法,可能不是最好的;思路:1,把你要求的顺序,存放到一个数组; Yd(1)=＂王＂,Yd(2)=＂陈＂,Yd(3)=＂李＂,Yd(4)=＂赵＂,Yd(5)=＂张＂,Yd(6)=＂刘＂2,另建一个数组; Nd(1)=＂＂,nd(2)=＂＂,nd(3)=＂＂,nd(4)=＂＂,nd...
