|
<< Clique para Mostrar o Sumário >>
ShowTrendAnalysis |
ShowTrendAnalysis([Title], [Left], [Top], [Configuration], [ConfigStatus], [ErrorDetails])
Mostra uma janela do TrendAnalysis. Este método retorna Verdadeiro se a janela foi mostrada corretamente ou Falso em caso de erro. Os parâmetros deste método estão listados na tabela a seguir.
Parâmetros do método ShowTrendAnalysis
Parâmetro |
Descrição |
|---|---|
Title |
Determina o título da janela. Corresponde à propriedade Title do objeto TrendAnalysis. Se omitido ou informada uma String vazia, o título da janela é configurado para "TrendAnalysis" |
Left |
Coordenada horizontal da janela, em pixels. Consulte o método SetWindowPlacement do objeto TrendAnalysis para mais informações sobre o comportamento deste parâmetro, caso seja omitido |
Top |
Coordenada vertical da janela, em pixels. Consulte o método SetWindowPlacement do objeto TrendAnalysis para mais informações sobre o comportamento deste parâmetro, caso seja omitido |
Configuration |
Informa o conteúdo de uma configuração salva pelo método Save do objeto TrendAnalysis. Se omitido ou informada uma String vazia, não carrega nenhuma configuração previamente salva |
ConfigStatus |
Parâmetro opcional de retorno que informa o resultado do carregamento da janela do TrendAnalysis. Se este método retorna Verdadeiro, este parâmetro contém o valor 0 (zero), ou seja, a configuração foi carregada com sucesso. Se este método retorna Falso, este parâmetro pode conter 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 |
ErrorDetails |
Parâmetro opcional de retorno contendo uma String detalhando o erro no carregamento da janela do TrendAnalysis |
O código a seguir contém um exemplo de uso deste método.
Sub Botao1_Click()
Dim showResult, errorMsg, errorDetails
showResult = Application.ShowTrendAnalysis("TrendAnalysis", 100, 100, "", ConfigStatus, errorDetails)
If showResult = 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
End If
End Sub
NOTA |
As propriedades do objeto TrendAnalysis podem ser configuradas no objeto retornado pelo método GetTrendAnalysis. |