Bonjour a tous,
Je voudrais savoir si il existe un moyen de faire clignoter une cellule d'un MSFlexGrid.
Cepandant je ne voudrais pas que mon programme soit bloqué à faire clignoter la cellule.
Merci
Bonjour a tous,
Je voudrais savoir si il existe un moyen de faire clignoter une cellule d'un MSFlexGrid.
Cepandant je ne voudrais pas que mon programme soit bloqué à faire clignoter la cellule.
Merci
avec un timer... et en changeant la couleur de fond ..
et en jouant avec la propriété lostfocus pour arrêter le timerje ne voudrais pas que mon programme soit bloqué à faire clignoter la cellule.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() Dim MemoR As Integer MemoR = MSFlexGrid1.Row 'Memorise ligne MemoC = MSFlexGrid1.Col 'Colonne pour retour MSFlexGrid1.Row = 3 'Se positionne sur MSFlexGrid1.Col = 4 ' Ligne 1, Colonne 1 If MSFlexGrid1.CellBackColor = 0 Then MSFlexGrid1.CellBackColor = RGB(0, 255, 0) Else MSFlexGrid1.CellBackColor = 0 End If MSFlexGrid1.Row = MemoR 'Retour sur position mémorisée MSFlexGrid1.Col = MemoC End Sub
j'ai utilisé cette solution et ca marche , merci beaucoup
Partager