Me, MyBase, MyClass Unterschiede?

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von fichz.

    Me, MyBase, MyClass Unterschiede?

    yo Leute,

    hab eine Frage zu MyClass.
    Ich weiß nicht genau was eigentlich passiert wenn man MyClass anspricht.

    Anhand MSDN wurde mir klar was die anderen 2 (Me, MyBase) bedeuten.
    Jedoch werd ich auch von MSDN bei MyClass nicht schlau.

    Könnte hierzu jemand ein Beispiel zeigen? Denke dann versteh ich den Sinn dahinter besser.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Also ich habe gerade einen Haufen Tests gemacht. MyClass hat sich nie von Me unterschieden.
    Mann wird MyClass wahrscheinlich sowieso so gut wie nie brauchen.

    Edit:
    Klassen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Class BaseClass
    3. Public Overridable Sub MustOverrideSub()
    4. Form1.AddLog("- BaseClass.MustOverrideSub")
    5. End Sub
    7. Public Sub TestBase()
    8. Form1.AddLog("Me.MustOverrideSub")
    9. Me.MustOverrideSub()
    10. Form1.AddLog("MyClass.MustOverrideSub")
    11. MyClass.MustOverrideSub()
    12. End Sub
    14. End Class
    16. Class MiddleClass
    17. Inherits BaseClass
    19. Public Overrides Sub MustOverrideSub()
    20. Form1.AddLog("- MiddleClass.MustOverrideSub")
    21. End Sub
    23. Public Sub TestMiddle()
    24. Form1.AddLog("Me.MustOverrideSub")
    25. Me.MustOverrideSub()
    26. Form1.AddLog("MyBase.MustOverrideSub")
    27. MyBase.MustOverrideSub()
    28. Form1.AddLog("MyClass.MustOverrideSub")
    29. MyClass.MustOverrideSub()
    30. End Sub
    32. End Class
    34. Class SubClass
    35. Inherits MiddleClass
    37. Public Overrides Sub MustOverrideSub()
    38. Form1.AddLog("- SubClass.MustOverrideSub")
    39. End Sub
    41. Public Sub TestSub()
    42. Form1.AddLog("Me.MustOverrideSub")
    43. Me.MustOverrideSub()
    44. Form1.AddLog("MyBase.MustOverrideSub")
    45. MyBase.MustOverrideSub()
    46. Form1.AddLog("MyClass.MustOverrideSub")
    47. MyClass.MustOverrideSub()
    48. End Sub
    50. End Class

    Form1:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. 'Wrapper, um Logs anzuzeigen
    4. Public Shared Sub AddLog(Message As String)
    5. RaiseEvent AddLogEvent(Message)
    6. End Sub
    7. Private Shared Event AddLogEvent(Message As String)
    8. Private Sub AddLogHandler(Message As String)
    9. ListBox1.Items.Add(DateTime.Now.ToLongTimeString & "." & DateTime.Now.Millisecond.ToString.PadLeft(3, "0"c) & " : " & Message)
    10. End Sub
    11. Private Sub Initialize() Handles MyBase.Load
    12. AddHandler AddLogEvent, AddressOf AddLogHandler
    13. End Sub
    15. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    16. AddLogHandler("------BaseClass Instanz------")
    17. Dim BaseInstance As New BaseClass
    18. BaseInstance.TestBase()
    19. AddLogHandler("------MiddleClass Instanz------")
    20. Dim MiddleInstance As New MiddleClass
    21. MiddleInstance.TestMiddle()
    22. AddLogHandler("------SubClass Instanz------")
    23. Dim SubInstance As New SubClass
    24. SubInstance.TestSub()
    25. End Sub
    27. End Class


    Ergibt:


    Ich habe keinen Unterschied zwischen Me und MyClass gefunden. Wird wahrscheinlich erst bei komplizierteren Konstruktionen interessant.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Niko Ortner“ ()

    Ich hatte auch schon ein bisschen was probiert (hab dieses MyClass ja ausn Entwicklerbuch) aber eben auch keine Unterschiede feststellen können.
    Deswegen ist es eben interesannt ob es einen/welche gibt, da dies beim Klassendesign ja nicht unwesentlich ist.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    myclass ist erforderlich, wenn man mehrere Konstruktoren schreibt, um den einen Konstruktor vom anneren aus aufrufen zu können.

    VB.NET-Quellcode

    1. Public Class ChooseView(Of T) : Inherits ListCollectionView
    3. Private _Source As IList(Of T)
    5. Public Sub New()
    6. MyClass.New(New ObservableCollection(Of T))
    7. End Sub
    9. Public Sub New(ByVal sourceList As IList(Of T))
    10. MyBase.New(DirectCast(sourceList, IList))
    11. _Source = sourceList
    12. End Sub
    Der parameterlose Konstruktor erzeugt als Default-Einstellung eine ObservableCollection für die _Source.

    @ErfinderDesRades: Das ist vielleicht ein etwas ungünstiges Beispiel, da _Source ja auch so beschrieben werden könnte, oder?
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Bei einem einfachen Parameter, der übergeben wird, ists noch nicht soo erheblich, da könnteman auch schreiben

    VB.NET-Quellcode

    1. Public Class ChooseView(Of T) : Inherits ListCollectionView
    3. Private _Source As IList(Of T)
    5. Public Sub New()
    6. _Source = New ObservableCollection(Of T)
    7. End Sub
    9. Public Sub New(ByVal sourceList As IList(Of T))
    10. MyBase.New(DirectCast(sourceList, IList))
    11. _Source = sourceList
    12. End Sub

    Aber bei mehreren konstruktoren, mehreren Parametern und vlt. mehr Konstruktor-Logik wirds sehr wichtig, Code-Redundanzen zu vermeiden

    VB.NET-Quellcode

    1. <Diagnostics.DebuggerDisplay("Count={Count}, MinHeap={MinHeap}")> _
    2. Public Class Heap(Of T) : Implements ICloneable
    4. 'ein Heap ist ein sortierter, balancierter binärer Baum, im Array (hier: List(of T)) abgebildet.
    5. 'Die beiden Children eines Parents liegen immer genau hinter dem doppelten Index der Parents.
    6. 'Heap-Bedingung (bei MinHeap): beide Children eines Parents müssen größer sein.
    8. ''' <summary>return 1, 0, -1, depending on key is smaller, equal or bigger than item</summary>
    9. Public ReadOnly KeyIsSmaller As Func(Of IComparable, T, Integer)
    10. ''' <summary>return 1, 0, -1, depending on item is bigger, equal or smaller than key</summary>
    11. Public ReadOnly KeyIsBigger As Func(Of IComparable, T, Integer)
    12. Public ReadOnly Selector As Func(Of T, IComparable)
    13. ''' <summary>whether the root-element is Minimum</summary>
    14. Public ReadOnly MinHeap As Boolean = True
    15. Public InnerList As New List(Of T)()
    17. Public Sub New(ByVal Selector As Func(Of T, IComparable), ByVal minHeap As Boolean)
    18. Me.Selector = Selector
    19. Me.MinHeap = minHeap
    20. Dim KeyCompareToItem = Function(key As IComparable, item As T) key.CompareTo(Selector(item))
    21. Dim ItemCompareToKey = Function(key As IComparable, item As T) Selector(item).CompareTo(key)
    22. KeyIsSmaller = If(minHeap, KeyCompareToItem, ItemCompareToKey)
    23. KeyIsBigger = If(minHeap, ItemCompareToKey, KeyCompareToItem)
    24. End Sub
    25. ''' <summary>copy-constructor</summary>
    26. Public Sub New(ByVal hp As Heap(Of T))
    27. MyClass.New(hp.Selector, hp.MinHeap)
    28. InnerList.AddRange(hp.InnerList)
    29. End Sub
    Also hier zB die Logik der Zeilen #18 - #23 im CopyKonstruktor zu wiederholen wäre fehleranfällig, insbes. wenn man den ersten Konstruktor mal verändert.

    Aber für was anneres als für überladene Konstruktoren habich MyClass auch noch nie verwendet

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    man lernt nie aus.

    Also jetzt weißich garnimmer, wozu MyClass gut sein soll. Mussich nochmal den Link lesen, vlt. steht da ja was drin (puh! englisch!)


    Ah - ja:

    link schrieb:

    MyClass is similar to Me, but all method calls on it are treated as if the method were NotOverridable.