AutoFitMode Enumeration

Imports Infragistics.Windows.DataPresenter

    Private Sub xamDataGrid1_Initialized(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.InitializeControl(DirectCast(sender, XamDataGrid))
    End Sub

    Private Sub InitializeControl(ByVal grid As XamDataGrid)
        Dim f As Field = Nothing

        ' You can control the default AutoFitMode for all FieldLayouts 
        ' that haven't explicitly set their AutoFitMode by either 
        ' setting it on the DP's FieldLayoutSettings. You can also 
        ' set the previously existing AutoFit property on the 
        ' DataPresenterBase.
        Dim flDefaultSettings As New FieldLayoutSettings()
        flDefaultSettings.AutoFitMode = AutoFitMode.Never
        flDefaultSettings.HeaderPrefixAreaDisplayMode = HeaderPrefixAreaDisplayMode.FieldChooserButton
        grid.FieldLayoutSettings = flDefaultSettings


        ' OnlyWithVisibleStarFields
        ' =========================

        ' AutoFitMode of OnlyWithVisibleStarFields so as long as there are 
        ' star fields visible, the fields will fill the available area.
        Dim flStar As New FieldLayout()
        flStar.Key = "HasStarFields"
        Dim flStarSettings As New FieldLayoutSettings()
        flStarSettings.AutoFitMode = AutoFitMode.OnlyWithVisibleStarFields
        flStar.Settings = flStarSettings

        f = New Field()
        f.Name = "name"
        flStar.Fields.Add(f)

        f = New Field()
        f.Name = "salary"
        flStar.Fields.Add(f)

        f = New Field()
        f.Name = "email"
        f.Width = New FieldLength(1, FieldLengthUnitType.Star)
        flStar.Fields.Add(f)

        f = New Field()
        f.Name = "department"
        f.Width = New FieldLength(2, FieldLengthUnitType.Star)
        flStar.Fields.Add(f)

        ' Always
        ' ======

        ' AutoFitMode of Always means all visible fields are resized to fill the 
        ' available area. The extent of fields may be increased or decreased.
        Dim flAlways As New FieldLayout()
        flAlways.Key = "Always"
        Dim flAlwaysSettings As New FieldLayoutSettings()
        flAlwaysSettings.AutoFitMode = AutoFitMode.Always
        flAlways.Settings = flAlwaysSettings

        f = New Field()
        f.Name = "name"
        flAlways.Fields.Add(f)

        f = New Field()
        f.Name = "salary"
        flAlways.Fields.Add(f)

        f = New Field()
        f.Name = "email"
        flAlways.Fields.Add(f)

        f = New Field()
        f.Name = "department"
        flAlways.Fields.Add(f)

        ' ExtendLastField
        ' ===============
        ' AutoFitMode of ExtendLastField is a little different than the 
        ' other modes in that non-star fields will never be reduced. The 
        ' preferred sizes of the fields is used and if there is extra 
        ' space available the last field will be increased in width to 
        ' fill the available area.
        Dim flExtend As New FieldLayout()
        flExtend.Key = "ExtendLastField"
        Dim flExtendSettings As New FieldLayoutSettings()
        flExtendSettings.AutoFitMode = AutoFitMode.ExtendLastField
        flExtend.Settings = flExtendSettings

        f = New Field()
        f.Name = "name"
        flExtend.Fields.Add(f)

        f = New Field()
        f.Name = "salary"
        flExtend.Fields.Add(f)

        f = New Field()
        f.Name = "email"
        flExtend.Fields.Add(f)

        f = New Field()
        f.Name = "department"
        flExtend.Fields.Add(f)

        ' Remove the key of one of these to use it in the sample
        ' e.g.
        'flStar.Key = Nothing

        grid.FieldLayouts.Add(flStar)
        grid.FieldLayouts.Add(flAlways)
        grid.FieldLayouts.Add(flExtend)
    End Sub