Problem bei Zugriff auf Property

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Duster.

    Problem bei Zugriff auf Property

    Hallo Zusammen,

    ich glaub ich hab da ein ziemlich simples Proble´m, für mich als Anfänger aber trotzden verwirrend.
    Ich möchte aus meinem Hauptprogramm auf die Property eines von mir erstellten Objekts zugreifen. Dieses Objekt habe ich zuvor mit vielen anderen Objekten in eine Liste vom Typ Objekt geschoben. Versuche ich zuzugreifen bekomme ich die Fehlermeldung :
    "Option Strict lässt spätes Binden nicht zu".
    Ich weiß dass Fehler die sich auf das "Late Binding" beziehen mit dem falschen Casten zusammen hängen!
    Aber aufddie Lösung komm ich trotzdem nicht! :(

    Das stark vereinfachte Programm habe ich angehäng und hier der relevante Code:

    Hauptprogramm:

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Private _cmdDrawState As Boolean = False
    6. Private _lines as new Lines()
    7. Private ReadOnly _linesPenData as New PenData()
    8. Private _linesCoords as Point()
    10. Private ReadOnly _gfxObject as New List(Of Object)
    11. Private _currentGfxObject as New Object()
    13. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    15. InitializeLists()
    16. InitializeShape()
    18. _currentGfxObject = _gfxObject.Item(0)
    19. TxtTest01.Text = _currentGfxObject.GetType().ToString()
    21. TestSub(_currentGfxObject)
    23. End Sub
    25. Public Sub TestSub(gfxObject As Object)
    26. 'TxtTest02.Text = gfxObject.TestProperty.ToString() ' Fehler: Option Strict läßt
    27. ' spätes Binden nicht zu
    28. End Sub
    30. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    31. MyBase.OnPaint(e)
    33. _cmdDrawState = True
    34. _lines = New Lines(e, _linesPenData, _linesCoords)
    36. End Sub
    38. Private Sub InitializeLists()
    40. Dim gfxObjects () As Object = { _lines }
    41. _gfxObject.AddRange(gfxObjects)
    43. End Sub
    45. Public Sub InitializeShape()
    47. With _linesPenData
    48. .Alpha = 255
    49. .Red = 0
    50. .Green = 0
    51. .Blue = 255
    52. .Width = 10
    53. end With
    55. _linesCoords = {New Point(550, 220), New Point(800, 220),
    56. New Point(800, 220), New Point(800, 400),
    57. New Point(800, 400), New Point(550, 400)}
    58. End Sub
    60. End Class


    Die Klasse:

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    3. Friend Class Lines
    4. Inherits Shape
    6. #Region "CLASS MULTILINES"
    8. #Region "MultiLines Private Variables"
    10. Private ReadOnly _e As PaintEventArgs
    11. Private ReadOnly _penData As PenData
    12. Private ReadOnly _coordinates As Point()
    14. #End Region
    16. #Region "Line Properties"
    18. ' Das ist die relevante Property
    19. Friend Overrides Property TestProperty As Boolean = True
    21. #End Region
    23. #Region "MultiLines Constructors"
    25. Public Sub New()
    26. End Sub
    28. Public Sub New(e As PaintEventArgs, penData As PenData, coordinates As Point())
    30. _e = e
    31. _penData = penData
    32. _coordinates = coordinates
    34. DrawMultiLines(_e, _penData, _coordinates)
    36. End Sub
    38. #End Region
    40. #Region "MultiLines Functions"
    41. Private Function DrawMultiLines(e As PaintEventArgs, penData As PenData, coordinates As Point()) As PaintEventArgs
    43. Dim linesPen As Pen
    44. linesPen = GeneratePen (penData)
    46. e.Graphics.DrawLines(linesPen, coordinates)
    48. linesPen.Dispose()
    49. Return e
    50. End Function
    52. #End Region
    54. #End Region
    56. End Class


    Vielen Dank für Eure Hilfe vorab,
    Duster
    Dateien

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

    Richtig deklarieren: nicht als Object, sondern als das, was es ist: Shape, oder Lines, oder was da bei dir rumfährt.
    Und das an allen beteiligten Stellen: die Liste, das Methoden-Argument, Variablen, ...

    Der Compiler will wissen, was ein Objekt kann. Das teilt ihm die Deklaration mit.
    Wenn da nur steht: As Object, dann ist ihm nur bekannt, was die Object-Klasse kann.
    Wenn da steht: As Shape, erst dann ist ihm bekannt, was du in die Shape-Klasse reinprogrammiert hast.

    @ErfinderDesRades
    Ich dachte ich könnte Objecte die ich als as Object deklriert habe als Container für andere Objekte nehmen und reinschieben was ich will?
    In die Liste _gfxObject vom Typ as Object schiebe ich in meinem Programm Line, Lines Rectangle, Ellipse Objekte rein die jeweils vom Typ line, Lines etc. sind.
    Ich dachte ich kann dann über den Index der Liste (_gfxObject as Object) auf das zugehörige Property (gfxObject.TestProperty) des jeweiligen Typs zugreifen?
    Ich dachte das wäre der Sinn (oder zumindest einrer davon) von Listen?

    Gibt es da sonst eine Möglichkeit?

    Vielen Dank für Deine Hilfe,
    Duster

    Nee, Du kannst gerne ne List(Of X) machen, wobei X ein gemeinsamer Basistyp von Line, Shape usw. ist. Aber Object ist immer zu unspezifisch. Dann schiebt man da noch ne TextBox, n String und ne Boolean-Variable in die Liste rein und schon geht gar nix mehr. Der Sinn von Listen ist es, gleiche Objekt eines spezifischens Typs zu gruppieren, nicht alles mögliche zu Eintopf zu verarbeiten.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Duster schrieb:

    Ich dachte ich könnte Objecte die ich als as Object deklriert habe als Container für andere Objekte nehmen und reinschieben was ich will?
    ja, reinschieben kann man in ein Objekt, was man will.
    Nur beim Rausholen weiss dann der Compiler natürlich nicht mehr automatisch, wasses ist :P
    Und Strict On meckert da, weil rausholen und iwas mit machen ist höchst gefährlich - kann ja alles mögliche drinne sein.

Facebook
Telefonspende