cs_allfab
Messages postés76Date d'inscriptionmercredi 28 avril 2004StatutMembreDernière intervention25 juillet 2005
-
22 juil. 2005 à 10:04
cs_allfab
Messages postés76Date d'inscriptionmercredi 28 avril 2004StatutMembreDernière intervention25 juillet 2005
-
26 juil. 2005 à 09:37
Bonjour à tous,
J'écris ce message parce que j'ai un petit problème lorsque je saisis
des données dans une mshflexgrid. J'utilise la méthode de placer une
textbox en lieu et place de la case sélectionnée sur la mshflexgrid.
Cette méthode fonctionne très bien du moment où l'on ne touche pas à la
scrollbar de la mshflexgrid. Le problème est que j'ai besoin de bcp de
ligne....et quand je touche à la scrollbar pour avoir accès au ligne du
bas, la surbrillance pour sélectionner la case désiré ne marche plus et
je n'ai pas accès aux cases.
J'ai ces lignes de codes : Avec Panneau = name de ma mshflexgrid.
Private Const COLOR_FIXED As Long = &H524132
Private Const COLOR_BODY As Long = &H705F50
Private Const COLOR_HIGHLIGHT As Long = &HA78500
Private IndexR As Integer
Private IndexC As Integer
Private oldR As Integer
Private oldC As Integer
Private Enum EVT
EVT_CLICK = 1
EVT_TABPRESS = 2
EVT_RETURNPRESS = 3
EVT_ESCAPEPRESS = 4
End Enum
Private Sub Form_Load()
Dim R As Long
oldC = 0
oldR = 1
'Les propriétés suivantes doivent être desactivées
'afin de gérer manuellement la surbrillance
Panneau.HighLight = flexHighlightNever
Panneau.FocusRect = flexFocusNone
'Panneau.ScrollBars = flexScrollBarNone Je neutralise cette fct car je veux plusieurs lignes