Module.InsertLines method (Access) (Método Module.InsertLines [Access])

O método InsertLines insere uma linha ou grupo de linhas de código em um módulo padrão ou um módulo de classe.

Sintaxe

expressão. InsertLines (Linha, Cadeia)

expressão Uma variável que representa um objeto Module .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Line	Obrigatório	Long	O número da linha no qual começar a inserir.
String	Obrigatório	String	O texto a ser inserido no módulo.

Valor de retorno

Nada

Comentários

Para adicionar múltiplas linhas, inclua a constante intrínseca vbCrLf nas quebras de linha pretendidas na cadeia que compõe o argumento Cadeia . Essa constante força um retorno de carro e um avanço de linha.

Quando utiliza o método InsertLines , qualquer código existente na linha especificada pelo argumento Linha move-se para baixo.

Linhas em um módulo são numeradas começando com um. Para determinar o número de linhas em um módulo, use a propriedade CountOfLines.

Exemplo

O exemplo seguinte cria um novo formulário, adiciona um botão de comando e cria um procedimento de evento Clique para o botão de comando.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.