Array mit Namen und Daten

Programmierung Array mit Namen und Daten. Type, Array
Const pmax = 10
Private persList(1 To pmax) As TPerson
Private pos%
Private Type TPerson
name As String * 20
geburt As Integer
student As Boolean
End Type
Private Sub cmdEnde_Click()
Unload Me
End Sub
Private Sub cmdEnde_LostFocus()
txtName.Text = ""
End Sub
Private Sub Form_Load()
Dim i%
pos = 1
For i = pmax To 1 Step -1
With persList(i)
.name = "Maier"
.geburt = 1950
.student = True
End With
Next i
Me.Show
Call anzeigen
End Sub
Sub speichern()
persList(pos).name = txtName.Text
If txtJahr.Text <> "" Then persList(pos).geburt = Val(txtJahr.Text)
persList(pos).student = -chk1.Value
End Sub
Sub anzeigen()
Call fehler
txtNr.Text = Str$(pos)
txtName.Text = persList(pos).name
txtJahr.Text = Str$(persList(pos).geburt)
chk1.Value = -persList(pos).student
End Sub
Private Sub cmdVor_Click()
Call fehler
If pos < pmax Then Call speichern
pos = pos + 1
Call anzeigen
End Sub
Private Sub cmdRueck_Click()
Call fehler
If pos > 1 Then Call speichern
pos = pos - 1
Call anzeigen
End Sub
Private Sub txtJahr_GotFocus()
txtJahr.Text = ""
End Sub
Private Sub fehler()
If pos < 1 Or pos > 10 Then
MsgBox "Kein Platz mehr im Array"
pos = 1
End If
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt