如何在窗体用右键来排序

时　间:2007-11-14 20:20:25
作　者:刘贵平   ID：14  城市：长沙
摘　要:如何在窗体用右键来排序
正　文:

在平台开发软件时,查询排序时一般在查询设计,(ACCESS都差不多是这样的),那如何根据需要排序而排序呢!

其实只要在窗体中加入以下的代码就可以实现,实现步骤如下:

1\新建一个数据库,窗建一个新的窗体,默认属性名称为FORM1

2\在窗体上添加一个LABEL控件,一具MSHFLEXGRID控件和一个ADO控件,此控件都有属于ACTIVEX控件,在基本工具上没有显示,需要添加上去,添加方法如下(选取MICROSOFT HIERARCHICAL FIEXGRID CONTROL 6.0(SP4) (OLEDB)和MICROSOFT ADO DATA CONTROL 6.0(SP4) (OLEDB)),清注意是选中一个时添加到窗体上再添加另一个控件

主要程序如下:

Private Sub Form_Load()
  MSHFlexGrid1.ColWidth(0) = 0
  MSHFlexGrid1.ColWidth(1) = 0
  MSHFlexGrid1.ColWidth(2) = 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 = "不排序"
End Sub
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  On Error Resume Next
   x = MSHFlexGrid1.CellLeft + MSHFlexGrid1.Left
   y = MSHFlexGrid1.CellTop + MSHFlexGrid1.Top
  Text1.Text = MSHFlexGrid1.Col
  PopupMenu file, , x, y
End Sub
Private Sub sort_Click(Index As Integer)
  Select Case 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
  End Select
End Sub