当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET GroupStyle.HeaderStringFormat属性代码示例

本文整理汇总了VB.NET中System.Windows.Controls.GroupStyle.HeaderStringFormat属性的典型用法代码示例。如果您正苦于以下问题:VB.NET GroupStyle.HeaderStringFormat属性的具体用法?VB.NET GroupStyle.HeaderStringFormat怎么用?VB.NET GroupStyle.HeaderStringFormat使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在System.Windows.Controls.GroupStyle的用法示例。


在下文中一共展示了GroupStyle.HeaderStringFormat属性的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: New

' The converter to group the items.
Public Class GroupByPrice
    Implements IValueConverter
    Public Function Convert(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert

        If Not(TypeOf value Is Double) Then
            Return Nothing
        End If

        Dim itemPrice As Double = CDbl(value)

        If itemPrice < 100 Then
            Return 100
        End If

        If itemPrice < 250 Then
            Return 250
        End If

        If itemPrice < 500 Then
            Return 500
        End If

        Return 1000



    End Function

    Public Function ConvertBack(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
        Throw New NotImplementedException()
    End Function
End Class

' The type of objects that are added to the ItemsControl.
Public Class PurchaseItem
    Public Property Description() As String
    Public Property Price() As Double
    Public Property OfferExpires() As Date

    Public Sub New()
    End Sub

    Public Sub New(ByVal desc As String, ByVal price As Double, ByVal endDate As Date)
        Description = desc
        Me.Price = price
        OfferExpires = endDate
    End Sub

    Public Overrides Function ToString() As String
        Return String.Format("{0}, {1:c}, {2:D}", Description, Price, OfferExpires)
    End Function
End Class

' The source of the ItemsControl.
Public Class ItemsForSale
    Inherits ObservableCollection(Of PurchaseItem)

    Public Sub New()
        Add((New PurchaseItem("Snowboard and bindings", 120, New Date(2009, 1, 1))))
        Add((New PurchaseItem("Inside VB, second edition", 10, New Date(2009, 2, 2))))
        Add((New PurchaseItem("Laptop - only 1 year old", 499.99, New Date(2009, 2, 28))))
        Add((New PurchaseItem("Set of 6 chairs", 120, New Date(2009, 2, 28))))
        Add((New PurchaseItem("My DVD Collection", 15, New Date(2009, 1, 1))))
        Add((New PurchaseItem("TV Drama Series", 39.985, New Date(2009, 1, 1))))
        Add((New PurchaseItem("Squash racket", 60, New Date(2009, 2, 28))))

    End Sub

End Class
开发者ID:VB.NET开发者,项目名称:System.Windows.Controls,代码行数:70,代码来源:GroupStyle.HeaderStringFormat


注:本文中的System.Windows.Controls.GroupStyle.HeaderStringFormat属性示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。