Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim A As Integer ' écriture sur la ligne 0 For A = 1 To MSFlexGrid1.Cols MSFlexGrid1.Row = 0 MSFlexGrid1.Col = A MSFlexGrid1.Text = CStr(A) Next A ' écriture sur la col 0 For A = 1 To MSFlexGrid1.Rows MSFlexGrid1.Row = A MSFlexGrid1.Col = 0 MSFlexGrid1.Text = CStr(A) Next A
Dim Ligne, Col As Integer Dim Contenu As String Dim NumFichier As Integer NumFichier = FreeFile() Open ("Tableau.tab") For Output As NumFichier For Ligne = 1 To MSFlexGrid1.Rows For Col = 1 To MSFlexGrid1.Cols MSFlexGrid1.Row = Ligne MSFlexGrid1.Col = Col Contenu = MSFlexGrid1.Text Print #NumFichier, Contenu Next Col Next Ligne Close #NumFichier
Dim Ligne, Col As Integer Dim Contenu As String Dim NumFichier As Integer NumFichier = FreeFile() Open ("Tableau.tab") For Input As NumFichier For Ligne = 1 To MSFlexGrid1.Rows For Col = 1 To MSFlexGrid1.Cols MSFlexGrid1.Row = Ligne MSFlexGrid1.Col = Col Line Input #NumFichier, Contenu MSFlexGrid1.Text = Contenu Next Col Next Ligne Close #NumFichier