Zugriff auf die Eigenschaften eines Controls via Me.Controls.Item("")

Merio · 6. März 2012, 21:24

Hey Comm,
ich habe das Problem, dass ich mit

VB.NET-Quellcode

Dim cntrlbevore As TextBox = Me.Controls.Item("Textbox" & Button1.Tag)

"cntrlbevore" eine Textbox aus den Controls meiner Form zuweise.
Wenn ich jedoch mit

VB.NET-Quellcode

TextboxN.Size = New Size(cntrlbevore.Size)

auf die Eigenschaft "Size" zugreifen will, bekomme ich den Fehler den Objektverweis nicht auf eine Objektinstanz festgelegt zu haben O_ö

haiyyu · 6. März 2012, 21:30

Ist TextboxN Nothing?

Digot - Software · 6. März 2012, 21:31

ctrntrlbevore musst du als Neue TextBox deklarieren also: DIm cntrlbevore As New TextBox....

Merio · 6. März 2012, 21:38

@haiyyu
Nope,

VB.NET-Quellcode

Dim TextboxN As New TextBox
TextboxN.Size = New Size(cntrlbevore.Size)

@Digot
Wenn ich es mit New Textbox mache, dann müsste ich es so machen, oder?

VB.NET-Quellcode

Dim cntrlbevore As New TextBox
cntrlbevore = Me.Controls.Item("Textbox" & Button1.Tag)

Aber dann macht die New ?? "Instanzierung" ?? Doch garkeinen Sinn..
Außerdem selber Fehler

Digot - Software · 6. März 2012, 21:40

Und ist die TextboxN auch in der Laufzeit erstellt?

Merio · 6. März 2012, 21:41

Jap, ist sie.

haiyyu · 6. März 2012, 21:42

Zeig uns mal deinen kompletten Code.

Merio · 6. März 2012, 21:43

VB.NET-Quellcode

Button1.Tag += 1
Dim cntrlbevore As New TextBox
cntrlbevore = Me.Controls.Item("Textbox" & Button1.Tag)
Dim TextboxN As New TextBox
TextboxN.Size = New Size(cntrlbevore.Size)
TextboxN.Name.Replace("N", Button1.Tag)
Me.Controls.Add(TextboxN)
TextboxN.Location = New Point(cntrlbevore.Location.X, cntrlbevore.Location.Y + 26)
Button1.Location = New Point(Button1.Location.X, Button1.Location.Y + 29)

haiyyu · 6. März 2012, 21:48

Das New in der zweiten Zeile ist unnötig, du willst ja keine neue Instanz erstellen.
Dann: Bist du dir sicher, dass der Fehler in der fünften Zeile auftritt?
TextboxN ist definitiv nicht Nothing, daran sollte der Fehler also nicht liegen.
Die einzige Möglichkeit wäre, dass cntrlbevore Nothing ist. Wenn allerdings das Control nicht existiert und du versuchst, es aus der Collection zu holen (Zeile 3), sollte es eigentlich eine Fehlermeldung geben.
Setze mal einen Haltepunkt auf Zeile 4 und schaue nach, welchen Wert cntrlbevor hat.

Merio · 6. März 2012, 21:53

Vielleicht sollte ich noch dazu sagen, dass es 1x aber kein 2. mal funktioniert..

Uuuund das mit dem Haltepunkt hab ich gemacht, beim ersten mal hat cntrlbevore einen Wert und beim 2. mal auch

ErfinderDesRades · 6. März 2012, 22:23

ich denke schon, dasses rausfliegt, beim 2. Mal, aber sollte eiglich nicht in Zeile 5 passieren, sondern in zeile 7.

Merio · 6. März 2012, 23:29

Wie kann ich das umschreiben, dass es funktioniert?

ErfinderDesRades · 6. März 2012, 23:40

den Fehler suchen - in welcher Zeile isserdennnu? (mit aktuellem code)

Merio · 6. März 2012, 23:46

Ich hab den Fehler schon geblickt; ich ändere den Namen von TextboxN und dann will ich sie als TextBoxN den Controls Adden; das kann nicht funktionieren, aber wie kann ich den Namen zur Laufzeit ändern und dann mit diesem weiterarbeiten??

ErfinderDesRades · 7. März 2012, 00:18

Fehlermeldung, Fehlerzeile?

Merio · 7. März 2012, 14:19

"cntrlbevore" war Nothing..
Ich hatte gedacht das die Eigenschaft "Name" auch der Name des Controls im Code ist..

VB.NET-Quellcode

Dim cntrlbevore As New TextBox
cntrlbevore = Me.Controls.Item("Textbox" & Button1.Tag)
Button1.Tag += 1
Dim TextboxN As New TextBox
TextboxN.Size = New Size(cntrlbevore.Size)
Me.Controls.Add(TextboxN)
TextboxN.Name = "Textbox" & Button1.Tag
TextboxN.Location = New Point(cntrlbevore.Location.X, cntrlbevore.Location.Y + 26)
Button1.Location = New Point(Button1.Location.X, Button1.Location.Y + 26)
Me.Size = New Size(Me.Size.Width, Me.Size.Height + 26)

Jetzt gehts ;D

Zugriff auf die Eigenschaften eines Controls via Me.Controls.Item("")

Zugriff auf die Eigenschaften eines Controls via Me.Controls.Item("")

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben