Bonjour tout le monde,
J'ai la structure suivante pour un de mes programmes et j'aimerais savoir combien de Bytes il faut pour écrire un record avec FilePut(f_ng, NG, record).
Voici la structure:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Structure NomGeneral
        Dim NbreRec As Single
        Dim Numéro As Single
        Dim NoAdd As Single
        <VBFixedString(50)> Dim Nom As String
        <VBFixedString(10)> Dim Départ As String
        Dim Slope As Single
        Dim Fixe As Single
        Dim CourseRating As Single
        Dim ParTotal As Single
        Dim Distance() As Integer
        Dim Par() As Integer
        Dim HCP() As Integer
    End Structure
 
    Public NG As NomG
    Public f_NG As Integer
    Public MaxNG As Integer
 
    Public Sub UseStruct()
        ReDim NG.Distance(17)
        ReDim NG.Par(17)
        ReDim NG.HCP(17)
    End Sub
Merci d'avance de votre aide