Masked Input and Objects | Infragistics Forums

"You just need to set the ExpectedType on the editor."

Yeah, I went down that road. I get "System.Exception: The Owner specified a type to EditorWithMask that is not supported by the editor."

I created a code sample to demonstrate something like what I'm trying to do. To set this up, you just need to add a form to a windows application project in visual studio 2008. Drag an UltraGrid onto the form and don't set anything up on it (i.e., just click "finish" when the designer dialog comes up). Everything else that happens is in this code sample.

I hope I'm just doing something horribly wrong.

Public Class Form2

Private Class MyCustomType

        Private _Id As Long
        Public Property Id() As Long
            <System.Diagnostics.DebuggerStepThrough()> Get
                Return _Id
            End Get
            <System.Diagnostics.DebuggerStepThrough()> _
            Set(ByVal value As Long)
                _Id = value
            End Set
        End Property

        Private _Description As String
        Public Property Description() As String
            <System.Diagnostics.DebuggerStepThrough()> Get
                Return _Description
            End Get
            <System.Diagnostics.DebuggerStepThrough()> _
            Set(ByVal value As String)
                _Description = value
            End Set
        End Property

        Private _Duration As TimeSpan
        Public Property Duration() As TimeSpan
            <System.Diagnostics.DebuggerStepThrough()> Get
                Return _Duration
            End Get
            <System.Diagnostics.DebuggerStepThrough()> _
            Set(ByVal value As TimeSpan)
                _Duration = value
            End Set
        End Property

End Class

Private Class DataFilter
Implements Infragistics.Win.IEditorDataFilter

Public Function Convert(ByVal conversionArgs As Infragistics.Win.EditorDataFilterConvertArgs) As Object Implements Infragistics.Win.IEditorDataFilter.Convert
Dim objResult As Object = Nothing

            Select Case conversionArgs.Direction
                Case Infragistics.Win.ConversionDirection.OwnerToEditor
                    Dim objValue As TimeSpan = CType(conversionArgs.Value, TimeSpan)
                    objResult = String.Format("{0}h {1}m", objValue.Hours, objValue.Minutes)
                    conversionArgs.Handled = True
                    conversionArgs.IsValid = True

                Case Infragistics.Win.ConversionDirection.EditorToOwner
                    Dim strValue As String = conversionArgs.Value.ToString
                    If System.Text.RegularExpressions.Regex.IsMatch(strValue, "^\d+h \d+m$") Then
                        Dim args() As String = strValue.Split(" "c)
                        Dim intHours As Integer = CInt(args(0))
                        Dim intMinutes As Integer = CInt(args(1))
                        Dim result As New TimeSpan(intHours, intMinutes, 0)
                        objResult = result

                        conversionArgs.Handled = True
                        conversionArgs.IsValid = True
                    End If
            End Select

            Return objResult
        End Function
    End Class

Private BindingSource As New BindingSource()

Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.InitializeGrid()

        Dim data As List(Of MyCustomType) = Me.GetData
        Me.BindingSource.DataSource = data
    End Sub

    Private Sub InitializeGrid()
        '
        '   this line should create the columns in the grid.
        '
        Me.BindingSource.DataSource = New List(Of MyCustomType)
        Me.UltraGrid1.DataSource = Me.BindingSource

        '
        '   Change the duration column to use an EditorWithMask
        '
        Dim column As Infragistics.Win.UltraWinGrid.UltraGridColumn = _
            Me.UltraGrid1.DisplayLayout.Bands(0).Columns("Duration")

        Dim objEditor As New Infragistics.Win.EditorWithMask
        objEditor.ExpectedType = GetType(TimeSpan)
        objEditor.DataFilter = New DataFilter

        column.Editor = objEditor
        column.MaskInput = "#h #m"
    End Sub

    Private Function GetData() As List(Of MyCustomType)
        Dim results As New List(Of MyCustomType)
        For i As Integer = 0 To 4
            Dim result As New MyCustomType
            result.Id = i
            result.Description = "Test: " + i.ToString("000")
            result.Duration = New TimeSpan(i, i, i, i)
            results.Add(result)
        Next

Return results
End Function

End Class