搬家第25天-citectvba设定listview属性，允许鼠标拖拽交换列顺序
listview内容生成后，有时候希望使用过程中能够交换列的顺序，可以设定.allowcolumnorder属性值为true
Sub listviewIniAllowColumnReorder()
Dim i As Integer
main_AN4.View =3 '设置外观为报表形式
main_AN4.GridLines=true '显示网格线
main_AN4.ColumnHeaders.Clear '清楚原有表头
main_AN4.checkboxes=true
main_AN4.AllowcolumnReorder=true
'添加表头
For i=1 To 4
main_AN4.ColumnHeaders.Add
Next
main_AN4.ColumnHeaders(1).width=20
main_AN4.ColumnHeaders(1).text=""
main_AN4.ColumnHeaders(2).width=50
main_AN4.ColumnHeaders(2).alignment=1 '右对齐
main_AN4.ColumnHeaders(2).text="月份"
main_AN4.ColumnHeaders(3).width=200
main_AN4.ColumnHeaders(3).alignment=2 '居中
main_AN4.ColumnHeaders(3).text="第一分厂产量"
main_AN4.ColumnHeaders(4).width=200
main_AN4.ColumnHeaders(4).alignment=0 '左对齐
main_AN4.ColumnHeaders(4).text="第二分厂产量"
'添加表的内容,添加两行
For i=1 To 10
main_AN4.listitems.add
Next
main_AN4.listitems(1).Subitems(1)="1月"
main_AN4.listitems(1).Subitems(2)="11"
main_AN4.listitems(1).Subitems(3)="12"
main_AN4.listitems(2).Subitems(1)="2月"
main_AN4.listitems(2).Subitems(2)="21"
main_AN4.listitems(2).Subitems(3)="22"
main_AN4.listitems(3).Subitems(1)="3月"
main_AN4.listitems(3).Subitems(2)="31"
main_AN4.listitems(3).Subitems(3)="32"
main_AN4.listitems(4).Subitems(1)="4月"
main_AN4.listitems(4).Subitems(2)="41"
main_AN4.listitems(4).Subitems(3)="42"
main_AN4.listitems(5).Subitems(1)="5月"
main_AN4.listitems(5).Subitems(2)="51"
main_AN4.listitems(5).Subitems(3)="52"
main_AN4.listitems(6).Subitems(1)="6月"
main_AN4.listitems(6).Subitems(2)="61"
main_AN4.listitems(6).Subitems(3)="62"
main_AN4.listitems(7).Subitems(1)="7月"
main_AN4.listitems(7).Subitems(2)="71"
main_AN4.listitems(7).Subitems(3)="72"
main_AN4.listitems(8).Subitems(1)="8月"
main_AN4.listitems(8).Subitems(2)="81"
main_AN4.listitems(8).Subitems(3)="82"
main_AN4.listitems(9).Subitems(1)="9月"
main_AN4.listitems(9).Subitems(2)="91"
main_AN4.listitems(9).Subitems(3)="92"
main_AN4.listitems(10).Subitems(1)="10月"
main_AN4.listitems(10).Subitems(2)="101"
main_AN4.listitems(10).Subitems(3)="102"
End Sub
画面上按钮写入一下脚本
civba call listviewIniAllowColumnReorder()
保存编译运行，就能够鼠标拖拽交换列顺序了。
