Load

<< Clique para Mostrar o Sumário >>

 

Load

Load(Configuration, [ConfigStatus], [ErrorDetails])

Carrega uma configuração salva pelo método Save no parâmetro Configuration. Este método retorna Verdadeiro se a operação de carregamento foi bem-sucedida ou Falso caso contrário. O parâmetro opcional de retorno ConfigStatus indica o resultado da operação de carregamento. Se o método retorna Verdadeiro, ou seja, a operação foi bem-sucedida, este parâmetro retorna o valor 0: A configuração foi carregada com sucesso. Se o método retorna Falso, ou seja, a operação não foi bem-sucedida, este parâmetro retorna os valores 1: A configuração não carregou corretamente, 2: O conteúdo da configuração é inválido ou 3: Esta configuração requer uma versão mais recente. O parâmetro opcional de retorno ErrorDetails contém uma String detalhando o erro da operação de carregamento. O código a seguir contém um exemplo de utilização deste método.

Set TA = Application.GetTrendAnalysis("TrendAnalysis")
Dim loadResult, errorMsg, errorDetails
 
loadResult = TA.Load(Screen.Item("TextBox3").Value, ConfigStatus, errorDetails)
If loadResult = False Then
  If ConfigStatus <> 0 Then
    Select Case ConfigStatus
      Case 1
        errorMsg = "Erro (1): A configuração não foi carregada corretamente."
      Case 2
        errorMsg = "Erro (2): O conteúdo da configuração é inválido."
      Case 3
        errorMsg = "Erro (3): Esta configuração requer uma versão mais recente"
    End Select
    errorMsg = errorMsg & vbCrLf & "Detalhes: " & errorDetails
    MsgBox errorMsg
  End If
Else
  TA.Show
End If

 

NOTA

Utilizar o método Show em um objeto TrendAnalysis cujo carregamento da configuração não tenha sido bem-sucedido apenas mostra uma janela em branco.

Esta página foi útil?