[VB] Automatisation initialisation de donnée ds un type style record

Automatisation initialisation de donnée ds un type style record [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 28-04-2003 à 10:16:39    

Salut,
G un type du style :
 
Public Type Entete
  donne1 as string *4
  donne2 as string *10
...
end type
 
toutes mes données sont des string
 
je voudrais les initialiser automatiquement
G essayé CopyMemory, mais sans succes  :cry:  
kk'1 a des id ?
 
Merci
 :hello:

Reply

Marsh Posté le 28-04-2003 à 10:16:39   

Reply

Marsh Posté le 28-04-2003 à 11:24:21    

C bon G trouvé :)
 


Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Sub FillMemory Lib "kernel32.dll" Alias "RtlFillMemory" (Destination As Any, ByVal Length As Long, ByVal Fill As Byte)
 
Public Sub WriteEntete(Head As Entete, Fichier As TextStream)
Dim S As String
 
    ' allocation de la chaine qui contiendra l'enregistrement
    S = Space(240)
     
    ' copie de l'entête dans un string pour être écris dans le fichier
    CopyMemory ByVal S, Head, 240
    Fichier.WriteLine (S)
End Sub
 
Public Sub InitRecord(Record As Entete)
    ' initialisation de l'enregistrement avec des espaces
    FillMemory Record, 240, 32
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed