Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Steuerung eines Datenfeldes (Data1)
Autor: Schreiber
Datum: 31.01.06 07:47
Hallo liebes Forum! Ich habe in einem Programm ein Data-Steuerelement anlegt. Mit diesem Steuerelement sollen nun Daten zu bestimmten Personen angezeigt werden. Nur es passiert allerdings nichts, wenn ich auf eines der Dreieck-pfeile klicke. Hier ein Beispiel-Code: Const MaxPersonen=3 Private Type tPersonenDaten Name As String Telefon As String Straße As String PLZ As Long Ort As String End Type Dim PersonenDaten(1 To MaxPersonen) As tPersonenDaten Dim Person As Byte Private Sub Data1_Validate(Action As Integer, Save As Integer) Select Case Action Case vbDataActionMoveNext Person=Person+1 If Person>MaxPersonen Then Person=MaxPersonen Case vbDataActionMovePrevious Person=Person-1 If Person=0 Then Person=1 Case vbDataActionMoveFirst Person=1 Case vbDataActionMoveLast Person=MaxPersonen End Select Data1.Caption = PersonenDaten(Person).Name PersonenDatenAnzeigen End Sub Sub PersonenDatenAnzeigen() Label1.Caption=PersonenDaten(Person).Name Label2.Caption=PersonenDaten(Person).Straße Label3.Caption=PersonenDaten(Person).PLZ & " " & _ PersonenDaten(Person).Ort Label4.Caption=PersonenDaten(Person).Telefon End Sub Private Sub Form_Load() PersonenDaten(1).Name="Dagobert Duck" PersonenDaten(1).Straße="Seihaserstraße 68" PersonenDaten(1).PLZ=88173 PersonenDaten(1).Ort="Weißensee" PersonenDaten(2).Name="Gustav Gans" PersonenDaten(2).Straße="Fassjoxiweg 70" PersonenDaten(2).PLZ=15521 PersonenDaten(2).Ort="Blankenburg" PersonenDaten(3).Name="Micky Maus" PersonenDaten(3).Straße="Ackerweriplatz 42" PersonenDaten(3).PLZ=11541 PersonenDaten(3).Ort="Wilmersdorf" End Sub Ich hoffe, Ihr könnt mir helfen. Gruß: Schreiber

Steuerung eines Datenfeldes (Data1)

1.083

Schreiber

31.01.06 07:47

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übersicht

Suchen