Высота диаграммы уменьшается при нажатии на нее
У меня проблема с dotnetCharting. На самом деле, когда я устанавливаю titleBox.visible=false диаграммы, а затем, когда щелкаю (щелкаю левой кнопкой мыши) на диаграмме, высота диаграммы уменьшается при каждом щелчке. Это происходит только тогда, когда я устанавливаю titleBox.visible=false графика, в противном случае это не означает, сколько раз при нажатии на график ничего плохого не происходит.
На событии щелчка диаграммы у меня есть 2 строки кода.
Dim myChart As Chart = CType(sender, Chart)
myChart.RefreshChart()
Я пытался следовать за вещами, которые не работали для меня.
myChart.Autosize = false
myChart.AutosizeMode = AutosizeMode.GrowOnly
Пожалуйста, смотрите код ниже, чтобы скрыть titileBox.
Заранее спасибо.
Private Sub tsmi_ChartHideTitle_Click(sender As Object, e As EventArgs) Handles tsmi_ChartHideTitle.Click
UserActionTracking(System.Reflection.MethodBase.GetCurrentMethod().Name, "Info")
Dim ch As Chart = cm_Chart_Sourcecontrol
Dim tabc As XtraTabControl = Nothing
Dim objectcharted As String = Nothing
Try
Dim tech As String = ch.Tag
Select Case tech.ToLower
Case _strNetwork.ToLower
objectcharted = ObjectsCharted
tabc = CType(tcTabControlHighStats.SelectedTabPage.Controls(0), XtraTabControl)
End Select
For Each tb As XtraTabPage In tabc.TabPages
If tb.Controls.Count > 0 Then
For Each nc As Chart In tb.Controls(0).Controls
If tsmi_ChartHideTitle.Tag.ToString.ToUpper = "SHOW" Then
nc.TitleBox.Visible = True
nc.RefreshChart()
Else
nc.TitleBox.Visible = False
nc.RefreshChart()
End If
Next
End If
Next
If tsmi_ChartHideTitle.Tag.ToString.ToUpper = "SHOW" Then
tsmi_ChartHideTitle.Tag = "HIDE"
Else
tsmi_ChartHideTitle.Tag = "SHOW"
End If
Catch ex As Exception
_logger.SetError(System.Reflection.MethodBase.GetCurrentMethod().Name & " - " & ex.Message)
UserActionTracking(System.Reflection.MethodBase.GetCurrentMethod().Name, "Error", ex.Message)
End Try
UserActionTracking(System.Reflection.MethodBase.GetCurrentMethod().Name, "Info", Network & " " & DateDiff(DateInterval.Second, timer, Now()) & "s")
End Sub