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...