Private Sub ListBox1_TextChanged(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles ListBox1.TextChanged
'hier eintragen, was passieren soll
    End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
'hier eintragen, was passieren soll
    End Sub

Private Sub cboAuswahl_TextChanged(ByVal sender As _
Object, ByVal e As System.EventArgs) Handles _
cboAuswahl.TextChanged
If cboAuswahl.SelectedIndex < 0 Or_
   cboAuswahl.SelectedIndex > 2 Then
   MessageBox.Show("Der eingegebene Wert ist kein " & _
   "Eintrag der Liste")
   cboAuswahl.SelectedIndex = 0
End If
End Sub

----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1

Beitrag wurde zuletzt am 23.03.11 um 00:02:31 editiert.