Steema Central

Code: Select all

 Try
         tcE.HideTabs = tcEHiddenTabs
         tcE.ShowModal()   <====== fails here, TCE is the chart editor
         m_chart.bChanged = True

      Catch ex As Exception
         Try
            If ex.Message.EndsWith("is not a valid value for 'Value'. 'Value' should be between 'Minimum' and 'Maximum'.") Then
               Dim dValue As Double
               Dim s As String
               Dim serGauge As Steema.TeeChart.Styles.Gauges
               s = ex.Message.Substring(ex.Message.IndexOf("'") + 1)
               dValue = s.Substring(0, s.IndexOf("'") - 1)
               serGauge = tc.Series(0)
               If dValue < serGauge.Minimum Then serGauge.Minimum = Int(dValue - 10)
               If dValue > serGauge.Maximum Then serGauge.Maximum = Int(dValue + 10)
               MessageBox.Show("Gauge range automatically increased as the value fell outside of the range", "Gauge range changed", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

            ' sometimes the first call to tce.showmodal causes an "Object not set error" but second call works so ere we go
            tcE.ShowModal()
            m_chart.bChanged = True
         Catch ex2 As Exception
            m_control.log.LogMsg(ex2.Message, True, Captell_Constants.LOG_MESSAGE_TYPES.Error, -98, m_chart.m_iChartID, Me)
         End Try
      End Try