AppCustom/Monitor
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
PitzM
2023-04-06 09:17:55 +02:00
parent e0ec88d763
commit 83de375e73
1 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
GUIs.Monitor/Forms/frmMonitor.vb
View File

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