Comment ecrire dans un flexgrid

Question

desole de poser une question comme ca
mais ca faut longtemps que je n'en ai plus fais

je vudrai ecrire dans une cased 'un flexgrid

merci d'avance

ShareVB · Answer

salut

tu fais :
'soit
flexgrid.row = taligne
flexgrid.col = tacolonne
flexgrid.text = tontexte 'dans tacolonne de taligne

'soit
flexgrid.textmatrix(taligne,tacolonne) =tontext

voila

ShareVB

satan87 · Answer

merci de cette reponse mais c pas ca
je veux qu'un utilisateur puisse ecrire directement dans un flexgrid
par programmation je sais faire
mais quand je lance le prog le controle est bloque et l'utilisateur ne peut rien y saisir

si tu as la reponse merci de m'aider

merci encore

ShareVB · Answer

salut

saisie d'une valeur : le seul moyen c d'utiliser un textbox par dessus :
http://www.vbfrance.com/article.aspx?ID=8101
http://www.vbfrance.com/article.aspx?ID=5700

voila

ShareVB

otherside25 · Answer

salut,
alors pour écrire directement dans le msflexgrid il faus ajouter le code suivant:

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i, j As Integer
    If Me.MSFlexGrid1.Text <> "" Then
        Select Case KeyCode
            Case 8              'Backspace
                Me.MSFlexGrid1.Text = Left(Me.MSFlexGrid1.Text, Len(Me.MSFlexGrid1.Text) - 1)
            Case 46             'Delete
               For i = MSFlexGrid1.Row To MSFlexGrid1.RowSel
               For j = MSFlexGrid1.col To MSFlexGrid1.ColSel
               Me.MSFlexGrid1.TextMatrix(i, j) = ""
               Next j
               Next i
        End Select
   End If
 End Sub

Private Sub Grid_KeyPress(KeyAscii As Integer)
    
    If KeyAscii > 28 Then           'seulement les caractères gérés par Windows
        
     If KeyAscii = 46 Then
     KeyAscii = 44
     End If
   
       Me.MSFlexGrid1.Text = Me.MSFlexGrid1.Text & Chr(KeyAscii)
    End If
    
  
End Sub

A+

Comment ecrire dans un flexgrid

4 réponses

Discussions similaires