Sauver MSFlex Grid VB6
Résolu
jctgt
-
jctgt Messages postés 57 Date d'inscription Statut Membre Dernière intervention -
jctgt Messages postés 57 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Edith piaf soldat ryan
- Vb6 - Télécharger - Divers Utilitaires
- Montage photo grid - Télécharger - Montage photo
- Photo Grid Collage -Android - Télécharger - Montage photo
- Logiciel photo grid - Télécharger - Montage photo
- Photo Collage Master - Télécharger - Montage photo
5 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 583
bonjour, si tu supprimes le fichier, est-il créé par ce code?
Bonjour,
Je ne comprend pas ce que signifie votre réponse
--
Je ne comprend pas ce que signifie votre réponse
--
Bonjour,,
Non, le sauvetage ne passe pas.
max_row = 0 et max_col = 0
Je les ai modifiés: max_row = 73 et max_col = 13
‘***********************************************************
Private Sub Sauver()
' Save the FlexGrid data.
Dim file_name As String
Dim fnum As Integer
Dim max_row As Integer
Dim max_col As Integer
'Dim L As Integer
Dim C As Integer
file_name = App.Path
If Right$(file_name, 1) <> "\" Then file_name = _
file_name & "\"
file_name = file_name & "tfgBullard.dat"
fnum = FreeFile
Open file_name For Output As fnum
' Save the maximum row and column.
max_row = 73
max_col = 13
Write #fnum, max_row, max_col
For L = 0 To max_row
For C = 0 To max_col
Write #fnum, tfgBullard.TextMatrix(L, C);
Next C
Write #fnum,
Next L
Close fnum
End Sub
Ça fonctionne jusqu’à : Write #fnum, tfgBullard.TextMatrix(L, C);
J’ai l’erreur Run-time 424 Object required
Merci beaucoup pour votre aide
Jean-Claude
--
Non, le sauvetage ne passe pas.
max_row = 0 et max_col = 0
Je les ai modifiés: max_row = 73 et max_col = 13
‘***********************************************************
Private Sub Sauver()
' Save the FlexGrid data.
Dim file_name As String
Dim fnum As Integer
Dim max_row As Integer
Dim max_col As Integer
'Dim L As Integer
Dim C As Integer
file_name = App.Path
If Right$(file_name, 1) <> "\" Then file_name = _
file_name & "\"
file_name = file_name & "tfgBullard.dat"
fnum = FreeFile
Open file_name For Output As fnum
' Save the maximum row and column.
max_row = 73
max_col = 13
Write #fnum, max_row, max_col
For L = 0 To max_row
For C = 0 To max_col
Write #fnum, tfgBullard.TextMatrix(L, C);
Next C
Write #fnum,
Next L
Close fnum
End Sub
Ça fonctionne jusqu’à : Write #fnum, tfgBullard.TextMatrix(L, C);
J’ai l’erreur Run-time 424 Object required
Merci beaucoup pour votre aide
Jean-Claude
--
Bonjour,
Quand vous avez l'erreur, click sur debug si boite erreur, passez le curseur souris sur:
afin de voir le contenu de L,C et
Dans le code que j'ai utilise, il y a une petite difference au niveau ligne/colonne.
et le reste est identique
Quand vous avez l'erreur, click sur debug si boite erreur, passez le curseur souris sur:
tfgBullard.TextMatrix(L, C)
afin de voir le contenu de L,C et
tfgBullard.TextMatrix(L, C)
Dans le code que j'ai utilise, il y a une petite difference au niveau ligne/colonne.
' Save the maximum row and column. max_row = FlexSel.Rows - 1 max_col = FlexSel.Cols - 1
et le reste est identique
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question