Aggiunta di un range colorato ad un tachimetro in un report
Il seguente evento collegato ad un tachimetro consente di creare range colorati, come nella figura seguente: Private Sub gauge1_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) ‘ Aggiunta dei range colorati dim gauge as XRGauge = CType(sender, XRGauge) Dim gaugeControl As DevExpress.XtraGauges.Core.Customization.DashboardGauge = gauge.Gauge dim scale As DevExpress.XtraGauges.Core.Model.ArcScale=gaugeControl.Elements(0) scale.BeginUpdate() Dim range1 As DevExpress.XtraGauges.Core.Model.ArcScaleRange = New…