VB中的控件学习1－－－控件上的动态菜单使用

先建一个菜单，将其INDEX设

    Case   0
     MSHFlexGrid1.sort  =  flexSortGenericAscending
    Case   1
     MSHFlexGrid1.sort  =  flexSortGenericDescending
    Case   2
     MSHFlexGrid1.sort  =  flexSortNumericAscending
    Case   3
     MSHFlexGrid1.sort  =  flexSortNumericDescending
    Case   4
     MSHFlexGrid1.sort  =  flexSortGenericAscending
    Case   5
     MSHFlexGrid1.sort  =  flexSortStringNoCaseAsending
    Case   6
     MSHFlexGrid1.sort  =  flexSortNoCaseDescending
    Case   7
     MSHFlexGrid1.sort  =  flexSortStringAscending
    Case   8
     MSHFlexGrid1.sort  =  flexSortStringDescending
    Case   9
     MSHFlexGrid1.sort  =  flexSortNone

为0
用代码实现：

   Load sort( 1 )
   sort( 1 ).Caption  =   " 一般升序 "
   Load sort( 2 )
   sort( 2 ).Caption  =   " 一般降序 "
   Load sort( 3 )
   sort( 3 ).Caption  =   " 数值升序 "
   Load sort( 4 )
   sort( 4 ).Caption  =   " 数值降序 "
   Load sort( 5 )
   sort( 5 ).Caption  =   " 字符串升序 "
   Load sort( 6 )
   sort( 6 ).Caption  =   " 字符串降序 "
   Load sort( 7 )
   sort( 7 ).Caption  =   " 字符串升序 "
   Load sort( 8 )
   sort( 8 ).Caption  =   " 字符串降序 "
   Load sort( 9 )
   sort( 9 ).Caption  =   " 不排序 "

 这样就生成了菜单，可以用INDEX访问。
下面是关于flexgrid的几种排序