cs_HERVE1967
Messages postés2Date d'inscriptionvendredi 10 septembre 2004StatutMembreDernière intervention10 septembre 2004
-
10 sept. 2004 à 16:45
Scalpweb
Messages postés1467Date d'inscriptionsamedi 13 mars 2004StatutMembreDernière intervention 5 mai 2010
-
10 sept. 2004 à 18:27
Bonjour à vous toutes et tous,
je m'initie au VB 6.0 par le biais de petites constructions. Malheureusement, comme novice, je rencontre quelques difficultés. Les lignes figurant ci-dessous doivent me permettre de réaliser un petit "cahier" ou agenda. A l'exécution, il me marque qu'un objet est manquant à la première ligne Put #. J'ai beau chercher, je ne situe pas le blocage. Quelqu'un(e) peut-il m'aider ?
Bien cordialement!
Type FICHE
Dim LISTE As String
Dim TITRE As String
Dim ECHEANCE As Date
Dim RAPPELER As Boolean
Dim NOTE As String
End Type
Dim EVENEMENT As FICHE
Private Sub ENREGISTRER_Click()
Dim StrSize As Integer
Dim start_pos As Long
Open "c:\note.xls" For Binary As #1
Put #1, start_pos, EVENEMENT.LISTE
Put #1, , EVENEMENT.TITRE
Put #1, , EVENEMENT.ECHEANCE
Put #1, , EVENEMENT.RAPPELER
StrSize = Len(EVENEMENT.NOTE)
Put #1, , StrSize
Put #1, , EVENEMENT.NOTE
Close "c:\note.xls"
End Sub