Glissez delpacez dans un flexgrid
Contenu du snippet
Private Sub FlexGrid1_DragDrop(Source As Control, X As Single, Y As Single)
If FlexGrid1.Tag = "" Then Exit Sub
FlexGrid1.Redraw = False
FlexGrid1.ColPosition ( Val(FlexGrid1.Tag)) = FlexGrid1.MouseCol
DoSort
FlexGrid1.Redraw = True
End Sub
---------------------------------------------------------
Sub DoSort()
FlexGrid1.Col = 0
FlexGrid1.ColSel = FlexGrid1.Cols - 1
FlexGrid1.Sort = 1
End Sub
---------------------------------------------------------
Private Sub FlexGrid1_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
FlexGrid1.Tag = ""
If FlexGrid1.MouseRow <> 0 Then Exit Sub
FlexGrid1.Tag = Str (FlexGrid1.MouseCol)
FlexGrid1.Drag 1
End Sub
If FlexGrid1.Tag = "" Then Exit Sub
FlexGrid1.Redraw = False
FlexGrid1.ColPosition ( Val(FlexGrid1.Tag)) = FlexGrid1.MouseCol
DoSort
FlexGrid1.Redraw = True
End Sub
---------------------------------------------------------
Sub DoSort()
FlexGrid1.Col = 0
FlexGrid1.ColSel = FlexGrid1.Cols - 1
FlexGrid1.Sort = 1
End Sub
---------------------------------------------------------
Private Sub FlexGrid1_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
FlexGrid1.Tag = ""
If FlexGrid1.MouseRow <> 0 Then Exit Sub
FlexGrid1.Tag = Str (FlexGrid1.MouseCol)
FlexGrid1.Drag 1
End Sub
A voir également
- Glissez delpacez dans un flexgrid
- Flexgrid vb6 - Forum Visual Basic 6
- MSFlexgrid ✓ - Forum Visual Basic 6
- Flexgrid ✓ - Forum Visual Basic
- Flexgrid ✓ - Forum Visual Basic
- Remplir Flexgrid avec données formatées ✓ - Forum Visual Basic 6
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.