ICollectionView.Filter 怎么写呀?

2009-02-05 12:23:02 325 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Keil环境下单片机串口通信实战：如何用printf发送中文（附完整代码）本文详细解析了在Keil开发环境下，单片机通过串口通信发送中文信息时产生乱码的根本原因及解决方案。核心在于理解并统一编码（如GB2312或UTF-8），并正确重定向printf函数。文章提供了针对STC89C52和STM32F103的完整代码示例，涵盖工程配置、编码设置、调试技巧，帮助开发者实现稳定可靠的中文串口输出。阅读详情

在做一个Filter 用C#的转过来
view.Filter += Me.FilterPredicate ' 这里出错
view.Filter -= Me.FilterPredicate '这里出错

'--------------------c#
ICollectionView view = CollectionViewSource.GetDefaultView(newValue);view.Filter += this.FilterPredicate;
'--------------------VB完整代码
Protected Overloads Overrides Sub OnItemsSourceChanged(ByVal oldValue As system.Collections.IEnumerable, ByVal newValue As System.Collections.IEnumerable)
If newValue IsNot Nothing Then
Dim view As ICollectionView = CollectionViewSource.GetDefaultView(newValue)
view.Filter += Me.FilterPredicate ' 这里出错
End If

If oldValue IsNot Nothing Then
Dim view As ICollectionView = CollectionViewSource.GetDefaultView(oldValue)
view.Filter -= Me.FilterPredicate '这里出错
End If

MyBase.OnItemsSourceChanged(oldValue, newValue)
End Sub
Private Function FilterPredicate(ByVal value As Object) As Boolean
' We don't like nulls.
If value Is Nothing Then
Return False
End If

' If there is no text, there's no reason to filter.
If Me.Text.Length = 0 Then
Return True
End If

Dim prefix As String = Me.Text

' If the end of the text is selected, do not mind it.
If Me.length > 0 AndAlso Me.start + Me.length = Me.Text.Length Then
prefix = prefix.Substring(0, Me.start)
End If

Return value.ToString().StartsWith(prefix, Not Me.IsCaseSensitive, CultureInfo.CurrentCulture)
End Function

...全文