Copier un texte "tabul¨¦" dans un msflexGridRésolu

Question

Bonjour, je d¨¦bute en programation et je cherche comment copier un texte "tabul¨¦" (du genre "nom prenom adresse") dans un FlexGrid, sachant qu'a chaque tabulation correspond un saut de colonne. J'arrive ¨¤ ¨¦crire dans le FlexGrid grace a la fonction KeyPress:

Private Sub Grid1_KeyPress(KeyAscii As Integer) If KeyAscii = 9 Then If grid1.Col <> grid1.Cols - 1 Then grid1.Col = grid1.Col + 1 ' A chaque tabulation, on d¨¦cale d'une colonne Exit Sub End If If grid1.Col = grid1.Cols - 1 Then grid1.Col = 0 If grid1.Row <> grid1.Rows - 1 Then grid1.Row = grid1.Row + 1 ' Arriver a la derni¨¨re colonne, on passe a la ligne suivante Exit Sub End If If grid1.Row = grid1.Rows - 1 Then grid1.Row = 0 'Si on arrive ¨¤ la derni¨¨re case du tableau, on repart au d¨¦but Exit Sub End If End If End If grid1.Text = grid1.Text & Chr(KeyAscii) End Sub

Le probl¨¦me c'est que quand je fait CTRL+V pour copier mon texte "tabul¨¦", le caract¨¨re"©Ð " apparait. Merci d'avance.

cs_MPi · Accepted Answer

Salut,


Il y a l'option Clip, mais je pense que tu devras modifier la propriété SelectionMode à FlexSelectionByRow (option 1)


Ensuite, si tu copies avec Ctrl-C et que tu veux coller avec Ctrl-V, il faudra que tu utilises KeyUp de la grille

Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)

    If KeyCode 86 And Shift 2 Then  ' si c'est Ctrl-V

        MSFlexGrid1.Clip = Clipboard.GetText  ' colle le contenu du presse-papier

    End If

End Sub

Tu pourrais aussi le faire avec le texte d'une variable ou d'un
contrôle. Il s'agit simplement de remplacer  Clipboard.GetText par
ce que tu veux.

MPi

altozinzin · Answer

Désolé, le caractère qui apparait n'est pas le bon. C'est une espèce du T minuscule qui apparait.

mortalino · Answer

Salut,

sans garantie, essaie la constante vbTab.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

altozinzin · Answer

Merci mais on s'en sert comment stp?

altozinzin · Answer

Ok, merci pour tout

Copier un texte "tabul¨¦" dans un msflexGrid

5 réponses

Votre réponse

Discussions similaires