Klasse als eine Art von Datentyp

  • VB.NET

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

    Klasse als eine Art von Datentyp

    Hallo,

    ich wollte hier von irgendwelchen Strings in denen ich diverse Informationen "enkodiert" habe (so was wie "1;bla;true") wegkommen und das ganze mit einem Objekt eines eigenen Datentyps machen. Deswegen habe ich einen Branch angelegt und mal was ausprobiert. Inzwischen habe ich auch eine Lösung gefunden mit der allerdings FxCop nicht zufrieden ist. Meine Lösung sieht so aus:

    VB.NET-Quellcode

    1. Public MustInherit Class HistoryItem
    2. Private _identifier As Integer
    3. Private _title As String
    5. Public ReadOnly Property Identifier As Integer
    6. Get
    7. Return _identifier
    8. End Get
    9. End Property
    11. Public ReadOnly Property Title As String
    12. Get
    13. Return _title
    14. End Get
    15. End Property
    17. Public Overrides Function toString() As String
    18. Return _title
    19. End Function
    21. Public Class HistoryItemWindow
    22. Inherits HistoryItem
    24. Private _filmnr As Integer
    26. Public ReadOnly Property Filmnr As Integer
    27. Get
    28. Return _filmnr
    29. End Get
    30. End Property
    32. Public Sub New(title As String, identifier As Integer, filmnr As Integer)
    33. MyBase._title = title
    34. MyBase._identifier = identifier
    35. Me._filmnr = filmnr
    36. End Sub
    37. End Class
    39. Public Class HistoryItemSearchResult
    40. Inherits HistoryItem
    42. Private _searchTerm As String
    43. Private _sortOrder As SortOrder
    44. Private _sortedColumn As DataGridViewColumn
    46. Public ReadOnly Property SearchTerm As String
    47. Get
    48. Return _searchTerm
    49. End Get
    50. End Property
    52. Public ReadOnly Property SortOrder As SortOrder
    53. Get
    54. Return _sortOrder
    55. End Get
    56. End Property
    58. Public ReadOnly Property SortedColumn As DataGridViewColumn
    59. Get
    60. Return _sortedColumn
    61. End Get
    62. End Property
    64. Public Sub New(title As String, searchTerm As String, sortOrder As SortOrder, sortedColumn As DataGridViewColumn)
    65. MyBase._title = title
    66. MyBase._identifier = 2
    67. Me._searchTerm = searchTerm
    68. Me._sortOrder = sortOrder
    69. Me._sortedColumn = sortedColumn
    70. End Sub
    71. End Class
    72. End Class


    Und dies nutze ich in folgenden Formen:

    VB.NET-Quellcode

    1. Dim objHistoryItemSearchResult As HistoryItem.HistoryItemSearchResult = DirectCast(e, HistoryItem.HistoryItemSearchResult)
    3. GlobalNeededFunctions.SearchInDatabaseCmplExp(objHistoryItemSearchResult.SearchTerm)
    4. TabSearch.RestoreSorting(objHistoryItemSearchResult)[/code]
    5. [code]Public Shared Sub RestoreSorting(e As HistoryItem.HistoryItemSearchResult)
    6. ...
    7. newColumn = dgv.Columns(e.SortedColumn.Name)
    8. ...



    VB.NET-Quellcode

    1. History.OpenEntry(DirectCast(LstHistory.SelectedItem, HistoryItem))

    VB.NET-Quellcode

    1. Public Sub OpenEntry(e As HistoryItem)
    2. ...
    3. Dim id As Integer = e.Identifier
    4. ...
    6. Select Case id
    7. Case 0
    8. ' MovieDetail-Window
    9. OpenMovieDetails(DirectCast(e, HistoryItem.HistoryItemWindow))
    10. Case 1
    11. ' MovieEdit-Window
    12. OpenEditMovie(DirectCast(e, HistoryItem.HistoryItemWindow))
    13. Case 2
    14. ' SearchTab
    15. ...
    16. End Select
    17. ...
    18. End Sub



    VB.NET-Quellcode

    1. Private Sub FrmMovieDetails_Closing() Handles MyBase.FormClosing
    2. Dim itemWindow As New HistoryItem.HistoryItemWindow(LblTitle.Text & " (Detailfenster)", 0, _filmnr)
    3. ...
    4. FrmHistory.LstHistory.Items.Insert(0, itemWindow)
    5. ...
    6. End Sub


    Ich habe also eine übergeordnete Klasse "HistoryItem" mit zwei Attributen, welche die beiden Klassen "HistoryItemWindow" und "HistoryItemSearchResult" gemeinsam haben. Die beiden Klassen haben aber natürlich auch Attribute, die sich speziell auf sie beziehen. Ich brauche z.B. keinen "SearchTerm" bei einem "HistoryItemWindow". "HistoryItemWindow" und "HistoryItemSearchResult" haben beide Konstruktoren, damit ich ein Objekt diesen Typs darüber instanziieren kann.

    Jedenfalls habe ich mit dieser Lösung wohl gegen den guten Geschmack verstoßen. FxCop meint:
    CA1034 Geschachtelte Typen sollten nicht sichtbar sein Schachteln Sie den Typ 'HistoryItem.HistoryItemWindow' nicht. Ändern Sie stattdessen seinen Zugriff so, dass er nicht extern sichtbar ist. MDb HistoryItem.vb 21


    Wie kriege ich das sauber hin?

    Grüße
    concu

    Edit by ~blaze~:
    *Codetag zu VB.Net geändert*

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

    Ja, die Meldung vom FxCop habe ich wohl verstanden. Ich habe nur keine Ahnung wie ich das anders aufbauen kann bei gleichbleibender Funktion.

    Ich habe heute morgen noch erfolglos folgendes ausprobiert (ich hoffe, dass ist noch die Variante, wie ich sie jetzt im Kopf habe):

    VB.NET-Quellcode

    1. Public MustInherit Class Class1
    2. Private _class1A As Boolean
    3. Public class2 As class2
    4. Public class3 As class3
    6. Public ReadOnly Property class1A As Boolean
    7. Get
    8. Return _class1A
    9. End Get
    10. End Property
    11. End Class
    13. Public Class class2
    14. Inherits Class1
    15. Private _class2A As Boolean
    17. Public Sub New(a As Boolean)
    18. MyBase._class1A = Not a
    19. Me._class2A = a
    20. End Sub
    22. Public ReadOnly Property class2A As Boolean
    23. Get
    24. Return _class2A
    25. End Get
    26. End Property
    27. End Class
    29. Public Class class3
    30. Inherits Class1
    31. Private _class3A As Boolean
    33. Public Sub New(a As Boolean)
    34. Me._class3A = a
    35. End Sub
    37. Public ReadOnly Property class3A As Boolean
    38. Get
    39. Return _class3A
    40. End Get
    41. End Property
    42. End Class


    Kompiliert nicht wegen der Zeile 18 mit dem "MyBase._class1A = Not a", weil ich dann natürlich nicht auf "class1A" in "class1" zugreifen kann. Wenn es geschachtelt ist wie oben, dann geht das.
    Zudem kam dies:

    VB.NET-Quellcode

    1. Dim test As New class2(True)
    2. Debug.WriteLine(test.class3.class3A)

    Hier kann ich von der Instanz "test" von "class2" auf "class3" zugreifen. Soll meiner Meinung nach auch nicht gehen.

    Edit by ~blaze~:
    *Codetag zu VB.Net geändert*

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

    Also was du da machst ergibt für mich keinen Sinn, deswegen versuch ich auch nicht, da was zu korrigieren.
    Der korrekte Code für oben wäre allerdings:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ​Public MustInherit Class HistoryItem
    2. Protected _identifier As Integer
    3. Protected _title As String
    5. Public ReadOnly Property Identifier As Integer
    6. Get
    7. Return _identifier
    8. End Get
    9. End Property
    11. Public ReadOnly Property Title As String
    12. Get
    13. Return _title
    14. End Get
    15. End Property
    17. Public Overrides Function toString() As String
    18. Return _title
    19. End Function
    20. End Class
    22. Public Class HistoryItemWindow : Inherits HistoryItem
    23. Private _filmnr As Integer
    25. Public ReadOnly Property Filmnr As Integer
    26. Get
    27. Return _filmnr
    28. End Get
    29. End Property
    31. Public Sub New(title As String, identifier As Integer, filmnr As Integer)
    32. _title = title
    33. _identifier = identifier
    34. _filmnr = filmnr
    35. End Sub
    36. End Class
    38. Public Class HistoryItemSearchResult : Inherits HistoryItem
    39. Private _searchTerm As String
    40. Private _sortOrder As SortOrder
    41. Private _sortedColumn As DataGridViewColumn
    43. Public ReadOnly Property SearchTerm As String
    44. Get
    45. Return _searchTerm
    46. End Get
    47. End Property
    49. Public ReadOnly Property SortOrder As SortOrder
    50. Get
    51. Return _sortOrder
    52. End Get
    53. End Property
    55. Public ReadOnly Property SortedColumn As DataGridViewColumn
    56. Get
    57. Return _sortedColumn
    58. End Get
    59. End Property
    61. Public Sub New(title As String, searchTerm As String, sortOrder As SortOrder, sortedColumn As DataGridViewColumn)
    62. _title = title
    63. _identifier = 2
    64. _searchTerm = searchTerm
    65. _sortOrder = sortOrder
    66. _sortedColumn = sortedColumn
    67. End Sub
    68. End Class

    Danke. Sieht aus als wäre das die Lösung. Ich hatte "Protected" überhaupt nicht auf dem Schirm, mit "Private" ging es nicht und "Public" wollte ich die beiden Attribute nicht machen.

    Du meintest, dass der zweite Versuch überhaupt keinen Sinn gemacht hat oder generell?

    concu schrieb:

    VB.NET-Quellcode

    1. Public class2 As class2
    Solche Namensgebungen dürften dem FxCop auch nicht gefallen.
    1. der Name der Klasse class2,
    2. der Name der Instanz class2 vom Typ class2.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    concu schrieb:

    schneller Test
    Auch das ist suboptimal, denn wenn es mehr als nur ein schneller Test wird, bleiben solche Namen kleben. Wann nimmst Du Dir die Zeit, Deinen Code aufzuräumen? Richtig.
    Also vergib gleich ordentliche Namen. Da entwickelt es sich auch viel angenehmer mit.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das war sogar ein neues Projekt in Visual Studio, damit ich das in abgespeckter Form testen kann und ohne den ganzen "Overhead" mit den Aufrufen anpassen.
    Aber klar, ich stimme dir zu, dass man so etwas nicht in seinem richtigen Projekt machen sollte mit dem Risiko das die Bezeichner am Ende so bleiben.

Facebook
Telefonspende