Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Module.InsertLines, méthode (accès)Module.InsertLines Method (Access)

office 365 dev account|Dernière mise à jour: 14/03/2018
|
2 Collaborateurs

La méthode InsertLines insère une ligne ou un groupe de lignes de code dans un module standard ou un module de classe.The InsertLines method inserts a line or group of lines of code in a standard module or a class module.

SyntaxeSyntax

expression. InsertLines (** Ligne, ** chaîne ** )expression. **InsertLines( ** Line, ** String )

expression Variable qui représente un objet Module .expression A variable that represents a Module object.

ParamètresParameters

NomNameRequis/FacultatifRequired/OptionalType de donnéesData TypeDescriptionDescription
LineLineObligatoireRequiredEntier longLongNuméro de la ligne de début d'insertion.The number of the line at which to begin inserting.
ChaîneStringObligatoireRequiredChaîneStringTexte à insérer dans le module.The text to be inserted into the module.

Valeur renvoyéeReturn Value

NothingNothing

RemarquesRemarks

Pour ajouter plusieurs lignes, incluez la constante intrinsèque vbCrLf au niveau des sauts de ligne souhaités au sein de la chaîne qui compose l’argument de chaîne . Cette constante force un retour chariot et un saut de ligne.To add multiple lines, include the intrinsic constant vbCrLf at the desired line breaks within the string that makes up the string argument. This constant forces a carriage return and line feed.

Lorsque vous utilisez la méthode InsertLines , tout code existant au niveau de la ligne spécifiée par l’argument ligne se déplace vers le bas.When you use the InsertLines method, any existing code at the line specified by the line argument moves down.

Lignes dans un module sont numérotées en commençant par un. Pour déterminer le nombre de lignes dans un module, utilisez la propriété CountOfLines .Lines in a module are numbered beginning with one. To determine the number of lines in a module, use the CountOfLines property.

ExempleExample

L'exemple suivant crée un formulaire, ajoute un bouton de commande et crée une procédure événementielle Clic pour le bouton de commande :The following example creates a new form, adds a command button, and creates a Click event procedure for the command button:

Function ClickEventProc() As Boolean 
 Dim frm As Form, ctl As Control, mdl As Module 
 Dim lngReturn As Long 

 On Error GoTo Error_ClickEventProc 
 ' Create new form. 
 Set frm = CreateForm 
 ' Create command button on form. 
 Set ctl = CreateControl(frm.Name, acCommandButton, , , , _ 
 1000, 1000) 
 ctl.Caption = "Click here" 
 ' Return reference to form module. 
 Set mdl = frm.Module 
 ' Add event procedure. 
 lngReturn = mdl.CreateEventProc("Click", ctl.Name) 
 ' Insert text into body of procedure. 
 mdl.InsertLines lngReturn + 1, vbTab &; "MsgBox ""Way cool!""" 
 ClickEventProc = True 

Exit_ClickEventProc: 
 Exit Function 

Error_ClickEventProc: 
 MsgBox Err &; " :" &; Err.Description 
 ClickEventProc = False 
 Resume Exit_ClickEventProc 
End Function

Voir aussiSee also

ConceptsConcepts

Objet moduleModule Object

© 2018 Microsoft