Originariamente inviato da Mirco65
Posso avere un breve esempio per favore ?
Grazie
Cosi' dovrebbe funzionare, ordina in senso crescente se clicchi col tasto sinistro del mouse (al contrario se clicchi con altro tasto del mouse):
codice:
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   Dim r As Integer, c As Integer
   With MSFlexGrid1
      r = .MouseRow
      c = .MouseCol
      If r = 0 Then
         .Col = c
         .Sort = IIf(Button = 1, flexSortGenericAscending, flexSortGenericDescending)
      End If
   End With
End Sub
...magari dovrai adattare le costanti predefinite presenti nel Sort, se la grid contiene numeri...