Public Class MyCollection
Inherits ObservableCollection(Of MyCollection)
Private _Name As String
Public Property Name() As String
Get
Return _Name
End Get
Set(ByVal value As String)
_Name = value
End Set
End Property
Public Overrides Function ToString() As String
Return "Name: " & _Name
End Function
End Class
为了帮助调试,我重写了ToString方法,但它没有出现。
在下面的代码中,如果在调试期间将鼠标移到
它给我看
Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
Dim coll As New MyCollection
coll.Name = "Test"
End Sub
编辑:
我知道我可以用
调试程序显示
不幸的是,它是非常有限的。实际中的类是非常复杂的,如果可能的话,我需要在调试过程中定义一个逻辑。