vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 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
Und mal wieder die Combo-Box  
Autor: Emerson
Datum: 24.02.02 16:13
Code:
-------------------------------------------------------
' Bei ENTER - aktuelle Eingabe in die ComboBox-Liste aufnehmen:
Private Sub Combo1_KeyPress(KeyAscii As Integer)
' in ComboListe aufnehmen
Dim I As Integer
Dim bExists As Boolean
-
With Combo1
If KeyAscii = 13 And .Text <> "" Then
' Prüfen ob bereits vorhanden
bExists = False
For I = 0 To .ListCount - 1
If .List(I) = .Text Then
bExists = True: Exit For
End If
Next I
-
If Not bExists Then .AddItem .Text
.SelStart = 0
.SelLength = 999
End If
End With
End Sub
-------------------------------------------------------
Wie kann ich diese Funktion bei mehreren Combo-Boxen in einem Steuerelementefeld benutzen?
-
Schon mal DANKE im Voraus
-
MfG, Emerson
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Und mal wieder die Combo-Box 57Emerson24.02.02 16:13
Re: Und mal wieder die Combo-Box 41Tolwyn24.02.02 17:12

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