Sujet Précédent Sujet Suivant

Aide sur le SCGrid

Résolu
LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 - 25 mars 2008 à 12:50
LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 - 25 mars 2008 à 13:19
Bonjour,
je viens juste de me convertir sérieusement au SCGrid.
J' en connais quelques propriétés et méthodes, mais apparement , au point ou j' en suis, ce n' est pas encore suffusant.Surtout pour ce que je veux faire.
J' ai donc un SCGrid dont la 2 ième colonne est en mode scTextBox.Lorsque je valide la saisie dans une cellule, je passe,sur la même colonne,  à la ligne suivante.Seulement je suis obligé de clicquer dessus pour pouvoir saisir de nouveau.
Comment passer donc automatiquement en mode edit.
Voilà ou j' en suis :
Private Sub Form_Load()
 With SCGrid1
   .ColMode(1) = scTextBox
   .ColTextAlign(1) = scSingleLine
 End With
End Sub


Private Sub SCGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
 If KeyCode <> vbKeyReturn Then Exit Sub
 With SCGrid1
  If .CurrentRow = .Rows Then Exit Sub
   .CurrentRow = .CurrentRow + 1
   ?...
 End With
End Sub
j' ai fait le tour des propriétés, mais aucune ne marche.


Si quelqu' un pouvait complèter ce brin de code ...
Merci.


PS: si, par la même occasion, quelqu' un pouvait m' orienter vers une documentation , ça serait encore mieux...pour moi

                         
<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.
<hr />


/P>

1 réponse

Réponse 1 / 1
LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 6
25 mars 2008 à 13:19
je viens de trouver le chainon manquant !

Private Sub SCGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
 If KeyCode <> vbKeyReturn Then Exit Sub
 With SCGrid1
  If .CurrentRow = .Rows Then Exit Sub
   .CurrentRow = .CurrentRow + 1
    If .IsEditMode Then .ExitEdit
   .EnterEdit
 End With
End Sub

<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.
<hr />
/PRE>
3
Rejoignez-nous