vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 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
Collections vb 2008 
Autor: mawu5007
Datum: 20.03.21 15:29

ich erstellte ein kleines pgm für Benutzung eines Collections:"clscustomer"

Public Class clscustomer

Public NameValue As String
Public VornameValue As String

Public Property get_name() As String
Get
Return NameValue
End Get
Set(ByVal value As String)
NameValue = value
End Set
End Property

Public Property get_Vorname() As String
Get
Return VornameValue
End Get
Set(ByVal value As String)
VornameValue = value
End Set
End Property
End Class
-------------------------------------------
Public Class Form1

Public clscustomer As New Collection

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim addcustomer As New clscustomer
Dim readcustomer As New clscustomer

Dim i, count As Long

i = 1
addcustomer.get_name = "Müller"
addcustomer.get_Vorname = "Hans"
clscustomer.Add(addcustomer)
'WriteLine(clscustomer.Item(i))

i = 2
addcustomer.get_name = "Schulze"
addcustomer.get_Vorname = "Gert"
clscustomer.Add(addcustomer)

count = clscustomer.Count

readcustomer = CType(clscustomer.Item(1), clscustomer)
MessageBox.Show("Name: " + readcustomer.get_name + _
"; Vorname: " + readcustomer.get_Vorname)
readcustomer = CType(clscustomer.Item(2), clscustomer)
MessageBox.Show("Name: " + readcustomer.get_name + _
"; Vorname: " + readcustomer.get_Vorname)

End
End Sub
End Class

Es funktioniert aber:
Warum wird mir nur der letzte Name= Schulze angezeigt?
Es werden nicht beide Namen gespeichert.
Danke.
mfg
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Collections vb 2008585mawu500720.03.21 15:29
Re: Collections vb 2008292dj.tommy20.03.21 16:59
Re: Collections vb 2008284mawu500720.03.21 17:12
Re: Collections vb 2008330mawu500720.03.21 17:23
Re: Collections vb 2008279dj.tommy21.03.21 16:11
Re: Collections vb 2008290mawu500721.03.21 18:03
Re: Collections vb 2008279mawu500721.03.21 21:19
Re: Collections vb 2008273mawu500722.03.21 16:55
Vorschlag zur Verwendung der Framework-Angebote256Manfred X02.04.21 11:54
Re: Vorschlag zur Verwendung der Framework-Angebote260mawu500702.04.21 15:33

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