Buttons in RibbonNar für Chartviews deaktivieren, da ohne Funktion

This commit is contained in:
2023-04-06 09:17:55 +02:00
parent e0ec88d763
commit 83de375e73

View File

@@ -127,7 +127,6 @@ Public Class frmMonitor
InitGrid()
InitTreeList()
'InitChartView()
InitChartContainer()
Dim oGrids As GridView() = New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4}.ToArray
@@ -400,7 +399,7 @@ Public Class frmMonitor
Workspace.LoadWorkspace(oSearch.Id.ToString)
btnExportMain.Enabled = True
ActivateMenuBarButtons(oSearch.ReturnType)
Dim oTotalTime = Now.Subtract(oStartTime)
lbSearchTime.Caption = oTotalTime.ToString("mm':'ss")
@@ -414,6 +413,19 @@ Public Class frmMonitor
End Try
End Function
Private Sub ActivateMenuBarButtons(pSearchType As ReturnTypeEnum)
Select Case pSearchType
Case ReturnTypeEnum.ChartView
btnExportMain.Enabled = False
BarButtonItem2.Enabled = False
btnResetLayout.Enabled = False
Case Else
btnExportMain.Enabled = True
BarButtonItem2.Enabled = True
btnResetLayout.Enabled = True
End Select
End Sub
Private Async Function GetChartSerie(pChartParameters As ChartParameter, pControls As List(Of Control)) As Threading.Tasks.Task(Of Series)
Dim oSerie As Series
@@ -522,6 +534,8 @@ Public Class frmMonitor
TreeListResults.Dock = DockStyle.Fill
ChartViewResultContainer.Visible = False
ChartViewResultContainer.Dock = DockStyle.None
btnExportDetails.Enabled = True
btnExportMain.Enabled = True
Case ReturnTypeEnum.ChartView
GridControlResults.Visible = False
@@ -530,6 +544,8 @@ Public Class frmMonitor
TreeListResults.Dock = DockStyle.None
ChartViewResultContainer.Visible = True
ChartViewResultContainer.Dock = DockStyle.Fill
btnExportDetails.Enabled = False
btnExportMain.Enabled = False
Case ReturnTypeEnum.Table
GridControlResults.Visible = True
@@ -538,6 +554,8 @@ Public Class frmMonitor
TreeListResults.Dock = DockStyle.None
ChartViewResultContainer.Visible = False
ChartViewResultContainer.Dock = DockStyle.None
btnExportDetails.Enabled = True
btnExportMain.Enabled = True
End Select
End Sub