Tipp 0161 ListBox-Einträge ersetzen
Autor/Einsender:
Datum:
  Peter Wagenbauer
19.11.2001
Entwicklungsumgebung:   VB 5
In folgendem Beispiel wird gezeigt, wie ein in einer ListBox markierter Eintrag mit einem anderen Text ersetzt werden kann.
 
Option Explicit

Private Sub Form_Load()
  List1.Clear
  With List1
    .AddItem "Alfred"
    .AddItem "Bruno"
    .AddItem "Daniel"
    .AddItem "Heino"
    .AddItem "Roger"
  End With

  Text1.Text = "Alfons"
End Sub

Private Sub cmdEintragErsetzen_Click()
  Dim strText As String
  Dim strTextAlt As String
  Dim i As Integer

  strText = Trim(Text1.Text)

  If strText = "" Then
    Label1.Caption = "Bitte Text in Textbox eingeben!"
    Text1.SetFocus
    Exit Sub
  End If

  With List1
    If .ListIndex > -1 Then
      strTextAlt = .List(.ListIndex)
      .List(.ListIndex) = strText
      Label1.Caption = _
          "Der ListBox-Eintrag '" & strTextAlt & _
          "' wurde mit '" & strText & "' ersetzt!"
    Else
      Label1.Caption = _
            "In der ListBox wurde kein Eintrag markiert !"
    End If
  End With

  Text1.SetFocus
End Sub
 
Hinweis für VBA-Anwender
Mit kleinen Anpassungen funktioniert der hier abgebildete Code auch in einem VBA-Projekt. Dieser muss dazu in den VB-Editor der entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen *.frm-Datei ist nicht möglich.
Weitere Links zum Thema
Listeneinträge löschen
Listeneinträge löschen (API)
Listeneinträge suchen
Listeneinträge verschieben

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,6 kB) Downloads bisher: [ 1356 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 4. Juni 2011