vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Textbox-Array 
Autor: Kraut
Datum: 02.03.13 18:27
Hallo!

Ich habe zur Laufzeit in der Procedure Form_Load ein Textbox-Array und das Programm soll in einer anderen Procedure Inhalte einfügen. Doch leider erscheint die Meldung "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."

Code-Teil in der Form_Load: 
        For i = 1 To 138
            x = ((i - 1) Mod 6) + 1
            y = Int((i - 1) / 6)
 
            txb(i) = New TextBox
 
            Select Case x
                Case 1
                    txb(i).Left = Label1.Left
                    txb(i).Width = Label1.Width
                    txb(i).TextAlign = HorizontalAlignment.Right
                    txb(i).Enabled = False
                Case 2
                    txb(i).Left = Label2.Left
                    txb(i).Width = Label2.Width + 25
                Case 3
                    txb(i).Left = Label3.Left
                    txb(i).Width = Label3.Width + 13
                Case 4
                    txb(i).Left = Label4.Left
                    txb(i).Width = 61
                    txb(i).TextAlign = HorizontalAlignment.Right
                Case 5
                    txb(i).Left = Label5.Left
                    txb(i).Width = 61
                    txb(i).TextAlign = HorizontalAlignment.Right
                Case 6
                    txb(i).Left = Label6.Left
                    txb(i).Width = 61
                    txb(i).TextAlign = HorizontalAlignment.Right
                    txb(i).Enabled = False
            End Select
 
            txb(i).Height = 20
            txb(i).Top = y * 26 + 25
 
            Me.Controls.Add(txb(i))
        Next
Code-Teil in einer anderen Procedure: 
        For i = 1 To 138
            x = ((i - 1) Mod 6) + 1
            y = Int((i - 1) / 6)
 
            Select Case x
                Case 1
                    txb(i).Text = y + 1 + v '<- Hier entsteht der Fehler
                Case 2
                    txb(i).Text = Ini.WertLesen("Z" & y + 1 + v, "S1")
                Case 3
                    txb(i).Text = Ini.WertLesen("Z" & y + 1 + v, "S2")
                Case 4
                    Kette = Ini.WertLesen("Z" & y + 1 + v, "S3")
                    Kette = String.Format("{0:C}", Val(Kette)) & vbCrLf
                    txb(i).Text = Kette
                Case 5
                    Kette = Ini.WertLesen("Z" & y + 1 + v, "S4")
                    Kette = String.Format("{0:C}", Val(Kette)) & vbCrLf
                    txb(i).Text = Kette
                Case 6
                    Kette = Ini.WertLesen("Z" & y + 1 + v, "S5")
                    Kette = String.Format("{0:C}", Val(Kette)) & vbCrLf
                    txb(i).Text = Kette
            End Select
 
            txb(i).Visible = True
        Next
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Textbox-Array2.002Kraut02.03.13 18:27
Re: Textbox-Array1.290sv0001002.03.13 19:10
Re: Textbox-Array1.394Kraut02.03.13 19:29
Re: Textbox-Array1.294Manfred X03.03.13 09:23
Re: Textbox-Array1.373Kraut03.03.13 14:07
Re: Textbox-Array1.411Manfred X03.03.13 14:35
Re: Textbox-Array1.257Kraut03.03.13 15:10
Re: Textbox-Array1.291Manfred X03.03.13 15:34

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel