|
Imports ggCoreLib
Imports BV.Math
Imports MidRange
Imports System.ComponentModel
''' <summary>
''' De momento solo soporta una unica parte de una funcion
''' </summary>
''' <remarks></remarks>
Public Class ScannerPropertiesDescriptor
Inherits ScannerPropertiesDescriptorBase
Public Sub New(ByVal fn As AdvancedSingleScanner)
MyBase.New(fn)
End Sub
<Browsable(False)> _
Public Shadows Property SelectedScanner() As AdvancedSingleScanner
Get
Return intSc
End Get
Set(ByVal value As AdvancedSingleScanner)
If Not value Is Nothing Then
intSc = value
End If
End Set
End Property
<Description("Tipo de Paso del Scanner")> _
Public Property StepType() As TypeOfIncrement
Get
Return CType(intSc, AdvancedSingleScanner).TypeOfStep
End Get
Set(ByVal value As TypeOfIncrement)
If CType(intSc, AdvancedSingleScanner).TypeOfStep <> value Then
CType(intSc, AdvancedSingleScanner).TypeOfStep = value
RaiseChange(New EventArgs)
End If
End Set
End Property
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.