Add clipboard handler to monitor and invoice dashboard

This commit is contained in:
Jonathan Jenne 2021-10-21 14:35:19 +02:00
parent 9b251623dc
commit 6a1b6580e4
2 changed files with 21 additions and 0 deletions

View File

@ -2,11 +2,18 @@
Imports System.IO
Imports DevExpress.XtraCharts
Imports DevExpress.XtraGrid.Views.Tile
Imports DigitalData.GUIs.Common
Public Class frmInvDashboard
Private _selectedChart As ChartControl
Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Dim oGridBuilder As New GridBuilder(GridView1)
oGridBuilder.
WithDefaults().
WithReadOnlyOptions().
WithClipboardHandler()
Try
VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES)

View File

@ -2,7 +2,9 @@
Imports System.IO
Imports DevExpress.Utils
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraPrinting
Imports DigitalData.GUIs.Common
Public Class frmMonitor
Dim DT_MONITOR_KONFIG As DataTable
@ -13,6 +15,8 @@ Public Class frmMonitor
Dim GRID3_SQL As String
Dim GRID4_TITLE As String
Dim GRID4_SQL As String
Private _GridBuilder As GridBuilder
Private _ActiveGrid As GridControl = Nothing
' Private _frmDocView As frmDocView 'You need a reference to Form1
Dim FormShown As Boolean = False
@ -152,6 +156,16 @@ Public Class frmMonitor
Private Async Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load
SplitContainerControlMain.Collapsed = True
Dim _GridList As New List(Of GridView) From {
GridView1,
GridView2,
GridView3,
GridView4
}
_GridBuilder = New GridBuilder(_GridList).
WithReadOnlyOptions().
WithClipboardHandler()
GridView1.ShowLoadingPanel()
Await Load_Grid_Data()
GridView1.HideLoadingPanel()