Propriedade Module.Lines (Access)
A propriedade Lines retorna uma string que contém o conteúdo de uma linha especificada ou linhas em um módulo padrão ou um módulo de classe. String somente leitura.
Sintaxe
expressão. Linhas (Linha, NumLines)
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 primeira linha a ser retornada. |
| NumLines | Obrigatório | Long | O número de linhas a serem retornadas. |
Comentários
As linhas de um módulo são numeradas a partir de 1. Por exemplo, se você ler a propriedade Lines com um valor de 1 para o argumento Linha e 1 para o argumento NumLines , a propriedade Lines retornará uma cadeia de caracteres que contém o texto da primeira linha no módulo.
Para inserir uma linha de texto em um módulo, use o método InsertLines.
Exemplo
O exemplo a seguir exclui uma linha especificada de um módulo.
Function DeleteWholeLine(strModuleName, strText As String) _
As Boolean
Dim mdl As Module, lngNumLines As Long
Dim lngSLine As Long, lngSCol As Long
Dim lngELine As Long, lngECol As Long
Dim strTemp As String
On Error GoTo Error_DeleteWholeLine
DoCmd.OpenModule strModuleName
Set mdl = Modules(strModuleName)
If mdl.Find(strText, lngSLine, lngSCol, lngELine, lngECol) Then
lngNumLines = Abs(lngELine - lngSLine) + 1
strTemp = LTrim$(mdl.Lines(lngSLine, lngNumLines))
strTemp = RTrim$(strTemp)
If strTemp = strText Then
mdl.DeleteLines lngSLine, lngNumLines
Else
MsgBox "Line contains text in addition to '" _
& strText & "'."
End If
Else
MsgBox "Text '" & strText & "' not found."
End If
DeleteWholeLine = True
Exit_DeleteWholeLine:
Exit Function
Error_DeleteWholeLine:
MsgBox Err & " :" & Err.Description
DeleteWholeLine = False
Resume Exit_DeleteWholeLine
End Function
Essa função poderia ser chamada a partir de um procedimento como este, que procura uma declaração de constante no módulo Module1 e a exclui.
Sub DeletePiConst()
If DeleteWholeLine("Module1", "Const conPi = 3.14") Then
Debug.Print "Constant declaration deleted successfully."
Else
Debug.Print "Constant declaration not deleted."
End If
End Sub
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.