<< 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. |