vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
VB 6 Listboxeinträge 2 Textboxen zuordnen 
Autor: PoSV
Datum: 28.01.09 12:51
Hi @ all,

ich möchte mir nen Adressbuch basteln und komme jetzt nicht weiter.

bisheriger code: 

Private Sub Form_Load()
 
        List1.AddItem "Name1"
        List1.AddItem "Name2"
        List1.AddItem "Name3"
        List1.AddItem "Name4"
        List1.AddItem "Name5"
        List1.AddItem "Name6"
 
     End Sub
 
  Private Sub list1_Click()
 
 
Select Case List1.ListIndex
        Case 0
            Text1.Text = "Name" & vbCrLf _
            & "Straße " & vbCrLf _
            & "Ort" & vbCrLf _
 
            Text2.Text = "Name1"
 
            Exit Sub
        Case 1
            Text1.Text = "Name" & vbCrLf _
            & "Straße " & vbCrLf _
            & "Ort" & vbCrLf _
 
            Text2.Text = "Name1"
 
            Exit Sub
        Case 2
            Text1.Text = "Name" & vbCrLf _
            & "Straße " & vbCrLf _
            & "Ort" & vbCrLf _
 
            Text2.Text = "Name1"
        Case 3
            Text1.Text = "Name" & vbCrLf _
            & "Straße " & vbCrLf _
            & "Ort" & vbCrLf _
 
            Text2.Text = "Name1"
        Case 4
            Text1.Text = "Name" & vbCrLf _
            & "Straße " & vbCrLf _
            & "Ort" & vbCrLf _
 
            Text2.Text = "Name1"
        Case 5
            Text1.Text = "Name" & vbCrLf _
            & "Straße " & vbCrLf _
            & "Ort" & vbCrLf _
 
            Text2.Text = "Name1"
        End Select
 
 
     End Sub
 
Private Sub mnu_beenden_Click()
Unload Me
End Sub
 
Private Sub mnu_neu_Click()
 Dim NeuerEintrag
    NeuerEintrag = InputBox("Geben Sie einen neuen Namen ein:")
    If NeuerEintrag = "" Then Exit Sub
    List1.AddItem NeuerEintrag
 
End Sub
ich habe 1 Listbox und 2 Textboxen, in der einen Textbox soll der Name nochmal angezeigt werden und in der anderen die Adresse und so,....

So, nun mein Problem, ich möchte das zu jeder person eindeutig die Adresse zugeordnet werden soll, wenn ich noch eine über das Formular hinzufüge.

es klappt ja wenn die Listbox nicht sortiert wird, soll aber sortiert werden, von daher passen dann die Textbox einträge nicht mehr zu den Namen.

könnt ihr mir helfen?

mfg Basti

Beitrag wurde zuletzt am 28.01.09 um 12:52:26 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VB 6 Listboxeinträge 2 Textboxen zuordnen657PoSV28.01.09 12:51
Re: VB 6 Listboxeinträge 2 Textboxen zuordnen513Angelus1928.01.09 16:26

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-2025 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